mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 12:31:38 +01:00
18 lines
303 B
ObjectPascal
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. |