Visible to Intel only — GUID: GUID-DA07ABFF-3A1C-4F53-8F64-A3F63B52C7A9
Visible to Intel only — GUID: GUID-DA07ABFF-3A1C-4F53-8F64-A3F63B52C7A9
UNPACKTIMEQQ
Portability Subroutine: Unpacks a packed time and date value into its component parts.
Module
USE IFPORT
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.
The output values reflect the time zone set on the local computer and the daylight savings rules for that time zone.
Use PACKTIMEQQ to repack times for passing to SETFILETIMEQQ. Packed times can be compared using relational operators.
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