RTC

可搬用関数:特定のグリニッジ平均時からの経過時間を秒数で返します。

モジュールUSE DFPORT

形式

result = RTC ( )

結果

結果の型は REAL(8) です。結果は,グリニッジ平均時 1970 年 1 月 1 日 00:00:00 からの経過時間の秒数です。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

DATE_AND_TIMETIME

	USE DFPORT
	real(8) s, s1, time_spent
	INTEGER(4) i, j
	s = RTC( )
	call sleep(4)
	s1 = RTC( )
	time_spent = s1 - s
	PRINT *, 'It took ',time_spent, 'seconds to run.'