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

DateTimeToTimeStamp

Converts a TDateTimevalue to a TimeStamp structure.

Declaration

Source position: datih.inc line 95

function DateTimeToTimeStamp(

  DateTime: TDateTime

):TTimeStamp;

Description

DateTimeToSystemTimeconverts a date/time pair in DateTime, with TDateTimeformat to a TTimeStampformat.

Errors

None.

See also

DateTimeToFileDate

  

Convert a TDateTimevalue to a file age (integer)

SystemTimeToDateTime

  

Convert a system time to a TDateTimevalue.

DateTimeToSystemTime

  

Converts a TDateTimevalue to a systemtime structure.

Example

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.