date_and_time([date, time, zone, values])：日期和时间¶
日期和时间子程序。
声明¶
语法¶
call date_and_time([date, time, zone, values])
subroutine date_and_time(date, time, zone, values)
参数¶
date 字符类型的输入值，长度为 8 或更大。 它是默认类型。 它是 intent(out) 并且具有 ccyymmdd 的形式。
time 字符类型的输入值，长度为 10 或更大。 它是默认类型。 它是 intent(out) 并且具有 hhmmss.sss 的形式。
zone 字符类型的输入值，长度为 5 或更大。 它是默认类型。 它是 intent(out) 并且来自 (+-)hhmm，表示相对于坐标世界时 (UTC) 的差异。 不可用的时间和日期参数返回空白。
values整数类型的输入值，8位。 它是intent(out)。 它提供以下内容：
value(1)：年份。value(2)：月份。value(3)：一个月中的哪一天。value(4)：与 UTC 的时差，以分钟为单位。value(5)：一天中的小时。value(6)：小时的分钟数。value(7)：分钟的秒数。value(8)：秒的毫秒数。
返回值¶
无。
描述¶
date_and_time([date, time, zone, values]) 从实时系统时钟报告相应的日期和时间信息。
date、time、zone、values 表示日期、时间、区域和值，如上述参数中所述。
不可用或错误的日期和时间参数返回空白。
类型¶
支持的输入参数类型为 intent(out) 和实数。
subroutine date_and_time(date, time, zone, values)
character(len=*), intent(out), optional :: date, time, zone
integer, intent(out), optional :: values(8)
end subroutine
示例¶
program intrinsics_date_and_time
implicit none
character(len=8) :: date
character(len=10) :: time
character(len=5) :: zone
integer,dimension(8) :: values
! using keyword arguments
call date_and_time(date,time,zone,values)
call date_and_time(date=date,zone=zone)
call date_and_time(time=time)
call date_and_time(values=values)
print '(a,2x,a,2x,a)', date, time, zone
print '(8i5)', values
end program
结果：
20220812 075654.679 +0000
2022 8 12 0 7 56 54 679