3
{ This program demonstrates the TryEncodeDateMonthWeek function }
5
Uses SysUtils,DateUtils;
12
DecodeDateMonthWeek(Now,Y,M,WoM,DoW);
13
If TryEncodeDateMonthWeek(Y,M,WoM,Dow,TS) then
14
Writeln('Today is : ',DateToStr(TS))
16
Writeln('Invalid year/month/week/dow indication');
b'\\ No newline at end of file'