Công thức chuyển đổi tháng ngày năm thành ngày tháng năm (2 người xem)

[HiLander]

Chào các Anh/Chị,

Anh/Chị hướng dẫn công thức chuyển đổi tháng ngày năm thành ngày tháng năm

Cảm ơn Anh/Chị

 

[batman1]

Anh/Chị hướng dẫn công thức chuyển đổi tháng ngày năm thành ngày tháng năm

Diễn đạt chưa chuẩn. Tại sao thì đọc ***.

Hiện tại trong cột E nhìn thấy có vẻ là ngày tháng nhưng thực ra chỉ là text. Nếu ý là đã có ngày tháng "nhái" (text giả bộ ngày tháng) và muốn chuyển thành ngày tháng "xịn" thì: chọn toàn bộ dữ liệu trong cột E -> thẻ Data -> chọn Text to columns -> Next -> Next -> chọn option Date -> trong combo bên cạnh chọn MDY -> Finish

*** Hiện tại ngày tháng "nhái" có dạng tháng ngày năm thì đúng rồi. Nhưng mục đích phải là thành ngày tháng thực sự. Còn dạng thực sự thế nào là do system quyết định. Trên máy tôi nó là năm tháng ngày chứ không phải là ngày tháng năm.

 

[SA_DQ]

Hay bạn muốn, có thể xài hàm tự tạo này cho dữ liệu dạng Text:

Function TxtToDate(StrC As String) As Date
Dim VTr As Integer, Nm As Integer, Th As Byte, Ng As Byte
Const FC As String = "/"

If Len(StrC) < 7 Or Len(StrC) > 10 Then
    MsgBox "Nhâp Ngày Không Chính Xác!", , "GPE.COM Xin Chào!"
Else
    Nm = CInt(Right(StrC, 4)):                          VTr = InStr(StrC, FC)
    If VTr Then
        Ng = CByte(Left(StrC, VTr - 1)):                StrC = Mid(StrC, VTr + 1, 3)
        VTr = InStr(StrC, FC):                          Th = CByte(Left(StrC, VTr - 1))
        TxtToDate = DateSerial(Nm, Th, Ng)
    End If
End If
End Function

Nhưng mình thấy chúng là số liệu chỉ ngày-tháng-năm rồi mà; Bạn chỉ cần định dạng lại theo í của bạn thôi

& chúc vui nhân những ngày cuối tuần!

 

[HiLander]

Chào anh Batman 1,

cảm ơn anh rất nhiều

Chúc anh cuối tuần vui vẻ