Thì dùng hàm TEXT thôiMình muốn chuyển đổi dữ liệu kiểu ngày tháng sang kiểu xâu như sau:
12/05/2010 thành kiểu xâu: 12/5/10
Xin các pác giúp đỡ
Option Explicit
Function DateToString(Dat As Date) As String
Const GN As String = "/"
DateToString = Right("0" & CStr(Day(Dat)), 2) & GN
DateToString = DateToString & Right("0" & CStr(Month(Dat)), 2) & GN
DateToString = DateToString & CStr(Year(Dat) Mod 100) & "."
End Function
VBA có hàm Format, chẳng hiểu sao sư phụ lại không dùng mà cực khổ với mấy cái LEFT với RIGHT (lại còn MOD nữa...)PHP:Option Explicit Function DateToString(Dat As Date) As String Const GN As String = "/" DateToString = Right("0" & CStr(Day(Dat)), 2) & GN DateToString = DateToString & Right("0" & CStr(Month(Dat)), 2) & GN DateToString = DateToString & CStr(Year(Dat) Mod 100) & "." End Function
Function DateToString(Dat As Date) As String
DateToString = Format(Dat, "d/m/yy")
End Function
Ẹc.. Ẹc... Bắt giò sư phụ chơi cái coi
Function DateToString(Dat As Date) As String
DateToString = Format(Dat, "Dd/Mm/yy") & "."
End Function
Thực ra hai cách này là khác nhau đó bạn. Khi bạn nhìn trên màn hình, có thể giống nhau đấy, nhưng một cái là kiểu số, cái kia là kiểu xâu nên về bản chất, chúng rất khác nhau.Bạn dùng thử cách này, không phải dùng công thức nào cả. Chuột phải/Format/Custom/Trong mục Type bạn gõ:d/m/yy rồi bấm OK là được. Có thể đổi các kiểu dữ liệu ngược xuôi của ngày, tháng, năm ;năm, tháng, ngày hoặc loại bỏ dấu phân cách....
Đây cũng là cách mình hay dùng.
Bạn thử gõ ô A1 là 30/09/2010, ô A2=Text(A1,"d/M/yy"), B1=A1&"ABC" và copy công thức của B1 cho B2. Cuối cùng, so sánh B1 và B2, bạn sẽ nhận ra sự khác biệt này.Mình muốn chuyển đổi dữ liệu kiểu ngày tháng sang kiểu xâu như sau