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
20.11.2023 10:03:13 Gast28942
NotSolved
Blau Ostersonntag korrekt berechnen
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:
Gast9314
Datum:
20.11.2023 10:27:21
Views:
80
Rating: Antwort:
  Ja
Thema:
Ostersonntag korrekt berechnen

Mit Kommentare für Lernzwecke!!

Sub BerechneOsterdatum()
    ' Benutzereingabe für das Jahr
    Dim Jahr As Integer
    Jahr = InputBox("Geben Sie das Jahr ein:")

    ' Berechnung des Osterdatums
    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        ' Schritt 1: Goldene Zahl
    b = Jahr \ 100         ' Schritt 2: Jahrhundert
    c = Jahr Mod 100       ' Schritt 3: Jahr innerhalb des Jahrhunderts
    d = b \ 4              ' Schritt 4: Säkularjahrregel
    e = b Mod 4            ' Schritt 5: Jahrhundertjahrregel
    f = (b + 8) \ 25       ' Schritt 6: Säkularmondregel
    g = (b - f + 1) \ 3    ' Schritt 7: Keimregel
    h = (19 * a + b - d - g + 15) Mod 30   ' Schritt 8: Keimmond
    i = c \ 4              ' Schritt 9: Zyklusregel
    k = c Mod 4            ' Schritt 10: Jahrhundertzirkel
    L = (32 + 2 * e + 2 * i - h - k) Mod 7  ' Schritt 11: Sonnenkorrektur
    m = (a + 11 * h + 22 * L) \ 451           ' Schritt 12: Mondkorrektur
    p = (h + L - 7 * m + 114) \ 31             ' Schritt 13: Ostergrenze
    Dim Tag As Integer

   Tag = (h + L - 7 * m + 114) Mod 31 + 1    ' Schritt 14: Tag des Monats
   Dim Monat As Integer

   Monat = p                                ' Schritt 15: Monat
    
    ' Bestimmen des Wochentags
    Dim Wochentag As String
    Dim Ostersonntag As Date
    Ostersonntag = DateSerial(Jahr, Monat, Tag)
    Wochentag = Format(Ostersonntag, "dddd")  ' Bestimmen des Wochentags für den berechneten Ostersonntag

    ' Anzeige des Ergebnisses in einer MsgBox
    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
20.11.2023 10:03:13 Gast28942
NotSolved
Blau Ostersonntag korrekt berechnen
20.11.2023 10:27:21 Gast9314
NotSolved
21.11.2023 00:11:33 Gast75580
NotSolved
22.11.2023 12:22:01 Gast45652
NotSolved