Tipp 2.5 - Differenz in Tagen

Wie kann ich die Differenz zwischen zwei Datumswerten in Tagen ermitteln?

Mit dieser Funktion können Sie die Differenz zwischen zwei Datumswerten in Tagen 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 DiffDays( _
                dtFirstDate As Date, _
                dtSecondDate As Date) _
                As Long
  '// -----------------------------------------------------
  '// Methode:   | Differenz zwischen zwei Datumswerten in
  '//            | Tagen ermitteln
  '// -----------------------------------------------------
  '// Parameter: | dtFirstDate  - 1. Datum (Datumsformat)
  '//            | dtSecondDate - 2. Datum (Datumsformat)
  '// -----------------------------------------------------
  '// Rückgabe:  | Anzahl Tage
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim dblTemp As Double
  dblTemp = dtSecondDate - dtFirstDate
  DiffDays = Fix(dblTemp)
 
End Function


Zurück Tipp 2.4 - Anzahl Tage | Inhalt | Tipp 2.6 - Differenz in Wochen Weiter