Skip to content

PackTime

Pack DateTime value to a packed-time format.

Declaration

Source position: dosh.inc line 95

  procedure PackTime(var t: DateTime; var p: LongInt);

Description

UnPackTime converts the date and time specified in T to a packed-time format which can be fed to SetFTime.

Errors

None.

See also

Name Description
FindFirst Start search for one or more files.
FindNext Find next matching file after FindFirst
SetFTime Set file modification time.
UnPackTime Unpack packed file time to a DateTime value

Example

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.