將所選的日期時間與Excel VBA中的日期和時間選擇器進行比較

Question

因此，我有一個多頁表單，該表單使用名為StartDate和EndDate的兩個“日期和時間選擇器”控件。 我想確保用戶在輸入EndDate之后不要輸入StartDate。 我有以下問題。 StartDate.value最初是“”還是為空？ StartDate返回的是字符串還是日期？ 這是我到目前為止所擁有的。

附帶一提，即使在閱讀了文檔之后，我對這行代碼也有些困惑。

emptyRow = Application.WorksheetFunction.CountA（Range（“ A：A”））+ 1

Private Sub StartDate_Change()
Dim emptyRow As Long
'Submits the date in the first empty row immediately since the form does not retain datepicker data after the page changes.
If (EndDate.Value) <> "" And CDate(StartDate.Value) >= CDate(EndDate.Value) Then
MsgBox ("Please enter a valid date")
MultiPage1.Value = 4


Else
Sheet1.Activate
emptyRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(emptyRow, 18).Value = StartDate.Value

End If
End Sub

Answer 1

DateTimePickers返回Dates 。

如果要測試EndDate大於StartDate，則可以使用如下代碼來解決問題：

(StartDate.Value < EndDate.Value)