1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example79;
{ This program demonstrates the TryEncodeDateTime function }
Uses SysUtils,DateUtils;
Var
Y,Mo,D,H,Mi,S,MS : Word;
TS : TDateTime;
Begin
DecodeDateTime(Now,Y,Mo,D,H,Mi,S,MS);
If TryEncodeDateTime(Y,Mo,D,H,Mi,S,MS,TS) then
Writeln('Now is : ',DateTimeToStr(TS))
else
Writeln('Wrong date/time indication');
End.
|
