UnpackTime procedure

- 4.24.2.35 -

Standard Units

Dos Unit

Dos Unit Procedures and Functions

UnpackTime procedure

Targets: MS-DOS only

Dos Unit, WinDos Unit

Converts a Longint to a record.

Declaration:

procedure UnpackTime(Time: Longint; 
                      var DateTime: TDateTime);

Remarks:
UnPackTime can be used in conjunction with GetTime, FindFirst, and FindNext.
These routines return a file's four byte packed date and time stamp. To pack a DateTime record, use PackTime.

Example:

uses
  Dos;
var
  Fi  : Text;
  Time: Longint;
  DT  : DateTime;
begin
  Assign(Fi,'USER.DOC');
  Reset(Fi);
  GetFTime(Fi,Time);
  UnPackTime(Time,DT);
  WriteLn('Year:   ',DT.Year);
  WriteLn('Month:  ',DT.Month);
  WriteLn('Date:   ',DT.Day);
  Close(Fi);
end.


SwapVectors procedure	Table of Content	DOSCall Unit

- 4.24.2.35 -