von Seewolf » 23.11.2023, 16:01
Hallo Community
Betreff Programmierer!
Obwohl ChatGpt Zeichenorientiert ist und nicht Zahlenorientiert ist konnte ich durch eine längere und Präzise Fragestellung ChatGpt dazu bewegen eine komplexe Berechnung dutchzuführen.
Wie schon erwähnt ist ChatGpt für kleinere Lösungen und Teillösungen hervorragend geeignet.
Berechnung des Osterdatums für den Zeitraum des Jahres 1566 bis zum Jahr 4055
Excel Vba
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
Ergänzend
DateSerial diente nur einer begrenzten Kontrolle ,es ist für die Berechnung unnötig und auch Zeitbegrenzt!
Was die Urheberrechte betrifft ,tja ,ich würde sagen ,die Menschheit ist der Urheber ,Freigeist über alles!
Gruß euer Seewolf