dotrung > 31-05-22, 11:27 PM
AnNguyen > 01-06-22, 08:55 AM
Public Function Suangay(str)
If str <> "" Then
Dim nam As Integer, thang As Integer, ngay As Integer, thoiGian As Date, ngayCuoiThang As Integer
vitri1 = InStr(1, str, "/")
vitri2 = InStr(vitri1 + 1, str, "/")
ngay = Left(str, vitri1 - 1)
thang = Mid(str, vitri1 + 1, vitri2 - vitri1 - 1)
nam = Right(str, 4)
If ngay = 0 Or thang = 0 Or nam = 0 Or thang > 12 Then
MsgBox "ngày khong hop le"
Else
ngayCuoiThang = Day(DateAdd("m", 1, DateSerial(nam, thang, 1)) - 1)
If ngay > ngayCuoiThang Then
ngay = ngayCuoiThang
End If
Suangay = DateSerial(nam, thang, ngay)
End If
End If
End Function