Datums vergelijken in vba (met voorbeelden)

U kunt de volgende basissyntaxis in VBA gebruiken om twee datums te vergelijken:

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

In dit specifieke voorbeeld worden de datums in de overeenkomstige cellen in de bereiken A2:A5 en B2:B5 vergeleken en wordt het resultaat van de datumvergelijkingen in het bereik C2:C5 geretourneerd.

Opmerking : de CDate- functie converteert de waarde van een bepaalde cel naar een datum.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: datums vergelijken in VBA

Stel dat we de volgende twee kolommen met datums in Excel hebben:

Stel dat we de datums in elke overeenkomende rij willen vergelijken en de datumvergelijkingsresultaten in kolom C willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

De resultaten van datumvergelijkingen worden nu weergegeven in kolom C.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: een blad sorteren op meerdere kolommen
VBA: het aantal rijen binnen bereik tellen
VBA: hoe een kolom te filteren