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