[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'sysutils' (#rtl)

# 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

DateTimeToFileDate |  | Convert a TDateTime value to a file age (integer)
SystemTimeToDateTime |  | Convert a system time to a TDateTime value.
DateTimeToTimeStamp |  | Converts a TDateTime value to a TimeStamp structure.

## 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.