quocdung9999 > 21-05-16, 03:43 PM
ongke0711 > 21-05-16, 05:07 PM
Public Function ConvertToDate(ChuoiNgay As String) As Date
Dim Y As Integer, M As Byte, D As Byte
Y = Val(Left(ChuoiNgay, 4))
M = Val(Mid(ChuoiNgay, 5, 2))
D = Val(Right(ChuoiNgay, 2))
ConvertToDate = DateSerial(Y, M, D)
End Function
quocdung9999 > 23-05-16, 09:32 AM