3
{ This program demonstrates the TryEncodeDateTime function }
5
Uses SysUtils,DateUtils;
8
Y,Mo,D,H,Mi,S,MS : Word;
12
DecodeDateTime(Now,Y,Mo,D,H,Mi,S,MS);
13
If TryEncodeDateTime(Y,Mo,D,H,Mi,S,MS,TS) then
14
Writeln('Now is : ',DateTimeToStr(TS))
16
Writeln('Wrong date/time indication');
b'\\ No newline at end of file'