[Overview][Constants][Types][Classes][Procedures and functions][Variables] |
Convert a FileDatevalue to a TDateTimevalue.
Source position: datih.inc line 124
function FileDateToDateTime( |
Filedate: LongInt |
):TDateTime; |
FileDateToDateTimeconverts the date/time encoded in filedateto a TDateTimeencoded form. It can be used to convert date/time values returned by the FileAgeor FindFirst/FindNextfunctions to TDateTimeform.
None.
|
Convert a TDateTimevalue 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.