面试题：Fortran中日期时间处理函数基础应用

Question

在Fortran中，要求编写一段程序，使用日期与时间处理函数获取当前系统日期，并将其以'YYYY - MM - DD'的格式输出。同时说明在这个过程中可能用到哪些函数及其作用。

Answer 1

program get_current_date
    implicit none
    integer :: year, month, day
    call date_and_time(values = [year, month, day])
    write(*, '(I4.4, 1X, A, 1X, I2.2, 1X, A, 1X, I2.2)') year, '-', month, '-', day
end program get_current_date

在这个过程中用到的函数及其作用：

1. date_and_time：这是Fortran中用于获取系统日期和时间的内置函数。在上述代码中，通过values参数将获取到的年、月、日分别赋值给year、month、day变量。它的作用是获取当前系统的日期和时间信息，并按照指定的方式返回这些值。
2. write：用于格式化输出。在代码中，write(*, '(I4.4, 1X, A, 1X, I2.2, 1X, A, 1X, I2.2)') 按照指定的格式将年、月、日以 YYYY - MM - DD 的格式输出到标准输出设备（通常是屏幕）。其中I4.4表示以4位宽度输出整数，不足4位前面补0；I2.2表示以2位宽度输出整数，不足2位前面补0；A用于输出字符串，这里是'-'。