インテル® Fortran コンパイラー 14.0 ユーザー・リファレンス・ガイド
NLS Function: Returns a correctly formatted string containing the time for the current locale.
result = NLSFormatTime (outstr [, intime] [, flags])
The result type is INTEGER(4). The result is the number of characters written to outstr (bytes are counted, not multibyte characters). If an error occurs, the result is one of the following negative values:
NLS$ErrorInsufficentBuffer - outstr buffer is too small
NLS$ErrorInvalidFlags - flags has an illegal value
NLS$ErrorInvalidInput - intime has an illegal value
USE IFNLS
INTEGER(4) i
CHARACTER(20) str
i = NLSFORMATTIME(str, FLAGS=NLS$NORMAL) ! 11:38:28 PM
i = NLSFORMATTIME(str, FLAGS=NLS$NOMINUTESORSECONDS) ! 11 PM
i = NLSFORMATTIME(str, FLAGS=NLS$NOTIMEMARKER) ! 11:38:28 PM
i = NLSFORMATTIME(str, FLAGS=IOR(NLS$FORCE24HOURFORMAT, &
& NLS$NOSECONDS)) ! 23:38 PM
END