FUNCTION MyMonthName(tnMonth) RETURN GETWORDNUM("January,February,March,April,May,June,July,August,September,October,November,December", tnMonth, ",")Regards,
>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 >