Fortran 语言提供了一些内置的日期和时间函数,可以用于处理日期和时间相关的操作。以下是一些常用的 Fortran 日期和时间函数的介绍:
CHARACTER(LEN=20) :: DATE, TIME
CALL DATE_AND_TIME(DATE=DATE, TIME=TIME)
DATE() 函数:该函数可以将一个整数转换为日期。它有三个参数:YEAR、MONTH 和 DAY,分别表示年、月和日。例如,下面的代码可以将整数 20210307 转换为日期:
INTEGER :: YEAR, MONTH, DAY
CALL DATE_AND_TIME(YEAR=YEAR, MONTH=MONTH, DAY=DAY)
TIME() 函数:该函数可以将一个实数转换为时间。它有三个参数:HOUR、MINUTE 和 SECOND,分别表示小时、分钟和秒。例如,下面的代码可以将实数 123.456 转换为时间:
INTEGER :: HOUR, MINUTE
REAL :: SECOND
CALL TIME(HOUR=HOUR, MINUTE=MINUTE, SECOND=SECOND)
DATE1 - DATE2 函数:该函数可以计算两个日期之间的天数。例如,下面的代码可以计算 2021 年 3 月 7 日到 2022 年 3 月 7 日之间的天数:
INTEGER :: DATE1, DATE2, DAYS
DATE1 = 20210307
DATE2 = 20220307
DAYS = DATE2 - DATE1
DATE_AND_TIME() 函数:该函数可以获取当前日期和时间,并以秒为单位返回一个实数值。例如,下面的代码可以获取当前时间,并将其转换为秒:
REAL :: SEC
CALL SYSTEM_CLOCK(COUNT=SEC)
这些是 Fortran 中常用的日期和时间函数。如果您需要更详细的信息,建议参考 Fortran 语言的官方文档或相关教程。