CLEAR FOR k=1 TO 12 ? k,QUARTER(DATE(2000,m.k,1)),QuarterX(DATE(2000,m.k,1)),FLOOR((m.k+2)/3) NEXT FUNCTION QuarterX PARAMETER tdDate PRIVATE m.result m.result = CEILING(MONTH(tdDate) / 4) IF MONTH(tdDate) % 4 = 0 m.result = m.result + 1 ENDIF RETURN m.resultFabio