Procedure PackTime (var T: datetime; var P: longint) ;
UnPackTime converts the date and time specified in T to a packed-time format which can be fed to SetFTime.
None.
SetFTime, FindFirst, FindNext, UnPackTime
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.