x64, Win32

To convert a time to a date for the form MM/DD/YY (American format).

CHARACTER (LEN=*) FUNCTION TODATE@(SECS)
INTEGER (KIND=3) SECS

A value for SECS could be obtained, for example, via a prior call to FILEINFO@.
Alternatively, in order to display the date at the current runtime, a prior call can be made to SECONDS_SINCE_1980@.
When running under x64, the current date is produced when SECS is set to zero.

DATE_AND_TIME

SECS is a 32 bit integer value. As a result this routine will fail for values that are after the equivalent of 19 January 2038.