DATEF1/DATEF2/DATEF3

DCL:MISC１:DATELIB : Handling of Dates *#:Explanation of Subroutines

7.4.2 DATEF1/DATEF2/DATEF3

1.

Function

Calculates the date of Nth day after a given date.
DATEF1 : Calculates the Nth day after IDATE (NDATE).
DATEF2 : Calculates the Nth day after IY,ITD (NY,NTD).
DATEF3 : Calculates the Nth day after IY,IM,ID (NY,NM,ND).

2.

Call

CALL DATEF1(N,IDATE,NDATE)
CALL DATEF2(N,IY,ITD,NY,NTD)
CALL DATEF3(N,IY,IM,ID,NY,NM,ND)

3.

Explanation of Parameters

IDATE, NDATE (I) Type 1 date.

IY, NY (I) Year.

IM, NM (I) Month.

ID, ND (I) Day.

ITD, NTD (I) Serially-counted day.

N (I) Number of elapsed days.

4.

Notes

(a): A negative value can be specified for N. In other words, for a negative N, the Nth day before a given date is calculated.

`IDATE, NDATE`	`(I)`	Type 1 date.
`IY, NY`	`(I)`	Year.
`IM, NM`	`(I)`	Month.
`ID, ND`	`(I)`	Day.
`ITD, NTD`	`(I)`	Serially-counted day.
`N`	`(I)`	Number of elapsed days.