date(3F)

名前

形式

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 桁の年を返すため、この問題を考慮せずに日付の比較に使用しないでください。ルーチン fdate(3F)、idate(3F)、および date_and_time(3F) は 4 桁の年を返すため、これを代わりに使用できます。

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

注

使用法:

 
character*9 str
call date (str)

例:

 
demo% cat dat1.f
* dat1.f -- Get the date as a character string.
        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: Warning: Subroutine "date" is not safe after
   year 2000; use "date_and_time" instead

demo% a.out
Computing time differences using the 2 digit year from subroutine
   date is not safe after year 2000.
 The date today is: 2-Oct-97
demo%

ファイル

libfui.a

関連項目

idate(3F)、ctime(3F)、fdate(3F)、date_and_time(3F)

FORTRAN 77 リファレンスマニュアル