Chuyển ngày dạng text về dạng date

[Tran Mui]

Tôi có một file dữ liệu trong cột ngày sinh vừa dạng text lại vừa dạng date
mong muốn chuyển toàn bộ về dạng date
Rất mong GPE giúp đỡ
Cám ơn trước
File ví dụ đính kèm

 

[hoangdanh282vn]

Bạn dùng hàm Value để chuyển đổi nha.

E8=VALUE(C8)

Sau đó định dạng lại ô E8 về dạng "dd/mm/yyyy" là được.

 

[MinhCong]

Tôi có một file dữ liệu trong cột ngày sinh vừa dạng text lại vừa dạng date
mong muốn chuyển toàn bộ về dạng date
Rất mong GPE giúp đỡ
Cám ơn trước
File ví dụ đính kèm

Bạn bấm chọn cột chứa dữ liệu và bấm ctrl+H đổi dấu "-" thành dấu "/" là xong.

 

[ndu96081631]

Bạn bấm chọn cột chứa dữ liệu và bấm ctrl+H đổi dấu "-" thành dấu "/" là xong.

Đó là do "hên" thôi... Vì Control Panel trên máy bạn đang set Date Format = dd/mm/yy
Giả sử Date Format = mm/dd/yy mà bạn làm vậy cũng chẳng ăn thua gì
Nói với tác giả: Có lẽ bạn phải đưa thêm dử liệu lên (ít nhất cũng được 100 dòng) để có thể nhận xét về quy luật của dử liệu, nếu không thì khó mà cho 1 công thức chính xác

 

[comaynz]

Tôi đã coi dữ liệu của bạn Trần Mùi dữ liệu của ô ngày tháng bạn bị sai, do bước đầu bạn nhập đã không chỉnh hệ thống
Như bạn ndu96081631 phải chỉnh trong Control Panel
Giờ bạn bước 1 bạn chỉnh hệ thống về dạng dd/mm/yyyy
sau đó tại ô bạn muốn đổi dữ liệu bạn cũng chỉnh Format/cell về dạng dd/mm/yyyy
Bước 2 chỉ cần dủng hàm value

 

[chibi]

Nếu text của bạn có cấu trúc như ví dụ thì bạn có thể dùng hàm sau

Option Explicit
Function TextToDate(str As String) As Date
    Dim ngay As Integer
    Dim thang As Integer
    Dim nam As Integer
    Dim VTri As Integer
    ngay = Left(str, 2)
    thang = Mid(str, 4, 2)
    nam = 1900 + Right(str, 2)
    TextToDate = DateSerial(nam, thang, ngay)
End Function