mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 11:31:39 +01:00
33 lines
578 B
ObjectPascal
33 lines
578 B
ObjectPascal
Program Example4;
|
|
uses Dos;
|
|
|
|
{ Program to demonstrate the PackTime and UnPackTime functions. }
|
|
|
|
var
|
|
DT : DateTime;
|
|
Time : longint;
|
|
begin
|
|
with DT do
|
|
begin
|
|
Year:=1998;
|
|
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.
|