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
>