Data

Delphi

09/03/2004

Alguém sabe, como fazer pra subtrair 2 datas e retornar o número de dias entre elas, tipo assim:

ex:
Data 1: 06/03/2004 / Data 2: 09/03/2004

, ..., retornar 3 dias;

No evento onClick de um botão qq, coloquei o seguinte código:

procedure Tform1.Button1Click(Sender: TObject); begin showmessage(datetostr(strtodate(edtData2.Text) - strtodate(edtData1.Text))); end;


Com esse código está retornando 02/01/1900!!! Como fazer para retornar a diferença entre as datas, ou seja, 3 dias?


D4rk_schn31d3r

D4rk_schn31d3r

Curtidas 0

Respostas

Skaarj

Skaarj

09/03/2004

showmessage(floattostr(strtodate(edit2.text)-strtodate(edit1.text)));


GOSTEI 0
POSTAR