So berechnen sie den zeitunterschied in vba (mit beispielen)

Sie können die folgende grundlegende Syntax in VBA verwenden, um die Differenz zwischen zwei Zeitpunkten zu berechnen:

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

Dieses spezielle Makro berechnet die Differenz zwischen den entsprechenden Zeiten in den Bereichen A2:A7 und B2:B7 und gibt die folgenden Ergebnisse zurück:

• C2:C7 enthält den Zeitunterschied in Tagen
• D2:D7 enthält den Zeitunterschied in Stunden
• E2:E7 enthält den Zeitunterschied in Minuten
• F2:F7 enthält den Zeitunterschied in Sekunden

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Zeitdifferenz in VBA berechnen

Angenommen, wir haben in Excel die folgenden zwei Spalten mit Start- und Endzeiten:

Wir können das folgende Makro erstellen, um den Zeitunterschied zwischen jeder Start- und Endzeit zu berechnen und die Ergebnisse in den Spalten C bis F anzuzeigen:

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

In den Spalten C bis F wird der Zeitunterschied zwischen Start- und Endzeit in verschiedenen Einheiten angezeigt.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So vergleichen Sie Daten in VBA
So berechnen Sie Tage zwischen zwei Daten in VBA
So konvertieren Sie eine Zeichenfolge in VBA in ein Datum