Wie kann man Datum schnell in Worte in Excel umwandeln?

Normalerweise konvertieren wir in Excel ein Datum in andere Datumsformate oder Ziffern, aber sind Sie jemals auf das Problem gestoßen, ein Datum in englische Worte wie im folgenden Screenshot zu konvertieren? Tatsächlich gibt es keine integrierte Funktion, die dies bewältigen kann, außer einem VBA-Code.

Datum mit definierter Funktion in Worte umwandeln

Datum mit definierter Funktion in Worte umwandeln

Hier ist ein Makrocode, der Ihnen bei der Umwandlung von Daten in Worte helfen kann.

1. Aktivieren Sie das Arbeitsblatt, das Sie verwenden, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Skript ein.

VBA: Datum in Worte umwandeln

Function DateToWords(ByVal xRgVal As Date) As String
' Update by Extendoffice on 20240926
    Dim xYear As String
    Dim Hundreds As String
    Dim Decades As String
    Dim xTensArr As Variant
    Dim xOrdArr As Variant
    Dim xCardArr As Variant
    
    ' Initialize arrays
    xOrdArr = Array("First", "Second", "Third", "Fourth", "Fifth", "Sixth", _
                    "Seventh", "Eighth", "Ninth", "Tenth", "Eleventh", "Twelfth", _
                    "Thirteenth", "Fourteenth", "Fifteenth", "Sixteenth", _
                    "Seventeenth", "Eighteenth", "Nineteenth", "Twentieth", _
                    "Twenty-first", "Twenty-second", "Twenty-third", "Twenty-fourth", _
                    "Twenty-fifth", "Twenty-sixth", "Twenty-seventh", "Twenty-eighth", _
                    "Twenty-ninth", "Thirtieth", "Thirty-first")
    
    xCardArr = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                    "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", _
                    "Seventeen", "Eighteen", "Nineteen")
    
    xTensArr = Array("Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    
    ' Extract year
    xYear = CStr(Year(xRgVal))
    Decades = Mid$(xYear, 3)
    
    ' Handle decades
    If CInt(Decades) < 20 Then
        Decades = xCardArr(CInt(Decades))
    Else
        Decades = xTensArr(CInt(Left$(Decades, 1)) - 2) & "-" & xCardArr(CInt(Right$(Decades, 1)))
    End If
    
    ' Handle hundreds
    Hundreds = Mid$(xYear, 2, 1)
    If CInt(Hundreds) Then
        Hundreds = xCardArr(CInt(Hundreds)) & " Hundred "
    Else
        Hundreds = ""
    End If
    
    ' Construct English representation of the date
    DateToWords = xOrdArr(Day(xRgVal) - 1) & " " & Format$(xRgVal, "mmmm") & " " & _
                  xCardArr(CInt(Left$(xYear, 1))) & " Thousand " & Hundreds & Decades
End Function

3. Speichern Sie den Code und kehren Sie zum Arbeitsblatt zurück, wählen Sie eine Zelle aus, in der Sie das Ergebnis ausgeben möchten, und geben Sie diese Formel ein. =DateToWords(A2) (A2 ist das Datum, das Sie verwenden), drücken Sie die Eingabetaste und ziehen Sie den automatischen Ausfüllgriff über die Zellen, die Sie benötigen. Siehe Screenshot:

Verwandte Artikel:

• Wie konvertiert man schnell zwischen europäischem und US-Datumsformat in Excel?
• Wie konvertiert man TT.MM.JJJJ in ein Datumsformat (MM/TT/JJJJ) in Excel?
• Wie konvertiert man zwischen Datum und Unix-Zeitstempel in Excel?