PACKTIMEQQ

Run-Time Subroutine: Packs time and date values.

Module: USE DFLIB

Syntax

CALL PACKTIMEQQ (timedate, iyr, imon, iday, ihr, imin, isec)

timedate
(Output) INTEGER(4). Packed time and date information.

iyr
(Input) INTEGER(2). Year (xxxx AD).

imon
(Input) INTEGER(2). Month (1 - 12).

iday
(Input) INTEGER(2). Day (1 - 31)

ihr
(Input) INTEGER(2). Hour (0 - 23)

imin
(Input) INTEGER(2). Minute (0 - 59)

isec
(Input) INTEGER(2). Second (0 - 59)

The packed time is the number of seconds since 00:00:00 Greenwich mean time, January 1, 1970. Because packed time values can be numerically compared, you can use PACKTIMEQQ to work with relative date and time values. Use UNPACKTIMEQQ to unpack time information. SETFILETIMEQQ uses packed time.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIB

See Also: UNPACKTIMEQQ, SETFILETIMEQQ, GETFILEINFOQQ, TIME

Example

 USE DFLIB
 INTEGER(2) year, month, day, hour, minute, second,   &
 hund
 INTEGER(4) timedate

 CALL GETDAT (year, month, day)
 CALL GETTIM (hour, minute, second, hund)
 CALL PACKTIMEQQ (timedate, year, month, day, hour,   &
                  minute, second)
 END