IDATE(3F)

名前
idate - 数値形式での日付の取得

形式

idate には、標準バージョンと VMS バージョンとがあります。

subroutine idate(iarray)
integer*4 iarray(3)
     標準バージョン

subroutine idate(m, d, y)
integer*4 m, d, y
     VMS バージョン

2000 年問題の警告: VMS バージョンは 2000 年問題に対応していません。
VMS モードの idate は 2 桁の年を戻すため、 2000 年問題を考慮せずに日付の比較に使用してはなりません。 ルーチン fdate(3f) と date_and_time(3f) は 4 桁の 年を戻すので、代わりにこれらを使用できます。

idate は 2000 年問題に対応していないため、 このルーチンを VMS モードで使用するプログラムは、 コンパイル時および実行時に警告メッセージを生成します。

機能説明

標準バージョン

サブルーチン idate は、現在の日付を整数配列 iarray に、日・月・年の順で格納します。 月は 1-12 の範囲、 年は 4 桁 (1997 または 2001 など) で表します。

使用例 :

demo% cat  ida2.f
	integer*4  a(3)
	call  idate( a )
	write(*, "(' The date is: ',3i5)" ) a
	end
demo% f77 -silent  ida2.f
demo% a.out
 The date is:   23    1   1997
demo%

VMS バージョン ( -lV77 フラグでのコンパイル)

サブルーチン idate は、現在の日付を整数 m、 d、 y に格納します。

VMS バージョンは 2 桁しか許可しません。 これは、2000 年問題に対応していません。 使用例 :

demo% cat ida1.f
	integer*4  m,  d,  y
	call idate( m, d, y )
	write(*, "(' The date is: ',3i3)" ) m, d, y
	end
demo% f77 ida1.f  -lV77
ida1.f:
 MAIN:
"ida1.f", line 2: Warning: Subroutine "idate" is not safe
   after year 2000; use "date_and_time" instead
demo% a.out
Computing time differences using the 2 digit year from
   subroutine idate is not safe after year 2000.
 The date is:   7 23 97
demo%

ファイル
libF77.a, libV77.a

注意事項
f77 コンパイラに -lV77 フラグを指定してコンパイルした場合は、 idate() と time() の VMS バージョンでリンクします (f77 のみ)。

関連項目
date(3f) 、 fdate(3F) 、 date_and_time(3F) 、 『Fortran ライブラリ・リファレンス』