mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 01:11:29 +01:00
17 lines
319 B
ObjectPascal
17 lines
319 B
ObjectPascal
Program Example84;
|
|
|
|
{ This program demonstrates the TryEncodeDateDay function }
|
|
|
|
Uses SysUtils,DateUtils;
|
|
|
|
Var
|
|
Y,DoY : Word;
|
|
TS : TDateTime;
|
|
|
|
Begin
|
|
DecodeDateDay(Now,Y,DoY);
|
|
If TryEncodeDateDay(Y,DoY,TS) then
|
|
Writeln('Today is : ',DateToStr(TS))
|
|
else
|
|
Writeln('Wrong year/day of year indication');
|
|
End. |