Código
var
v : extended;
begin
v := strtodate(edit1.text) - strtodate(edit2.text);
edit3.text := Floattostr(Abs(v));
end;
end.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009