blob: 3afa2c8b09c5feb85568d2e0d1310adcfc047831 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example86;
{ This program demonstrates the TryEncodeDateMonthWeek function }
Uses SysUtils,DateUtils;
Var
Y,M,Wom,Dow : Word;
TS : TDateTime;
Begin
DecodeDateMonthWeek(Now,Y,M,WoM,DoW);
If TryEncodeDateMonthWeek(Y,M,WoM,Dow,TS) then
Writeln('Today is : ',DateToStr(TS))
else
Writeln('Invalid year/month/week/dow indication');
End.
|
