FUNCTION DaysInMonth LPARAMETERS tdDate LOCAL ldTemp ldTemp = DATE(YEAR(tdDate), MONTH(tdDate), 15) ldTemp = ldTemp + 25 ldTemp = DATE(YEAR(ldTemp), MONTH(ldTemp), 1) RETURN DAY(ldTemp - 1) ENDFUNC