Tipp 2.7 - Differenz in Minuten

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

Mit dieser Funktion können Sie die Differenz zwischen zwei Zeiten in Minuten 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 DiffMinutes( _
                dtFirstDate As Date, _
                dtSecondDate As Date) _
                As Long
  '// -----------------------------------------------------
  '// Methode:   | Differenz zwischen zwei Zeiten in
  '//            | Minuten ermitteln
  '// -----------------------------------------------------
  '// Parameter: | dtFirstDate  -1.Zeitpunkt (Datumsformat)
  '//            | dtSecondDate -2.Zeitpunkt (Datumsformat)
  '// -----------------------------------------------------
  '// Rückgabe:  | Anzahl Minuten
  '// -----------------------------------------------------
  '// Beispiel:  | ?DiffMinutes(CDate("14:45"), _
   '//            |              CDate("19:57"))
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Const clMINUTES_PER_DAY As Long = 1440
  Dim dblTemp             As Double
  dblTemp = (dtSecondDate - dtFirstDate) _
             * clMINUTES_PER_DAY
  DiffMinutes = CLng(dblTemp)
 
End Function


Zurück Tipp 2.6 - Differenz in Wochen | Inhalt | Tipp 2.8 - Differenz in Sekunden Weiter