Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion Ostern......aber wie.....

Funktion Ostern......aber wie.....
11.07.2004 22:27:58
maine-coon
verwende ich diese Funktion?

Function Ostern(Yr As Integer) As Date
Dim D As Integer
D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
Ostern = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - _
((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7)
End Function

Was muss ich denn in die Zellen schreiben, damit dort steht, dass ostern am dd.mm.yyyy ist?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
format
ransi
hallo coon
versuch mal so:

Function Ostern(Yr As Integer) As Date
Dim D As Integer
D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
Ostern = format(DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - _
((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7),"dd.mm.yyyy")
End Function

ransi
=Ostern(2004)
11.07.2004 22:40:16
Franz
Hallo,
... in eine Zelle schreiben, Zelle als Datum formatieren.
Oder schau hier rein auf das Blatt "Feiertage per VBA": https://www.herber.de/bbs/user/8386.xls
Grüße
Franz
AW: =Ostern(2004)
11.07.2004 22:49:09
maine-coon
Danke für den Hinweis.
Hat mir sehr geholfen.
schönen Abend noch.
Gruß Achim
Anzeige
Gern geschehen :-) o.T.
11.07.2004 22:51:57
Franz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige