Visible to Intel only — GUID: GUID-5C856AA9-1717-4422-A12B-46E10344F361
Visible to Intel only — GUID: GUID-5C856AA9-1717-4422-A12B-46E10344F361
IDATE4
Portability Subroutine: Returns the month, day, and year of the current system.
Module
USE IFPORT
CALL IDATE4 (i,j,k)
-or-
CALL IDATE4 (iarray)
i |
(Output) INTEGER(4). The current system month. |
j |
(Output) INTEGER(4). The current system day. |
k |
(Output) INTEGER(4). The current system year as an offset from 1900. |
iarray |
(Output) INTEGER(4). 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 returned as an offset from 1900, if the year is less than 2000. For years greater than or equal to 2000, this element simply returns the integer year, such as 2003. |