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

Question

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

Marco C.d. · Answer

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;

Renata · Answer

� s� subtrair uma da outra! O resultado � em integer, e s�o os dias......

Anonymous · Answer

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