可搬用関数：書式 "YYDDD" にユリウス暦の日付で 8 文字の文字列を返します。3 個の空白でこの文字列を終了します。
モジュール：USE DFPORT
形式
result = JDATE ( )
結果
結果の型は CHARACTER(8) です。結果は，書式 "YYDDD" (最後に 3 個の空白が付きます) のユリウス暦の日付が返されます。
ユリウス暦の日付は，5 けたの数字です。最初の 2 けたは年の最後の 2 けたで，最後の 3 けたは年の日数 (1 月 1 日が 1 で，うるう年の 12 月 31 日が 366) です。たとえば，1994 年 2 月 1 日は 94032 です。
警告：返される 2 けたの年は，2000 年問題を引き起こす可能性があります。代わりに DATE_AND_TIME を使ってください。
互換性
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
関連情報
DATE，DATE_AND_TIME，GETDAT，可搬用ライブラリー例
! julian に今日のユリウス暦の日付を設定します。 USE DFPORT CHARACTER*8 julian julian = JDATE( )