9.143 IDATE — Получение текущего местного времени (день/месяц/год)

Описание:

IDATE(VALUES) Заполняет VALUES числовыми значениями текущего местного времени. День (в диапазоне от 1 до 31), месяц (в диапазоне от 1 до 12) и год записываются в элементы 1, 2 и 3 массива VALUES соответственно. Год имеет четыре значащие цифры.

Эта внутренняя процедура предоставляется для обратной совместимости с GNU Fortran 77. В новом коде программисты должны рассмотреть использование встроенной функции DATE_AND_TIME, определенной стандартом Fortran 95.

Стандарт:

Расширение GNU

Класс:

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

Синтаксис:

CALL IDATE(VALUES)

Аргументы:

VALUES

Тип должен быть INTEGER, DIMENSION(3), а размерность — стандартная для целых чисел.

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

Ничего не возвращает.

Пример:

program test_idate
  integer, dimension(3) :: tarray
  call idate(tarray)
  print *, tarray(1)
  print *, tarray(2)
  print *, tarray(3)
end program test_idate

См. также:

DATE_AND_TIME