我有兩個 datepicker，分別是 datepickerFrom 和 datepickerto。我想在用戶選擇超過 1 天并選中半天復選框然后單擊按鈕提交時顯示錯誤訊息，它將顯示錯誤訊息。
例如：A 選擇 2022 年 1 月 6 日 - 2022 年 3 月 6 日，然后單擊復選框半天。當 A 單擊提交按鈕時，它會顯示一條錯誤訊息，例如“抱歉，半天您不能選擇超過 1 個日期！”
這是我檢查錯誤的代碼
Private Function ErrorFree() As Boolean
If datepickerFrom.Date > datepickerto.Date Then
If chkHalfDay.Checked = True Then
DisplayMessage("error", "ERROR", "Sorry, You can't pick more than 1 date for half day!")
Return False
Exit Function
End If
End If
Return True
End Function
uj5u.com熱心網友回復：
我終于得到了答案！所以這里是代碼。然后我呼叫 datepickerFrom_DateChanged 和 datepickerto_DateChanged 中的函式。
Private Function CalculateDaysBetweenDates() As Integer
Dim dateFrom As DateTime = Convert.ToDateTime(datepickerFrom.Date)
Dim dateTo As DateTime = Convert.ToDateTime(datepickerto.Date)
Dim ts As TimeSpan = dateTo.Subtract(dateFrom)
If Convert.ToInt32(ts.Days) > 0 Then
radHalfday.Enabled = False
Else
radHalfday.Enabled = True
End If
Return 1
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/486446.html
上一篇：SQL表到陣列以檢查VB表單