FOR iNumber = 1 TO 31 ? " " + TRANSFORM( iNumber ) + fOrdinal( iNumber ) NEXT iNumber **************************** FUNCTION fOrdinal( iNumber ) **************************** RETURN IIF( NOT BETWEEN( iNumber, 11, 13 ) AND BETWEEN( MOD(iNumber,10), 1, 3 ) ; , SUBSTR( "stndrd", (MOD(iNumber,10) * 2) -1, 2 ) ; , "th" )