Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.11.2023 22:00:09 |
xlKing |
|
|
|
17.11.2023 23:11:18 |
xlKing |
|
|
|
18.11.2023 00:37:55 |
xlKing |
|
|
|
20.11.2023 11:12:30 |
Der Steuerfuzzi |
|
|
|
20.11.2023 17:29:44 |
xlKing |
|
|
|
18.11.2023 01:40:22 |
Gast01287 |
|
|
|
18.11.2023 04:09:40 |
Gast77653 |
|
|
|
18.11.2023 17:41:38 |
xlKing |
|
|
![Rot](images/pfeil_rot.gif) Ostersonntag korrekt berechnen |
18.11.2023 18:58:03 |
Gast69709 |
|
|
|
19.11.2023 03:00:06 |
xlKing |
|
|
|
19.11.2023 12:30:20 |
Gast158 |
|
|
|
19.11.2023 19:47:24 |
Gast95273 |
|
|
|
19.11.2023 22:50:38 |
xlKing |
|
|
|
19.11.2023 23:04:15 |
xlKing |
|
|
|
20.11.2023 10:03:13 |
Gast28942 |
|
|
|
20.11.2023 10:27:21 |
Gast9314 |
|
|
|
21.11.2023 00:11:33 |
Gast75580 |
|
|
|
22.11.2023 12:22:01 |
Gast45652 |
|
|
Von:
Gast69709 |
Datum:
18.11.2023 18:58:03 |
Views:
238 |
Rating:
|
Antwort:
|
Thema:
Ostersonntag korrekt berechnen |
Hallo Mr. K.
Gefällt dir das besser?
Noch nicht Optimiert!
Sub BerechneOsterdatum()
Dim Jahr As Integer
Jahr = InputBox("Geben Sie das Jahr ein:")
Dim G As Integer, C As Integer, H As Integer, I As Integer, J As Integer, L As Integer
Dim Monat As Integer, Tag As Integer
G = Jahr Mod 19
C = Jahr \ 100
H = (C - C \ 4 - (8 * C + 13) \ 25 + 19 * G + 15) Mod 30
I = H - H \ 28 * (1 - H \ 28 * (29 \ (H + 1)) * ((21 - G) \ 11))
J = (Jahr + Jahr \ 4 + I + 2 - C + C \ 4) Mod 7
L = I - J
Monat = 3 + (L + 40) \ 44
Tag = L + 28 - 31 * (Monat \ 4)
MsgBox "Ostersonntag im Jahr " & Jahr & " ist am " & Tag & ". " & Monat & "."
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
17.11.2023 23:11:18 |
xlKing |
|
|
|
18.11.2023 00:37:55 |
xlKing |
|
|
|
20.11.2023 11:12:30 |
Der Steuerfuzzi |
|
|
|
20.11.2023 17:29:44 |
xlKing |
|
|
|
18.11.2023 01:40:22 |
Gast01287 |
|
|
|
18.11.2023 04:09:40 |
Gast77653 |
|
|
|
18.11.2023 17:41:38 |
xlKing |
|
|
![Rot](images/pfeil_rot.gif) Ostersonntag korrekt berechnen |
18.11.2023 18:58:03 |
Gast69709 |
|
|
|
19.11.2023 03:00:06 |
xlKing |
|
|
|
19.11.2023 12:30:20 |
Gast158 |
|
|
|
19.11.2023 19:47:24 |
Gast95273 |
|
|
|
19.11.2023 22:50:38 |
xlKing |
|
|
|
19.11.2023 23:04:15 |
xlKing |
|
|
|
20.11.2023 10:03:13 |
Gast28942 |
|
|
|
20.11.2023 10:27:21 |
Gast9314 |
|
|
|
21.11.2023 00:11:33 |
Gast75580 |
|
|
|
22.11.2023 12:22:01 |
Gast45652 |
|
|