Vergleichen Sie drei Termine in VBA

Question

Hallo der Code, den ich hatte arbeitete bis das neue Jahr und dann denke ich, wenn es Dezember 2016 mit Jan 1 Daten durch Verwendung von String und nicht date Objekte hatte ich ein Problem hatte. Ist das richtig oder ist es die Logik, die ich verwende, und gibt es einen besseren Weg, dies zu tun?

Dim MAX_DATE As String 
MAX_DATE = Format(Now, "mmddyy") 
Dim MIN_DATE As String 
MIN_DATE = Format(Now - 20, "mmddyy") 
If Not objP.CollDateFormat >= MIN_DATE And objP.CollDateFormat <= MAX_DATE Then 
      Dim szMessage As String 
      szMessage = "Collection Date is in the past" 

    Exit Function 
End If 

Answer 1

Dies funktioniert zu vergleichen, wenn ein Datum innerhalb eines Tages von vor 20 Tagen bis heute ist.

Option Explicit 

Sub ff() 

    Dim SomeDate As Date 
    'Here you will insert the code for the actual date 
    'or just change the SomeDate text in the if statement to you objP.CollDateFormat 
    SomeDate = DateSerial(2016, 12, 30) 



    Dim MAX_DATE As Date 
    MAX_DATE = Now 
    Dim MIN_DATE As Date 
    MIN_DATE = Now - TimeSerial(480, 0, 0) '480 hours is 20 days 


    If Not SomeDate >= MIN_DATE And SomeDate <= MAX_DATE Then 
     Dim szMessage As String 
     szMessage = "Collection Date is in the past" 
     'Exit Function 
    End If 


End Sub