Ostern und 1094

Function Ostern(Jahr As Integer) As Date Dim A%, B%, C%, D%, E%, M%, N%, P% A = Jahr Mod 19 B = Jahr Mod 4 C = Jahr Mod 7 M = 24 N = 5 D = (19 * A + M) Mod 30 E = (2 * B + 4 * C + 6 * D + N) Mod 7 P = 22 + D + E If P > 31 Then If P = 56 And D = 28 And A > 10 Then Ostern = DateSerial(Jahr, 4, 18) ElseIf P = 57 Then Ostern = DateSerial(Jahr, 4, 19) Else Ostern = DateSerial(Jahr, 4, P - 31) End If Else Ostern = DateSerial(Jahr, 3, P) End If End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Ostern(Jahr As Integer) As Date Dim A%, B%, C%, D%, E%, M%, N%, P% A = Jahr Mod 19 B = Jahr Mod 4 C = Jahr Mod 7 M = 24 N = 5 D = (19 * A + M) Mod 30 E = (2 * B + 4 * C + 6 * D + N) Mod 7 P = 22 + D + E If P > 31 Then If P = 56 And D = 28 And A > 10 Then Ostern = DateSerial(Jahr, 4, 18) ElseIf P = 57 Then Ostern = DateSerial(Jahr, 4, 19) Else Ostern = DateSerial(Jahr, 4, P - 31) End If Else Ostern = DateSerial(Jahr, 3, P) End If If ActiveWorkbook.Date1904 = True Then Ostern = Ostern - 1462 End Function

Hallo Udo,
es tut mir wirklich leid wenn du von den vielen Dau- und Ich-bin-zu-faul-zum-Suchen-Fragen genervt bist.
Vielleicht passiert es dir auch manchmal, dass du vor dem Fenster "neuer Beitrag" oder "Antworten" sitzt und dir überlegst, wie du dich jetzt ausdrückst. Mir geht es jedenfalls so. Ich habe mich vertippt, sorry. Passiert halt mal. Ich kenne den Unterschied zwischen einer Formel und VBA Code. Ich habe vermutlich Funktion damit gemeint.
Aber das ist doch nun wirklich nicht das Thema.
Das was mir an deiner Antwort etwas sauer aufstößt ist der Ton.
Ich schreibe immer als ersten Satz eine Begrüßung wie "Hallo Udo". Das lockert ein wenig auf und zeigt meinem Gegenüber eine gewisse Gesprächsbereitschaft an.
Leider konnte ich in deinem Satz nur eine Art Oberlehrermentalität feststellen, die wie ich finde in den seltensten Fällen angebracht erscheint.
Bitte nimm es mir nicht krumm, aber an meiner Stelle würdest du sicherlich auch so reagieren.
Grüße
Henri

Function Ostern(Jahr As Integer) As Date Dim A%, B%, C%, D%, E%, M%, N%, P%, K% A = Jahr Mod 19 B = Jahr Mod 4 C = Jahr Mod 7 M = 24 N = 5 D = (19 * A + M) Mod 30 E = (2 * B + 4 * C + 6 * D + N) Mod 7 P = 22 + D + E If ActiveWorkbook.Date1904 = True Then Jahr = Jahr - 4 P = P - 1 End If If P > 31 Then If P = 56 And D = 28 And A > 10 Then Ostern = DateSerial(Jahr, 4, 18) ElseIf P = 57 Then Ostern = DateSerial(Jahr, 4, 19) Else Ostern = DateSerial(Jahr, 4, P - 31) End If Else Ostern = DateSerial(Jahr, 3, P) End If End Function

Function Ostern1904(Jahr As Integer) As Date Dim A%, B%, C%, D%, E%, M%, N%, P% A = Jahr Mod 19 B = Jahr Mod 4 C = Jahr Mod 7 M = 24 N = 5 D = (19 * A + M) Mod 30 E = (2 * B + 4 * C + 6 * D + N) Mod 7 P = 22 + D + E If P > 31 Then If P = 56 And D = 28 And A > 10 Then Ostern1904 = DateSerial(Jahr - 4, 4, 17) ElseIf P = 57 Then Ostern1904 = DateSerial(Jahr - 4, 4, 18) Else Ostern1904 = DateSerial(Jahr - 4, 4, P - 32) End If Else Ostern1904 = DateSerial(Jahr - 4, 3, P - 1) End If End Function

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread