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

Описание:

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

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

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

Стандарт:

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

Тип:

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

Синтаксис:

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

Аргументы:

DATE	(Необязательно) Тип должен быть CHARACTER(LEN=8) или больше, и иметь тип по умолчанию.
TIME	(Необязательно) Тип должен быть CHARACTER(LEN=10) или больше, и иметь тип по умолчанию.
ZONE	(Необязательно) Тип должен быть CHARACTER(LEN=5) или больше, и иметь тип по умолчанию.
VALUES	(Необязательно) Тип должен быть 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