Question

有谁知道如何将月份名称转换成3个字母的缩写？例如，如果月份是9月，那么它应该仅返回9月。我一直在网上搜索但不幸得到了答案。谢谢！

Answer 1

尝试使用以下

Sub test()
    Dim a As String
    a = Format("11/10/2015", "MMM")
    MsgBox a
End Sub

或

Sub test()
    Dim a As String
    a = Format(Now(), "MMM")
    MsgBox a
End Sub

如果您将月份名称作为变量，那么

Sub test()
    Dim a As String
    a = "February"
    MsgBox Mid(a, 1, 3)
End Sub

Answer 2

始终如一的是创造自己的功能，例如：

Function Month2Mon(month) As String
    Select Case LCase(month)
    Case "january": Month2Mon = "Jan"
    Case "february": Month2Mon = "Feb"
    ...
End Function

Answer 3

你也可以试试这个：

Sub Demo()
    Dim MonthName As String
    MonthName = "September"
    MsgBox Format(DateValue("01 " & MonthName & " 2012"), "MMM")
End Sub

此解决方案源自@ {SiddhartRout的here答案。

将月份名称转换为3个字母的缩写

3 个答案: