fpc/docs/datutex/ex21.pp
2005-02-14 17:13:06 +00:00

18 lines
303 B
ObjectPascal

Program Example21;
{ This program demonstrates the IsSameDay function }
Uses SysUtils,DateUtils;
Var
I : Integer;
D : TDateTime;
Begin
For I:=1 to 3 do
begin
D:=Today+Random(3)-1;
Write(FormatDateTime('dd mmmm yyyy "is today : "',D));
Writeln(IsSameDay(D,Today));
end;
End.