Como calcular em dias a diferença entre duas datas?

Delphi

06/02/2003

Como calcular em dias a diferença entre duas datas ex:
data 1: 30/12/2002
data 2: 06:02/2003

diferença em dias entre as duas data: 37 dias


Greenmotez

Greenmotez

Curtidas 0

Respostas

Marco C.d.

Marco C.d.

06/02/2003

Caro Amigo,
A procedure abaixo fará isso que você quer .... : Necessário... Um Button, dois Edit´s e um label...

  procedure form1.button1click(sender : Tobject);
  var
     dias : real;
     data1, data 2 : TDateTime;
  begin
     data1 := strtodate(edit1.text);
     data2 := strtodate(edit2.text);
     dias := data1 - data2;
     label1.caption := FloatToStr(Dias) + ´ dias.´;
  end;



GOSTEI 0
Renata

Renata

06/02/2003

É só subtrair uma da outra! O resultado é em integer, e são os dias...


GOSTEI 0
Anonymous

Anonymous

06/02/2003

Procure a UNIT ESBDATE...ela contem todas afunções de data...devem exister neste site tbm...ela é totalmente FREE


GOSTEI 0
POSTAR