将范围转换为整数

Question

在以下代码中，char是包含月份名称的范围。 CalendarMonths也是一个范围。

我需要将这些名称翻译成月份数，但是使用endDate函数的以下方法会返回＆＃34;类型不匹配＆＃34;错误（即使我跳过Month）：

CInt

Answer 1

如果您有一个月String并希望转换为Long：

Sub skjdffhs()
    Dim s As String, n As Long
    s = "January"
    n = Month(CDate("1 " & s & " 2000"))
    MsgBox n
End Sub

（这是针对美国语言环境）