1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{$mode objfpc}
program msec_test1;
uses sysutils;
var
D: TDateTime;
T, T1, T2: TTimeStamp;
MS: Comp;
begin
D:=EncodeDate(2021, 03, 16) + EncodeTime(14, 02, 15, 1);
WriteLn('DATE: ', DateTimeToStr(D));
T:=DateTimeToTimeStamp(D);
WriteLn(' T.Date=',T.Date,' T.Time=', T.Time);
MS:=TimeStampToMSecs(T);
T1:=MSecsToTimeStamp(MS);
WriteLn('T1.Date=',T1.Date,' T1.Time=', T1.Time);
WriteLn('DATE1: ', DateTimeToStr(TimeStampToDateTime(T1)));
if TimeStampToDateTime(T1)<>D then
halt(1);
writeln('ok')
end.
|