VBNet Datum Vergleichen

Derzeit habe ich diesen code.

Dim iCurrentDate As Date = Now
Dim iStartDate As Date = CDate(dtFrom.Text)
Dim iEndDate As Date = CDate(dtTo.Text)

If (iCurrentDate > iStartDate) And (iCurrentDate < iEndDate) Then
    Console.WriteLine("Current date is within the range.")
    'Other Codes here
Else
    Console.WriteLine("Current date is in the range.")
    'Other Codes here
End If

ODER

Dim iObj As Object = IIf((iCurrentDate > iStartDate) And (iCurrentDate < iEndDate), "Current date is within the range.", "Current date is in the range.")
Console.WriteLine(iObj.ToString)
'Other Codes here

Gibt es Ersatz im obigen code? Wie BETWEEN in sql-Abfragen?

InformationsquelleAutor John Woo | 2012-01-05
  1. 6

    Da ist nichts eingebaut, aber könnte man eine extension-Methode:

    <Extension()> _
Public Function IsBetween(theDate As DateTime, minDate As DateTime, maxDate As DateTime) As Boolean
    Return theDate > minDate AndAlso theDate < maxDate
End Function

    Dann können Sie es wie folgt:

    If iCurrentDate.IsBetween(iStartDate, iEndDate) Then
    Console.WriteLine("Current date is within the range.")
    'Other Codes here
Else
    Console.WriteLine("Current date is not in the range.")
    'Other Codes here
End If

    Oder so:

    Console.WriteLine(If(iCurrentDate.IsBetween(iStartDate, iEndDate), _
                     "Current date is within the range.", _
                     "Current date is not in the range."))
    InformationsquelleAutor Meta-Knight
  2. 2

    Nein, es gibt keine ZWISCHEN-operator in .NETZ, sind Sie wirklich nicht vorhanden sind?

    Hinweis:

    Sie könnte/sollte verwenden, WENN statt des IIF.

    Dim message = _
    If((iCurrentDate > iStartDate) AndAlso (iCurrentDate < iEndDate), _
    "Current date is within the range.", _
    "Current date is not in the range.")
    • Es ist schneller: der zweite Teil wird nur bewertet werden, wenn zuerst false keine boxing/unboxing
    • Es ist sicherer: keine NullRefernceException, weil Sie vergessen haben, vor
    • Es ist besser lesbar und type-safe
    InformationsquelleAutor Tim Schmelter
  3. 1

    Es ist kein direkter Ersatz, die ich gesehen habe, etwas das mit einer select case-obwohl:

    Select Case iCurrentDate
    Case iStartDate To iEndDate
        'is between
    Case Else
        'is not
End Select

    Ich habe nie so etwas wie, dass, obwohl. Ich bin nicht sicher, was sein Ursprung ist. Ich in der Regel gehen Sie mit einer geringfügigen änderung, um Ihren code, mit AndAlso:

       If (iCurrentDate > iStartDate) AndAlso (iCurrentDate < iEndDate) Then
            Console.WriteLine("Current date is within the range.")
            'Other Codes here
        Else
            Console.WriteLine("Current date is in the range.")
            'Other Codes here
        End If
    • Interessant, ich wusste nicht, dass Sie einen Vergleich mit Daten in einer Select Case wie dieses. Eine Sache zu beachten ist, dass es auf bestem Wege begraben umfasst sowohl iStartDate und iEndDate, so ist es gleichbedeutend mit: If iCurrentDate >= iStartDate AndAlso iCurrentDate <= iEndDate
    • Ja, das habe ich nie getestet. Ich bin nicht sicher, ob es gut oder schlecht der Praxis habe ich noch nie in der Lage zu finden, eine Dokumentation.
    • Ich nehme an, es ist keine schlechte übung, aber es ist begrenzt, weil man kann nicht ausschließen, dass der start und/oder Enddatum aus dem Bereich. In der Regel in meinem Datum Vergleiche, ich würde das start-Datum, aber nicht das Enddatum, so wäre ich nicht in der Lage, verwenden Sie eine Select Case-direkt.
    InformationsquelleAutor Jay
Schreibe einen Kommentar