Tipp 2.10 - Letzter Tag im Quartal

Wie ermittel ich den letzten Tag im Quartal?

Mit dieser Funktion können Sie den letzten Tag im Quartal 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 LastDayInQuarter( _
                dtDate As Date) _
                As Date
  '// -----------------------------------------------------
  '// Methode:   | Ermittelt den letzten Tag im Quartal
  '//            | eines beliebigen Datums
  '// -----------------------------------------------------
  '// Parameter: | dtDate - Prüfdatum
  '// -----------------------------------------------------
  '// Rückgabe:  | Datumswert (s.o.)
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim dblValue As Double
  dblValue = (Month(dtDate) - 1) / 3
  LastDayInQuarter = DateSerial(Year(dtDate), _
                                Int(dblValue) * 3 + 4, 0)
 
End Function


Zurück Tipp 2.9 - Erster Tag im Quartal | Inhalt | Tipp 2.11 - Nächster Arbeitstag Weiter