Visible to Intel only — GUID: GUID-6AB0D215-AAF2-4EA3-A238-040AF507791C
Visible to Intel only — GUID: GUID-6AB0D215-AAF2-4EA3-A238-040AF507791C
IDATE Portability Routine
Portability Subroutine: Returns the month, day, and year of the current system. IDATE can be used as a portability subroutine or as an intrinsic procedure. It is an intrinsic procedure unless you specify USE IFPORT.
Module
USE IFPORT
CALL IDATE (i, j, k)
-or-
CALL IDATE (iarray)
i |
(Output) INTEGER(4). Is the current system month. |
j |
(Output) INTEGER(4). Is the current system day. |
k |
(Output) INTEGER(4). Is the current system year as an offset from 1900. |
iarray |
(Output) INTEGER(4). Is a three-element array that holds day as element 1, month as element 2, and year as element 3. The month is between 1 and 12. The year is greater than or equal to 1969 and is returned as 2 digits. |
The two-digit year return value may cause problems with the year 2000. Use DATE_AND_TIME instead.
Example
Consider the following:
use IFPORT
integer(4) imonth, iday, iyear, datarray(3)
! If the date is July 11, 1999:
CALL IDATE(IMONTH, IDAY, IYEAR)
! sets IMONTH to 7, IDAY to 11 and IYEAR to 99.
CALL IDATE (DATARRAY)
! datarray is (/11,7,99/)