1*----------------------------------------------------------------------- 2* NDATE2 3*----------------------------------------------------------------------- 4* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. 5*----------------------------------------------------------------------- 6 INTEGER FUNCTION NDATE2(IY,ITD,NY,NTD) 7 8 9 CALL DATEG2(NDATEX,IY,ITD,NY,NTD) 10 NDATE2=NDATEX 11 12 END 13