Private Sub dtbCheck_ValueChanged
If dtbCheck.Value.AddDays(-1) > dtpDateWithdraw.Value Then
MessageBox.Show("เวลาเริ่มต้นต้องน้อยกว่าเวลาสิ้นสุด", "แจ้งเตือน")
End If
End Sub
Private Sub sDate_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sDate.ValueChanged
Dim sDate, eDate As Date
sDate = Format(Me.sDate.Value, "yyyy-MM-dd")
eDate = Format(Me.eDate.Value, "yyyy-MM-dd")
If DateDiff(DateInterval.Day, sDate, eDate) < 0 Then
MessageBox.Show("เวลาเริ่มต้นต้องน้อยกว่าเวลาสิ้นสุด", "Result of the inspection", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub