DATEG1/DATEG2/DATEG3

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

7.4.3 DATEG1/DATEG2/DATEG3

1.

Function

Calculates the number of days that has elapsed.
DATEG1 : Calculates the number of days (N) that has elapsed between IDATE and NDATE.
DATEG2 : Calculates the number of days (N) that has elapsed between IY,ITD and NY,NTD.
DATEG3 : Calculates the number of days (N) that has elapsed between IY,IM,ID and NY,NM,ND.

2.

Call

CALL DATEG1(N,IDATE,NDATE)
CALL DATEG2(N,IY,ITD,NY,NTD)
CALL DATEG3(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): The number of days can also be calculated towards a past date. In other words, the number of elapsed days N may take a negative value.

`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.