Convert a FileDate value to a TDateTime value.
Source position: datih.inc line 162
function FileDateToDateTime(
Filedate: LongInt
):TDateTime ;
FileDateToDateTime converts the date/time encoded in filedate to a TDateTime encoded form. It can be used to convert date/time values returned by the FileAge or FindFirst/FindNext functions to TDateTime form.
None.
Convert a TDateTime value to a file age (integer)
Program Example13; { This program demonstrates the FileDateToDateTime function } Uses sysutils; Var ThisAge : Longint; Begin Write ('ex13.pp created on :'); ThisAge:=FileAge('ex13.pp'); Writeln (DateTimeToStr(FileDateToDateTime(ThisAge))); End.