アクセスVBA比較日が動作しない

Question

日付を比較する際に問題があります。私のコードのif文はendDateがそれほど小さくないと言っています。たとえば、endDateが2/20/2017で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

あなたの最初のコードブロックがうまく動作します。

テキストボックス（？）の形式を「短い日付」として設定しましたか？