Unit 'Dos' Package
[Overview][Constants][Types][Procedures and functions][Variables][Index] [#rtl]

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

SetFTime

  

Set file modification time.

FindFirst

  

Start search for one or more files.

FindNext

  

Find next matching file after FindFirst.

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.

Documentation generated on: Jul 24 2023