8.82 DATE_AND_TIME — Подпрограмма даты и времени

Описание:

DATE_AND_TIME(DATE, TIME, ZONE, VALUES) получает соответствующую информацию о дате и времени из часов реального времени. DATE — INTENT(OUT) и имеет формат ггггммдд. TIME — INTENT(OUT) и имеет формат ччммсс.сссс. ZONE — INTENT(OUT) и имеет формат (+-)ччмм, представляющий разницу по отношению к координированному всемирному времени (UTC). Недоступные параметры времени и даты возвращают пробелы.

VALUES — INTENT(OUT) и предоставляет следующее:

`VALUES(1)`:	Год, включая столетие
`VALUES(2)`:	Месяц года
`VALUES(3)`:	Число месяца
`VALUES(4)`:	Разница во времени от UTC в минутах
`VALUES(5)`:	Час дня
`VALUES(6)`:	Минуты часа
`VALUES(7)`:	Секунды минуты
`VALUES(8)`:	Миллисекунды секунды

Стандарт:

Fortran 90 и более поздние версии

Класс:

Подпрограмма

Синтаксис:

CALL DATE_AND_TIME([DATE, TIME, ZONE, VALUES])

Аргументы:

`DATE`	(Необязательный) Скаляр типа default `CHARACTER`. Рекомендуемая длина — 8 или больше.
`TIME`	(Необязательный) Скаляр типа default `CHARACTER`. Рекомендуемая длина — 10 или больше.
`ZONE`	(Необязательный) Скаляр типа default `CHARACTER`. Рекомендуемая длина — 5 или больше.
`VALUES`	(Необязательный) Массив ранга 1 типа `INTEGER` с диапазоном десятичных показателей не менее четырех и размером массива не менее 8.

Значение результата:

Нет

Пример:

program test_time_and_date
    character(8)  :: date
    character(10) :: time
    character(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 test_time_and_date

См. также:

CPU_TIME — Время работы ЦП в секундах, SYSTEM_CLOCK — Функция времени

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