Tipp 2.8 - Differenz in Sekunden

Wie kann ich die Differenz zwischen zwei Zeiten in Sekunden ermitteln?

Mit dieser Funktion können Sie die Differenz zwischen zwei Zeiten in Sekunden ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function DiffSeconds( _
                dtFirstDate As Date, _
                dtSecondDate As Date) _
                As Long
  '// -----------------------------------------------------
  '// Methode:   | Differenz zwischen zwei Zeiten in
  '//            | Sekunden ermitteln
  '// -----------------------------------------------------
  '// Parameter: | dtFirstDate  -1.Zeitpunkt (Datumsformat)
  '//            | dtSecondDate -2.Zeitpunkt (Datumsformat)
  '// -----------------------------------------------------
  '// Rückgabe:  | Anzahl Sekunden
  '// -----------------------------------------------------
  '// Beispiel:  | ?DiffSeconds(CDate("14:45"), _
  '//            |              CDate("15:57"))
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Const clSECONDS_PER_DAY As Long = 86400
  Dim dblTemp             As Double
  dblTemp = (dtSecondDate - dtFirstDate) _
             * clSECONDS_PER_DAY
  DiffSeconds = CLng(dblTemp)
 
End Function


Zurück Tipp 2.7 - Differenz in Minuten | Inhalt | Tipp 2.9 - Erster Tag im Quartal Weiter