3
{ This program demonstrates the TryEncodeDateDay function }
5
Uses SysUtils,DateUtils;
12
DecodeDateDay(Now,Y,DoY);
13
If TryEncodeDateDay(Y,DoY,TS) then
14
Writeln('Today is : ',DateToStr(TS))
16
Writeln('Wrong year/day of year indication');
b'\\ No newline at end of file'