Berechnen und Anzeigen bestimmter Datumswerte

Da ein Datumswert als Gleitkommawert mit doppelter Genauigkeit gespeichert wird, erhalten Sie möglicherweise falsche Ergebnisse bei der Formatierung, wenn Sie die Datumswerte in einem Ausdruck ändern. In diesem Thema wird das Erstellen von Ausdrücken und benutzerdefinierten Funktionen veranschaulicht, um bestimmte Daten anzuzeigen und Zeitintervalle zu berechnen.

Aktueller Monat

DateSerial(Year(Date()), Month(Date()), 1)

Nächsten Monat

DateSerial(Year(Date()), Month(Date()) + 1, 1)

Letzter Tag des aktuellen Monats

DateSerial(Year(Date()), Month(Date()) + 1, 0)

Letzter Tag des nächsten Monats

DateSerial(Year(Date()), Month(Date()) + 2, 0)

Erster Tag des vorigen Monats

DateSerial(Year(Date()), Month(Date())-1,1)

Letzter Tag des vorigen Monats

DateSerial(Year(Date()), Month(Date()),0)

Erster Tag des laufenden Quartals

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)

Letzter Tag des aktuellen Quartals

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)

Erster Tag der aktuellen Woche (vorausgesetzt, Sonntag = Tag 1)

Date() - WeekDay(Date()) + 1

Letzter Tag der aktuellen Woche

Date() - WeekDay(Date()) + 7

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.