[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'Dos' (#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.