1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
Program Example4;
uses Dos;
{ Program to demonstrate the PackTime and UnPackTime functions. }
var
DT : DateTime;
Time : longint;
begin
with DT do
begin
Year:=2008;
Month:=11;
Day:=11;
Hour:=11;
Min:=11;
Sec:=11;
end;
PackTime(DT,Time);
WriteLn('Packed Time : ',Time);
UnPackTime(Time,DT);
WriteLn('Unpacked Again:');
with DT do
begin
WriteLn('Year ',Year);
WriteLn('Month ',Month);
WriteLn('Day ',Day);
WriteLn('Hour ',Hour);
WriteLn('Min ',Min);
WriteLn('Sec ',Sec);
end;
end.
|
