Tipp 2.19 - Letzter Tag des aktuellen Jahres

Wie ermittel ich den letzten Tag des aktuellen Jahres?

Mit dieser Funktion können Sie den letzten Tag des aktuellen Jahres 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 LastDayCurrentYear() As Date
  '// -----------------------------------------------------
  '// Methode: | Letzten Tag des aktuellen Jahres ermitteln
  '// -----------------------------------------------------
  '// Rückgabe:| Datumswert (s.o.)
  '// -----------------------------------------------------
  '// Autor:   | Stefan Kulpa
  '//          | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  LastDayCurrentYear = _
      DateAdd("yyyy", 1, Date - DatePart("y", Date))
 
End Function


Zurück Tipp 2.18 - Letzter Tag der aktuellen Woche | Inhalt | Tipp 2.20 - Letzter Tag des aktuellen Monats Weiter