blob: d4c8f77763ac19f3396b4bda33ace8e2ac2441ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example85;
{ This program demonstrates the DecodeDateMonthWeek function }
Uses SysUtils,DateUtils;
Var
Y,M,Wom,Dow : Word;
TS : TDateTime;
Begin
DecodeDateMonthWeek(Now,Y,M,WoM,DoW);
TS:=EncodeDateMonthWeek(Y,M,WoM,Dow);
Writeln('Today is : ',DateToStr(TS));
End.
|
