Thanh Phương > 11-10-12, 10:22 PM
Thanh Phương > 12-10-12, 11:15 AM
Function ConvertDateVNUS(ByVal Ngay As String) As Date
On Error GoTo Loi
Dim NTN() As String: NTN = Split(Ngay, "/")
Dim DoiNgay As Date: DoiNgay = CDate(Ngay)
If CInt(NTN(0)) < 12 Then
ConvertDateVNUS = Format(DoiNgay, "dd/mm/yyyy")
Else
ConvertDateVNUS = ÐoiNgay
End If
Exit Function
Loi: ConvertDateVNUS = Empty
End Function