NLSFormatDate

NLS 関数:現在のロケールの正しく書式化された日付文字列を返します。

モジュールUSE DFNLS

形式

result = NLSFormatDate ( outstr [, intime ] [, flags ] )

outstr
(出力) CHARACTER*(*)。現在のロケールの正しく書式化された日付を含む文字列。outstr が書式化された日付よりも長い場合,空白が充填されます。

intime
(省略可能,入力) INTEGER(4)。指定されていれば,現在のロケールで日付を書式化します。PACKTIMEQQ で作成される詰め込まれた時刻のような整数日付でなければなりません。intime を省略すると,現在のシステム日付が書式化され,outstr に戻されます。

flags
(省略可能,入力) INTEGER(4)。指定されていれば,日付変換を修正します。flags が省略されると,フラグ NLS$Normal が使われます。利用可能なシンボル定数は以下のとおりです (DFNLS.F90 で定義)。

結果

結果の型は INTEGER(4) です。結果は,outstr に書き込まれた文字列の文字数 (バイト数でマルチバイト文字ではありません) です。エラーが発生すると,結果は以下の負の値の 1 つです。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

NLSFormatCurrencyNLSFormatNumberNLSFormatTime

	USE DFNLS
	INTEGER(4) i
	CHARACTER(40) str
	i = NLSFORMATDATE(str, flags=NLS$NORMAL) 
	print *, str					! 2000/09/22
	i = NLSFORMATDATE(str, flags=NLS$USEALTCALENDAR) 
	print *, str					! 平成 12/9/22
	i = NLSFORMATDATE(str, flags=NLS$LONGDATE) 
	print *, str					! 2000年9月22日
	i = NLSFORMATDATE(str, flags=NLS$SHORTDATE) 
	print *, str					! 2000/09/22
	END