Vergleichen DateDiff Ausgabe

Question

Ich muss 2 Daten vergleichen, um herauszufinden, ob ein Computer EOL oder sehr EOL ist. Eine andere Art von Text hängt davon ab, ob es sich um ein EOL oder VEOL handelt.

Aktuelles Datum ist 29-08-2016 Ex. 1 lstrValue = 31-12-2016 = 4 Bsp. 2 lstrValue = 31-07-2016 = -1

select case DateDiff("m",Date,CDATE(lstrValue)) 
    case 1, 2, 3 
     bEOL = true 
    case else 
     bVeryEOL = true 
end select 

Das Problem in meinem exampel ist, dass, wenn DatDiff entweder 4, 5, 6, ect die bVeryEOL wahr ist. Das ist nicht was ich suche. Ich bin nur für bVeryEOL suchen, ist wahr, wenn die datediff negativ ist

Answer 1

Ich glaube, Sie suchen nach etwas, wie diese, dann:

EDIT: den Code geändert, weil frühere ungültig VBScript war

Dim strResult : strResult = DateDiff("m",Date,CDATE(lstrValue)) 
Select case strResult 
    Case 1, 2, 3 
     bEOL = true 
    Case Else 
     If strResult < 0 Then 
      bVeryEOL = True 
     Else 
      'add logic 
     End If 
End select