'
' MonthName - get the name of today's month
'
' Author: Joe Strazzere
'
Function MonthName$()
Select Case Month$()
Case "01"
MonthName$ = "January"
Case "02"
MonthName$ = "February"
Case "03"
MonthName$ = "March"
Case "04"
MonthName$ = "April"
Case "05"
MonthName$ = "May"
Case "06"
MonthName$ = "June"
Case "07"
MonthName$ = "July"
Case "08"
MonthName$ = "August"
Case "09"
MonthName$ = "September"
Case "10"
MonthName$ = "October"
Case "11"
MonthName$ = "November"
Case "12"
MonthName$ = "December"
Case Else
MonthName$ = "???"
EndSelect
EndFunction
msgbox(MonthName$(),,"MonthName")
