PROCEDURE FunctionX LPARAMETERS WeekNb, nYear LOCAL FDOY, inc FDOY = Date (nYear, 1, 1) inc = 8 - DOW (FDOY, 2) IF (inc < 7) FDOY = FDOY + inc ENDIF RETURN FDOY + (WeekNb - 2) * 7