blob: 74f31dcb9dd706b7b1db3f4b9c3b86cf36e6d7ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example82;
{ This program demonstrates the TryEncodeDateWeek function }
Uses SysUtils,DateUtils;
Var
Y,W,Dow : Word;
TS : TDateTime;
Begin
DecodeDateWeek(Now,Y,W,Dow);
If TryEncodeDateWeek(Y,W,TS,Dow) then
Writeln('Today is : ',DateToStr(TS))
else
Writeln('Invalid date/week indication');
End.
|
