GETDAT

実行時サブルーチン：日付を返します。

モジュール：USE DFLIB

形式

CALL GETDAT (iyr, imon, iday)

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

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

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

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

DATE，FDATE，GETTIM，IDATE，JDATE，SETDAT，SETTIM

例

	!	GETDAT と GETTIM の例
		USE DFLIB
		INTEGER(2) tmpday, tmpmonth, tmpyear
		INTEGER(2) tmphour, tmpminute, tmpsecond, tmphund
		CHARACTER(1) mer

		CALL GETDAT(tmpyear, tmpmonth, tmpday)
		CALL GETTIM(tmphour, tmpminute, tmpsecond, tmphund)
		IF (tmphour .GT. 12) THEN
		  mer = 'p'
		  tmphour = tmphour - 12
		ELSE
		  mer = 'a'
		END IF
		WRITE (*, 900) tmpmonth, tmpday, tmpyear
	900	FORMAT(I2, '/', I2.2, '/', I4.4)
		WRITE (*, 901) tmphour,tmpminute,tmpsecond,tmphund,mer
	901	FORMAT(I2, ':', I2.2, ':', I2.2, ':', I2.2, ' ',&
		       A, 'm')
	END