DATE(3F)

名前
date - 日付を文字形式で戻す

形式
subroutine date (str)
character*9 str

機能説明
date サブルーチンは現在の日付を取得し、これを文字列 str に入れます。
日付の形式は dd-mmm-yy です。

dd は 2 桁の整数で、該当月の何日かを表します。

mmm は 3 文字の省略名で表される月の名前です。
Jan、Feb、Mar、Apr、May、Jun、Jul、Aug、Sep、Oct、Nov、Dec です。

yy は 2 桁の整数で表される西暦年です。

西暦 2000 年問題に関する警告: date() は西暦 2000 年問題に対応していません。
date は 2 桁の年を戻すため、2000 年問題を考慮せずに日付の比較に使用してはなりません。ルーチン fdate(3f)、idate(3f)、および date_and_time(3f) は 4 桁の年を戻すので、代わりにこれらを使用できます。

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

注意事項
使用法: .in +2

character*9 str
call date (str)
.in -2

例:

	demo% cat dat1.f
	* dat1.f -- 日付を文字列として取得する。
		character c*9
		call date ( c )
		write (*, "(' The date today is: ', A9 )" ) c
		end
         demo% f77 dat1.f
         dat1.f:
         MAIN:
         "dat1.f", line 2: 警告: サブルーチン date は 2000 年問題
            に対応していません。代わりに date_and_time を使用してください。
         demo% a.out
         サブルーチン date から戻される 2 桁の年を使用する時間の
            差の計算は 2000 年問題に対応していません。
	 The date today is:   01 February 97
	demo%

ファイル
libfui.a

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