=IFERROR(CHOOSE(A:A;"January";"February";"March";"April";"May";"June";"July";"Agust";"September";"October";"November";"December");"شماره ماه صحيح نمي باشد")
=IF(AND(A1>=1,A1<=12),TEXT(DATE(2000,A1,1),"mmmm"),"#شماره ماه صحيح نمي باشد#")
=IF(A1=1,"January",IF(A1=2,"February",IF(A1=3,"March",IF(A1=4,"April",IF(A1=5,"May",IF(A1=6,"June",IF(A1=7,"July",IF(A1=8,"Agust",IF(A1=9,"September",IF(A1=10,"October",IF(A1=11,"November",IF(A1=12,"December","#شماره ماه صحيح نمي باشد#"))))))))))))
Function MONTHNAME(m_id As Byte) Select Case m_id Case 1: MONTHNAME = "January" Case 2: MONTHNAME = "February" Case 3: MONTHNAME = "March" Case 4: MONTHNAME = "April" Case 5: MONTHNAME = "May" Case 6: MONTHNAME = "June" Case 7: MONTHNAME = "July" Case 8: MONTHNAME = "Agust" Case 9: MONTHNAME = "September" Case 10: MONTHNAME = "October" Case 11: MONTHNAME = "November" Case 12: MONTHNAME = "December" Case Else: MONTHNAME = "#شماره ماه صحيح نمي باشد#" End Select End Function
Leave a comment: