Delphi dicas

Diferença entre duas datas - retorna a quantidade de dias - novo

Insira no form 03 Edit, e um Bitbtn.   no evento onclick do bitbtn digite:



var

v : extended;

begin

        v := strtodate(edit1.text) - strtodate(edit2.text);



        edit3.text := Floattostr(Abs(v));



end;



end.

por : Severino Alves Passos