8.105 FDATE — Получить текущее время в виде строки

Описание:

FDATE(DATE) возвращает текущую дату (используя тот же формат, что и CTIME — Преобразование времени в строку) в DATE. Это эквивалентно CALL CTIME(DATE, TIME()).

Этот встроенный модуль доступен как в виде подпрограммы, так и в виде функции; однако, только одна форма может быть использована в любом заданном программном модуле.

Стандарт:

Расширение GNU

Класс:

Подпрограмма, функция

Синтаксис:

CALL FDATE(DATE).

DATE = FDATE().

Аргументы:

DATE Тип должен быть типа CHARACTER с предустановленным типом. Это аргумент INTENT(OUT). Если длина этой переменной слишком мала для хранения строки даты и времени полностью, она будет содержать пробелы при возвращении из процедуры.

Возвращаемое значение:

Текущая дата и время в виде строки.

Пример:

program test_fdate
    integer(8) :: i, j
    character(len=30) :: date
    call fdate(date)
    print *, 'Program started on ', date
    do i = 1, 100000000 ! Just a delay
        j = i * i - i
    end do
    call fdate(date)
    print *, 'Program ended on ', date
end program test_fdate

См. также:

DATE_AND_TIME — Подпрограмма даты и времени, CTIME — Преобразование времени в строку

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/FDATE.html