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?
katharinakanns
Soprani Software 