blob: 7495005aabdfdd874c719d1eafce825514a25216 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example24;
{ This program demonstrates the TimeStampToDateTime function }
Uses sysutils;
Var TS : TTimeStamp;
DT : TDateTime;
Begin
TS:=DateTimeToTimeStamp (Now);
With TS do
begin
Writeln ('Now is ',time,' millisecond past midnight');
Writeln ('Today is ' ,Date,' days past 1/1/0001');
end;
DT:=TimeStampToDateTime(TS);
Writeln ('Together this is : ',DateTimeToStr(DT));
End.
|
