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.