>FUNCTION MyMonthName(tnMonth) > >RETURN GETWORDNUM("January,February,March,April,May,June,July,August,September,October,November,December", tnMonth, ",") >>
>>FUNCTION MyMonthName(tnMonth) >>if type("tnMonth") = date() >> tnMonth = month(tnMonth) >>endif >>do case >>case tnMonth = 1 >> return "January" >>case tnMonth = 2 >> return "February" >>... >>case tnMonth = 12 >> return "December" >>otherwise >> return "Error calculating month" >>endcase >>