converting Month Name to Month Number (1 Viewer)
- Thread starter lala
- Start date
boblarson
Smeghead
- Local time
- Yesterday, 23:56
- Joined
- Jan 12, 2001
- Messages
- 32,059
I've always just used a custom function:
Code:
Function RetMonthNum(strMonthName As String) As Integer
Select Case strMonthName
Case "January", "Jan"
RetMonthNum = 1
Case "Februrary", "Feb"
RetMonthNum = 2
Case "March", "Mar"
RetMonthNum = 3
Case "April", "Apr"
RetMonthNum = 4
Case "May"
RetMonthNum = 5
Case "June", "Jun"
RetMonthNum = 6
Case "July", "Jul"
RetMonthNum = 7
Case "August", "Aug"
RetMonthNum = 8
Case "September", "Sep"
RetMonthNum = 9
Case "October", "Oct"
RetMonthNum = 10
Case November", "Nov"
RetMonthNum = 11
Case December", "Dec"
RetMonthNum = 12
End Select
End FunctionOr
Dim Mnth As String
Mnth = "December"
MsgBox Month(CDate(Mnth & " 1," & Year(Now)))
If you want the Month number from a todays Date:
MsgBox Month(Now) ' The Current Month Number.
If you want the Month number from a specific Date:
MsgBox Month(#8/7/2008#)
.
Dim Mnth As String
Mnth = "December"
MsgBox Month(CDate(Mnth & " 1," & Year(Now)))
If you want the Month number from a todays Date:
MsgBox Month(Now) ' The Current Month Number.
If you want the Month number from a specific Date:
MsgBox Month(#8/7/2008#)
.
