Forums Neueste Beiträge
 

Erster Samstag im Monat

16/04/2010 - 09:04 von Berthold Erfämper | Report spam
Hallo NG-Gemeinde,

ganz so einfach wie in der Überschrift ist es jedoch nicht. Zur
Berechnung des ersten Sa, So oder eines anderen Tages der Woche findet
man genügend im Netz. Mein Problem ist folgendes.
Ich benötige jeweils das Datum eines jeden Mi und Fr des Monats für ein
Jahr. Diese dann in zwölf Spalten in aufsteigender Reihenfolge. Nun kann
mal der Mi vom Datum her der erste Tag des Monats sein, mal der Fr. Und
welches Datum (Wochentag) ist der letzte des Monats?
Wie gesagt. Um den ersten x.ten zu berechnen, das wàre nicht das Problem.
Kennt jemand hierfür einen Ansatz zur Lösung?

Danke.

Berthold
 

Lesen sie die antworten

#1 Peter Schleif
16/04/2010 - 09:43 | Warnen spam
Berthold Erfàmper schrieb am 16.Apr.2010 09:04 Uhr:

Ich benötige jeweils das Datum eines jeden Mi und Fr des Monats für ein
Jahr. Diese dann in zwölf Spalten in aufsteigender Reihenfolge.
[...]
Und welches Datum (Wochentag) ist der letzte des Monats?



Monatsende wurde hier gerade erst ausführlich diskutiert.

http://groups.google.de/group/micro...74eb43cb35

Den ersten Mittwoch oder Freitag im Monat bekommst Du z.B. mit einer
VBA-Matrix-Funktion. Dazu 12 nebeneinander liegende Zellen markieren und
die folgende Funktion eintragen:

=ErsterMiOderFrImMonat(2010)

ACHTUNG: Matrix-Funktion!!!
Bitte Eingabe mit <SHIFT> <STRG> <RETURN> abschließen

Peter

Function ErsterMiOderFrImMonat(ByVal jahr As Integer)
Dim arr(0, 11) As Date
Dim erster As Date
Dim m As Integer

For m = 1 To 12
erster = DateSerial(jahr, m, 1)
arr(0, m - 1) = erster + IIf(erster Mod 7<5,4,6) - erster Mod 7
Next

ErsterMiOderFrImMonat = arr
End Function

Ähnliche fragen