戻る|進む

DCL:MISC１:DATELIB : 日付の取り扱い ＊☆:サブルーチンの説明

7.4.3 DATEG1/DATEG2/DATEG3

1.

機能

日付の差を求める.
DATEG1 : IDATEの何(N)日後がNDATEかを求める.
DATEG2 : IY,ITDの何(N)日後がNY,NTDかを求める.
DATEG3 : IY,IM,IDの何(N)日後がNY,NM,NDかを求める.

2.

呼び出し方法

CALL DATEG1(N,IDATE,NDATE)
CALL DATEG2(N,IY,ITD,NY,NTD)
CALL DATEG3(N,IY,IM,ID,NY,NM,ND)

3.

パラメーターの説明

IDATE, NDATE	(I)	1型の日付.
IY, NY	(I)	年.
IM, NM	(I)	月.
ID, ND	(I)	日.
ITD, NTD	(I)	通しの日付.
N	(I)	日付の差(日数).

4.

備考

(a)

過去にさかのぼって日付の差を求めることもできる. つまり日付の差としてNは負にもなりうる.