How to convert Datetime to Unix timestamp in Pascal

🎈 🎈 🎈


    program DateToUnixTimestamp;

    uses
        SysUtils, DateUtils;
    
    var
        dateTime: TDateTime;
        unixTimestamp: Int64;
    
    begin
        dateTime := EncodeDateTime(2009, 7, 30, 6, 36, 40, 0);  // Create a TDateTime object
        unixTimestamp := DateTimeToUnix(dateTime);
        WriteLn('Unix Timestamp: ', unixTimestamp);
    end.

Output:

Unix Timestamp: 1248935800

Example only. There may be multiple ways to perform this operation.

Code Explanation

In this Pascal code snippet, the EncodeDateTime function is used to create a TDateTime object for the date '2009-07-30 06:36:40'.
This TDateTime object is then passed to the DateTimeToUnix function, which converts it to a Unix timestamp. The result, '1248935800', is printed using WriteLn

Convert Unix timestamp to Date in Pascal

Other useful Pascal date functions

Function	Description	Example
`Now()`	Returns the current date and time as a `TDateTime` object.	`Now()` returns 15/05/2020 08:10:45
`UnixToDateTime()`	Converts a Unix timestamp to a `TDateTime` object.	`UnixToDateTime(1589530245)` returns 15/05/2020 08:10:45
`DateTimeToUnix()`	Converts a `TDateTime` object to a Unix timestamp.	`DateTimeToUnix(EncodeDateTime(2020, 5, 15, 8, 30, 45, 0))` returns 1589530245
`EncodeDateTime()`	Creates a `TDateTime` object from individual year, month, day, hour, minute, second, and millisecond values.	`EncodeDateTime(2020, 5, 15, 8, 30, 45, 0)` returns 15/05/2020 08:10:45
`DateTimeToStr()`	Converts a `TDateTime` object to a string in a human-readable format.	`DateTimeToStr(UnixToDateTime(1589530245))` returns 15/05/2020 08:10:45
`StrToDateTime()`	Converts a string representing a date and time to a `TDateTime` object.	`StrToDateTime('15/05/2020 08:10:45')` returns a TDateTime object.
`FormatDateTime()`	Formats a `TDateTime` object according to a specified format string.	`FormatDateTime('yyyy-mm-dd hh:nn:ss', Now())` returns 2020-05-15 08:10:45
`DecodeDate()`	Extracts the year, month, and day from a `TDateTime` object.	`DecodeDate(UnixToDateTime(1589530245), year, month, day)`
`DecodeTime()`	Extracts the hour, minute, second, and millisecond from a `TDateTime` object.	`DecodeTime(UnixToDateTime(1589530245), hour, min, sec, msec)`

Current Unix Timestamp SECONDS SINCE JAN 01 1970

Current UTC Time

2025-08-20