Ermitteln Sie den #Neujahrstag in #VBA


Sie brauchen den #Neujahrstag in #VBA? Und #Silvester? Ein Vorschlag:

JahresErster = DateValue("1.1." & Year(Datum))

Wir basteln also eine Zeichenkette aus 1.1. und dem Jahr des gegebenen Datums. Das Jahr lassen wir von  der VBA-Funktion Year ermitteln, es liefert am heutigen Tag, dem 25.02.2016, einfach die Zahl 2016. Die so gewonnenen Textwurst 1.1.2016 konvertieren wir mit Hilfe von DateValue wieder in ein Datum – die Funktion ist wirklich gut darin, Textwürste als Datum zu interpretieren. Sie kann das, wenn Punkte, Leerzeichen, Bindestriche oder Schrägstriche zwischen den Werten für Tag, Monat und Jahr stehen, und die Werte dürfen Zahlen mit und ohne führende Nullen sein, aber auch Feb oder Mär.

Machen wir auch gleich den Jahresultimo:

JahresLetzter = DateValue("31.12." & Year(Datum))

Sie verstehen, wie’s gemacht wird, oder?

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter VBA abgelegt und mit , , , , , , , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s