Chuyển dữ liệu ngày tháng xuất từ phần mềm không đúng định dạng ngày tháng Excel

[huonglien1901]

Máy mình ra năm 2019
Thử thêm năm đầy đủ xem còn bị không

Function Date_Change(ByVal sArr As Variant) As Variant
  Dim Res(), i As Long, sRow As Long

  sRow = UBound(sArr)
  ReDim Res(1 To sRow, 1 To 1)
  For i = 1 To sRow
    tmp = sArr(i, 1)
    If TypeName(tmp) = "String" And Len(tmp) = 8 Then
      Res(i, 1) = DateValue(20 & Mid(tmp, 7, 2) & "/" & Mid(tmp, 4, 2) & "/" & Mid(tmp, 1, 2))
    ElseIf IsDate(tmp) Then
      Res(i, 1) = DateValue(Year(tmp) & "/" & Day(tmp) & "/" & Month(tmp))
    End If
  Next i
  Date_Change = Res
End Function

Anh ơi cho em hỏi khi sang năm khác thì sửa code lại như thế nào vậy Anh?
Em ví dụ: Năm 2021, 2022......

Em cảm ơn Anh nhiều!

 

[HieuCD]

Anh ơi cho em hỏi khi sang năm khác thì sửa code lại như thế nào vậy Anh?
Em ví dụ: Năm 2021, 2022......

Em cảm ơn Anh nhiều!

Function dùng cho năm nào cũng được, tuy nhiên chỉ dùng cho dạng dữ liệu theo bài nầy