Month name from Date or Month number

MonthName.clw

MonthName PROCEDURE(LONG DateOrMonth),STRING  !Pass Clarion Date or Month Number 1 to 12 - Month name from @d04 
MonthName2 PROCEDURE(LONG DateOrMonth),STRING  !Pass Clarion Date or Month Number 1 to 12 - Month name English Only

MonthName PROCEDURE(LONG DateOrMonth)!,STRING
N STRING(32),AUTO
  CODE
  IF DateOrMonth <= 12 THEN 
     DateOrMonth=DATE(DateOrMonth,1,2000)
  END
  N=FORMAT(DateOrMonth,@d04)          !Format Month ##, YYYY
  RETURN SUB(N,1,INSTRING(',',N)-4) 
    
MonthName2 PROCEDURE(LONG DateOrMonth)!,STRING
  CODE
  IF DateOrMonth > 12 THEN 
     DateOrMonth=MONTH(DateOrMonth)
  END
  RETURN CHOOSE(DateOrMonth,'January','February','March','April','May','June','July','August','September','October','November','December','')