UNPACKTIMEQQ

Portability Subroutine: Unpacks a packed time and date value into its component parts.

Module

USE IFPORT

Syntax

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

timedate

(Input) INTEGER(4). Packed time and date information.

iyr

(Output) INTEGER(2). Year ( xxxxAD).

imon

(Output) INTEGER(2). Month (1 - 12).

iday

(Output) INTEGER(2). Day (1 - 31).

ihr

(Output) INTEGER(2). Hour (0 - 23).

imin

(Output) INTEGER(2). Minute (0 - 59).

isec

(Output) INTEGER(2). Second (0 - 59).

GETFILEINFOQQ returns time and date in a packed format. You can use UNPACKTIMEQQ to unpack these values. Use PACKTIMEQQ to repack times for passing to SETFILETIMEQQ. Packed times can be compared using relational operators.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

USE IFPORT

CHARACTER(80) file

TYPE (FILE$INFO) info

INTEGER(4) handle, result

INTEGER(2) iyr, imon, iday, ihr, imin, isec

file = 'd:\f90ps\bin\t???.*'

handle = FILE$FIRST

result = GETFILEINFOQQ(file, info, handle)

CALL UNPACKTIMEQQ(info%lastwrite, iyr, imon,&

iday, ihr, imin, isec)

WRITE(*,*) iyr, imon, iday

WRITE(*,*) ihr, imin, isec

END

See Also