DateTimeToSystemTime
Converts a TDateTime value to a systemtime structure.
Declaration
Source position: datih.inc line 125
procedure DateTimeToSystemTime(DateTime: TDateTime;
out SystemTime: TSystemTime);
Description
DateTimeToSystemTime converts a date/time pair in DateTime, with TDateTime format to a system time SystemTime.
Errors
None.
See also
| Name | Description |
|---|---|
| DateTimeToFileDate | Convert a TDateTime value to a file age (integer) |
| DateTimeToTimeStamp | Converts a TDateTime value to a TimeStamp structure. |
| SystemTimeToDateTime | Convert a system time to a TDateTime value. |
Example
Program Example5;
{ This program demonstrates the DateTimeToSystemTime function }
Uses sysutils;
Var ST : TSystemTime;
Begin
DateTimeToSystemTime(Now,ST);
With St do
begin
Writeln ('Today is ',year,'/',month,'/',Day);
Writeln ('The time is ',Hour,':',minute,':',Second,'.',MilliSecond);
end;
End.