Tipp 2.6 - Differenz in Wochen

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

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


Zurück Tipp 2.5 - Differenz in Tagen | Inhalt | Tipp 2.7 - Differenz in Minuten Weiter