[Overview][Constants][Types][Procedures and functions][Variables][Index] |
Pack DateTime value to a packed-time format.
Source position: dosh.inc line 95
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.
|
Set file modification time. |
|
|
Start search for one or more files. |
|
|
Find next matching file after FindFirst |
|
|
Unpack packed file time to a DateTime value |
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.