DATE
:用于返回当前日期的字符数组,其格式为
'YYYY-MM-DD'
。
TIME
:用于返回当前时间的字符数组,其格式为
'HH:MM:SS'
。
ZONE
:用于返回当前时区的字符数组,其格式为
'+'/-
和
'HH:MM'
。如果系统不支持时区信息,则该参数将被省略。
以下是
DATE_AND_TIME
函数的使用示例:
PROGRAM test_date_and_time
IMPLICIT NONE
CHARACTER(10) :: date
CHARACTER(8) :: time
CHARACTER(5) :: zone
CALL DATE_AND_TIME(date, time, zone)
WRITE(*,*) 'Current date:', date
WRITE(*,*) 'Current time:', time
IF (PRESENT(zone)) THEN
WRITE(*,*) 'Current time zone:', zone
END IF
END PROGRAM test_date_and_time
在上面的示例中,我们定义了三个字符数组变量date
、time
和zone
,并调用了DATE_AND_TIME
函数来获取当前的日期、时间和时区信息。然后,我们使用WRITE
语句将这些信息输出到屏幕上。
请注意,DATE_AND_TIME
函数返回的日期、时间和时区信息都是字符数组类型,如果需要进行日期、时间或时区的计算和处理,需要使用相应的库函数和算法进行转换。