Monat Name in eine 3-Buchstaben-Abkürzung umwandeln

Question

Jeder weiß, wie man einen Monatsnamen in 3-Buchstaben-Abkürzung umwandeln kann? Wenn der Monat beispielsweise September ist, sollte nur Sep zurückgegeben werden. Ich habe im Netz gesucht, aber unglücklicherweise genug, um die Antwort zu haben. Vielen Dank!

Answer 1

mit Versuchen unter

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

oder

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

, wenn Sie die Monatsnamen als Variable haben, dann

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

Answer 2

Was wird immer arbeiten, um Ihre eigene Funktion zu machen, zB :

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

Answer 3

Sie können auch versuchen, diese:

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

Diese Lösung wird abgeleitet von @ SiddhartRout Antwort von here.