Thema Datum  Von Nutzer Rating
Antwort
17.11.2023 22:00:09 xlKing
Solved
17.11.2023 23:11:18 xlKing
NotSolved
18.11.2023 00:37:55 xlKing
NotSolved
20.11.2023 11:12:30 Der Steuerfuzzi
NotSolved
20.11.2023 17:29:44 xlKing
NotSolved
18.11.2023 01:40:22 Gast01287
NotSolved
18.11.2023 04:09:40 Gast77653
NotSolved
18.11.2023 17:41:38 xlKing
NotSolved
18.11.2023 18:58:03 Gast69709
NotSolved
19.11.2023 03:00:06 xlKing
NotSolved
19.11.2023 12:30:20 Gast158
NotSolved
19.11.2023 19:47:24 Gast95273
NotSolved
19.11.2023 22:50:38 xlKing
NotSolved
19.11.2023 23:04:15 xlKing
NotSolved
Rot Ostersonntag korrekt berechnen
20.11.2023 10:03:13 Gast28942
NotSolved
20.11.2023 10:27:21 Gast9314
NotSolved
21.11.2023 00:11:33 Gast75580
NotSolved
22.11.2023 12:22:01 Gast45652
NotSolved

Ansicht des Beitrags:
Von:
Gast28942
Datum:
20.11.2023 10:03:13
Views:
124
Rating: Antwort:
  Ja
Thema:
Ostersonntag korrekt berechnen

Hallo Mr.K

Ich setze nur andere Ideen neu zusammen!

Erstversion!

Sub BerechneOsterdatum()
    Dim Jahr As Integer
    Jahr = InputBox("Geben Sie das Jahr ein:")
    Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer, i As Integer, k As Integer, L As Integer, m As Integer, p As Integer
    a = Jahr Mod 19
    b = Jahr \ 100
    c = Jahr Mod 100
    d = b \ 4
    e = b Mod 4
    f = (b + 8) \ 25
    g = (b - f + 1) \ 3
    h = (19 * a + b - d - g + 15) Mod 30
    i = c \ 4
    k = c Mod 4
    L = (32 + 2 * e + 2 * i - h - k) Mod 7
    m = (a + 11 * h + 22 * L) \ 451
    p = (h + L - 7 * m + 114) \ 31
    Dim Tag As Integer
    Tag = (h + L - 7 * m + 114) Mod 31 + 1
    Dim Monat As Integer
    Monat = p
    Dim Wochentag As String
    Dim Ostersonntag As Date
    Ostersonntag = DateSerial(Jahr, Monat, Tag)
    Wochentag = Format(Ostersonntag, "dddd")
    MsgBox "Ostersonntag im Jahr " & Jahr & " ist am " & Tag & ". " & Monat & ". (" & Wochentag & ")"
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.11.2023 22:00:09 xlKing
Solved
17.11.2023 23:11:18 xlKing
NotSolved
18.11.2023 00:37:55 xlKing
NotSolved
20.11.2023 11:12:30 Der Steuerfuzzi
NotSolved
20.11.2023 17:29:44 xlKing
NotSolved
18.11.2023 01:40:22 Gast01287
NotSolved
18.11.2023 04:09:40 Gast77653
NotSolved
18.11.2023 17:41:38 xlKing
NotSolved
18.11.2023 18:58:03 Gast69709
NotSolved
19.11.2023 03:00:06 xlKing
NotSolved
19.11.2023 12:30:20 Gast158
NotSolved
19.11.2023 19:47:24 Gast95273
NotSolved
19.11.2023 22:50:38 xlKing
NotSolved
19.11.2023 23:04:15 xlKing
NotSolved
Rot Ostersonntag korrekt berechnen
20.11.2023 10:03:13 Gast28942
NotSolved
20.11.2023 10:27:21 Gast9314
NotSolved
21.11.2023 00:11:33 Gast75580
NotSolved
22.11.2023 12:22:01 Gast45652
NotSolved