UNPACKTIMEQQ

実行時サブルーチン：詰め込まれた時刻と日付の値を成分に分解します。

モジュール：USE DFLIB

形式

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

timedate
(入力) INTEGER(4)。詰め込まれた日時情報。

iyr
(出力) INTEGER(2)。年 (xxxx AD)。

imon
(出力) INTEGER(2)。月 (1 ～ 12)。

iday
(出力) INTEGER(2)。日 (1 ～ 31)。

ihr
(出力) INTEGER(2)。時 (0 ～ 23)。

imin
(出力) INTEGER(2)。分 (0 ～ 59)。

isec
(出力) INTEGER(2)。秒 (0 ～ 59)。

GETFILEINFOQQ は，詰め込まれた書式で日時を返します。これらの値を各成分に分解するには，UNPACKTIMEQQ を使います。PACKTIMEQQ は，SETFILETIMEQQ に詰め込まれた日時を渡す時に使用します。詰め込まれた時刻は，関係演算子を使って比較することができます。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

GETFILEINFOQQ，PACKTIMEQQ，SETFILETIMEQQ

例

	USE DFLIB
	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