[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Converts a TDateTime value to a TimeStamp structure.
Source position: datih.inc line 113
function DateTimeToTimeStamp( |
DateTime: TDateTime |
):TTimeStamp; |
DateTimeToSystemTime converts a date/time pair in DateTime, with TDateTime format to a TTimeStamp format.
None.
|
Convert a TDateTime value to a file age (integer) |
|
|
Convert a system time to a TDateTime value. |
|
|
Converts a TDateTime value to a systemtime structure. |
Program Example6; { This program demonstrates the DateTimeToTimeStamp function } Uses sysutils; Var TS : TTimeStamp; Begin TS:=DateTimeToTimeStamp (Now); With TS do begin Writeln ('Now is ',time,' millisecond past midnight'); Writeln ('Today is ' ,Date,' days past 1/1/0001'); end; End.