blob: 484262a3e2a57b7710eb95a2f3cb9a4224cfbb38 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example81;
{ This program demonstrates the DecodeDateWeek function }
Uses SysUtils,DateUtils;
Var
Y,W,Dow : Word;
TS : TDateTime;
Begin
DecodeDateWeek(Now,Y,W,Dow);
TS:=EncodeDateWeek(Y,W,Dow);
Writeln('Today is : ',DateToStr(TS));
End.
|
