Pogledaj u helpu:
Citat:
Delphi syntax:
function DaysBetween(const ANow, AThen: TDateTime): Integer;
Code:
uses
DateUtils;
...
procedure TForm1.FormCreate(Sender: TObject);
var AThen: TDate;
begin
AThen:= StrToDate('25.02.2007');
Caption:= IntToStr(DaysBetween(Now, AThen))
end;
Someone's sitting in the shade today because someone planted a tree a long time ago.