Question

我无法比较日期。我的代码中的if语句表示endDate并不少，即使它是。例如，如果endDate是2017年2月20日和startDate 2/22/2017，则if语句表示endDate不是最小但是它是。

    Dim startDate As Date
    Dim endDate As Date

        startDate = DateValue(Me.dueDateTxt)
        endDate = DateValue(Me.shippedDate)

        If (endDate < startDate) Then
            Debug.Print "It is less"
        Else
            Debug.Print "not less"
        End If

我也试过

    If Me.dueDateTxt < Me.ShippedDate Then
    If CDate(startDate) < CDate(endDate) Then        
    If Format(startDate, "mm/dd/yyyy") < Format(endDate, "mm/dd/yyyy") Then
    If DateDiff(d, startDate, endDate) > 0 Then

我在某处遗漏了一些事先谢谢你的帮助！

编辑：我弄清楚问题是什么。我有一个消除假期和周末的功能。该函数正在交换我的startDate和endDate。感谢大家的帮助和建议。

Answer 1

你的第一段代码对我来说很好。

您是否已将文本框（？）的格式设置为＆＃39;短日期＆＃39;例如？

访问VBA比较日期不起作用

1 个答案: