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