blob: 16f26b7accd9cea89ce4a661b8c3a4da50728074 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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.
|
