persian_monthName

Description

This routine takes a number from 1 to 12 and returns the name of the corresponding Persian month.

Gory Details

For the Persian Calendar, translating a number into a month name is very simple. It just returns a string depending on the specified number. For numbers outside the 1-12 range, thr string "Error" is returned.

Code section

Function persian_MonthName(iMonth As Integer) As String
    Select Case iMonth
    Case 1
        persian_MonthName = "Farvardin"
    Case 2
        persian_MonthName = "Ordibehesht"
    Case 3
        persian_MonthName = "Khordad"
    Case 4
        persian_MonthName = "Tir"
    Case 5
        persian_MonthName = "Mordad"
    Case 6
        persian_MonthName = "Shahrivar"
    Case 7
        persian_MonthName = "Mehr"
    Case 8
        persian_MonthName = "Aban"
    Case 9
        persian_MonthName = "Azar"
    Case 10
        persian_MonthName = "Dey"
    Case 11
        persian_MonthName = "Bahman"
    Case 12
        persian_MonthName = "Esfand"
    Case Else
        persian_MonthName = "Error"
    End Select
End Function

See also

civil_monthName, Hebrew_MonthName , islamic_Monthname

Last update

Julian Day Number:2452153
Civil (Gregorian) date:Friday, 31 August 2001
Julian date:Friday, 18 August 2001
Hebrew date:yom shishi, 12 Elul 5761
Islamic date:Al-Jum'ah, 12 Jumada II 1422
Persian date:Jomeh, 9 Shahrivar 1380
Back to Calendar Math.
mail me
Kees Couprie
 Other pages by the same author.