Public Function SuaNgay(NgayBatKy)
' Original Design 2002
If Not IsDate(NgayBatKy) Then
MsgBox "Ngaøy khoâng hôïp leä"
SuaNgay = Date
Else
WorkString = NgayBatKy
WPosition = InStr(1, WorkString, "/")
WDD = Left(WorkString, WPosition - 1): WorkString = Mid(WorkString, WPosition + 1)
WPosition = InStr(1, WorkString, "/")
If WPosition = 0 Then
WMM = WorkString: WYY = Year(Date)
Else
WMM = Left(WorkString, WPosition - 1): WYY = Mid(WorkString, WPosition + 1)
End If
SuaNgay = DateSerial(WYY, WMM, WDD)
End If
Thứ Sáu, 1 tháng 4, 2016
VBA Excel - Hàm sửa ngày
Penulis Shop online
Diterbitkan 17:11
Artikel Terkait
Đăng ký:
Đăng Nhận xét (Atom)
EmoticonEmoticon