Chuyển đổi định dạng ngày tháng năm

[quick87]

Nhờ cả nhà hỗ trợ chuyển giúp dữ liệu ngày tháng năm tại Cột H về giá trị như tại Cột I như trong file đính kèm.



Em cảm ơn mọi người!

 

[HeSanbi]

Bạn có thể sử dụng hàm DateStandard tự tạo dưới đây
=DateStandard(H2,0)

Function DateStandard(ByVal strDate$, Optional currentDateOrder% = 1, Optional DateSeparator$ = "/") As Date
  Dim d%, y%, m%, a, p, t As Date
  'dod = Application.International(32)
  '0 = month-day-year, 1 = day-month-year, 2 = year-month-day
  a = Split(trim(strDate), " ", 2): p = Split(a(0), DateSeparator)
  If UBound(a) > 0 Then t = CDate(a(1))
  Select Case currentDateOrder
  Case 0: y = p(2): m = p(0): d = p(1)
  Case 1: y = p(2): m = p(1): d = p(0)
  Case 2: y = p(0): m = p(1): d = p(2)
  End Select
  DateStandard = DateSerial(y, m, d) + t
End Function

 

[chiendich]

Nhờ cả nhà hỗ trợ chuyển giúp dữ liệu ngày tháng năm tại Cột H về giá trị như tại Cột I như trong file đính kèm.

View attachment 287332

Em cảm ơn mọi người!

Cần gì phải code.
Dùng Text-to-Columns xem sao!

 

[Nhattanktnn]

Nhờ cả nhà hỗ trợ chuyển giúp dữ liệu ngày tháng năm tại Cột H về giá trị như tại Cột I như trong file đính kèm.

View attachment 287332

Em cảm ơn mọi người!

Nghịch công thức chút cho vui:

=--TEXT(SUM(TRIM(MID(SUBSTITUTE(H4,"/",REPT(" ",20)),{1,21,41},20))*("1e"&{4,6,0})),"00-00-0000")

 

[LmoovoenX]

Góp vui 1 cái. Cũng không biết có chạy được ở excel 2016 không nữa.

=TEXT(--CONCAT(MID(H4,IFERROR(FIND("/",H4,{1,"",4})+1,1),FIND("/",H4,{4,1,4})-IFERROR(FIND("/",H4,{1,"",""}),0)-1)&{"/","/",""}),"dd/mm/yy")

 

[Maika8008]

Góp vui 1 cái. Cũng không biết có chạy được ở excel 2016 không nữa.

=TEXT(--CONCAT(MID(H4,IFERROR(FIND("/",H4,{1,"",4})+1,1),FIND("/",H4,{4,1,4})-IFERROR(FIND("/",H4,{1,"",""}),0)-1)&{"/","/",""}),"dd/mm/yy")

Cái hàm Concat này nhìn nó thấy buồn cười quá

 

[quick87]

Chân thành cảm ơn mọi người đã giúp đỡ!