... KTNgay > 30 Then MsgBox "Ngay khong hop le! thang " & (Mid(ngay, 4, 2)) & _ Đồ án tốt nghiệp Gvhd: Nguyễn Kim Anh Đỗ Thị Liên - Lớp TH40 Trang 59 II. Sơ đồ thiết kế ... adOpenKeyset, adLockOptimistic, adCmdText If rs.EOF = True Then Đồ án tốt nghiệp Gvhd: Nguyễn Kim Anh Đỗ Thị Liên - Lớp TH40 Trang 63 so = CInt(Val(Trim(Right(ngay, 4)))) KTNgay = CInt(Val(Left(ngay, ... CInt(Val(Trim(Mid(ngay, 4, 2)))) Case 1, 3, 5, 7, 8, 10, 12 If KTNgay < 1 Or KTNgay > 31 Then MsgBox " Thang " & Mid(ngay, 4, 2) & " co 31 ngay", vbOKOnly + vbExclamation,...