Làm thế nào để nhanh chóng chuyển đổi ngày thành từ trong Excel?

Nói chung, chúng ta thường chuyển đổi ngày tháng sang các định dạng ngày tháng hoặc chữ số khác trong Excel, nhưng bạn đã bao giờ gặp sự cố về việc chuyển đổi ngày tháng sang các từ tiếng Anh như hình minh họa bên dưới chưa? Trên thực tế, không có chức năng tích hợp nào có thể xử lý nó ngoài một mã VBA.

Chuyển đổi ngày thành từng từ với Hàm xác định

Chuyển đổi ngày thành từng từ với Hàm xác định

Đây là một đoạn mã macro có thể giúp bạn chuyển đổi ngày tháng sang từ ngữ.

1. Bật trang tính bạn sử dụng và nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đun và dán mã bên dưới vào tập lệnh.

VBA: Chuyển ngày thành từ

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. Lưu mã và quay lại trang tính, chọn một ô mà bạn sẽ xuất kết quả, nhập công thức này = DateToWords (A2) (A2 là ngày bạn sử dụng), nhấn đăng ký hạng mục thi và kéo chốt tự động điền vào các ô bạn cần. Xem ảnh chụp màn hình:

Các bài báo tương đối:

• Làm thế nào để nhanh chóng chuyển đổi định dạng ngày giữa châu Âu và Mỹ trong Excel?
• Làm thế nào để chuyển đổi dD.MM.YYYY sang định dạng ngày (mM / DD / YYYY) trong Excel?
• Làm thế nào để chuyển đổi giữa ngày và dấu thời gian Unix trong Excel?