mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-12 16:50:19 +01:00
18 lines
305 B
ObjectPascal
18 lines
305 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. |