Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
Document Table of Contents

IDATE Intrinsic Procedure

Intrinsic Subroutine (Generic): Returns three integer values representing the current month, day, and year. IDATE can be used as an intrinsic subroutine or as a portability routine. It is an intrinsic procedure unless you specify USE IFPORT. Intrinsic subroutines cannot be passed as actual arguments.

CALL IDATE (i, j, k)

i

(Output) Must be of type integer. It is the current month.

j

(Output) Must be of type integer with the same kind type parameter as i. It is the current day.

k

(Output) Must be of type integer with the same kind type parameter as i. It is the current year.

The current month is returned in i; the current day in j. The last two digits of the current year are returned in k.

CAUTION:

The two-digit year return value may cause problems with the year 2000. Use DATE_AND_TIME instead.

Example

If the current date is September 16, 1999, the values of the integer variables upon return are: I = 9, J = 16, and K = 99.