Das Kalenderprogramm - geschrieben in PureBasic 4.00 erzeugt gregorianische und julianische Kalender mit den beweglichen Feiertagen und den Jahreskennzeichen bis zum Jahr 3199 als Textfile in folgender Form:
222 000 000 77777
2 2 0 0 0 0 7
2 0 00 0 00 7
2 0 0 0 0 0 0 7
2 00 0 00 0 7
2 0 0 0 0 7
22222 000 000 7
gregorianisch
Januar Februar März
Montag 1 8 15 22 29 5 12 19 26 5 12 19 26
Dienstag 2 9 16 23 30 6 13 20 27 6 13 20 27
Mittwoch 3 10 17 24 31 7 14 21 28 7 14 21 28
Donnerstag 4 11 18 25 1 8 15 22 1 8 15 22 29
Freitag 5 12 19 26 2 9 16 23 2 9 16 23 30
Samstag 6 13 20 27 3 10 17 24 3 10 17 24 31
Sonntag 7 14 21 28 4 11 18 25 4 11 18 25
April Mai Juni
Montag 2 9 16 23 30 7 14 21 28 4 11 18 25
Dienstag 3 10 17 24 1 8 15 22 29 5 12 19 26
Mittwoch 4 11 18 25 2 9 16 23 30 6 13 20 27
Donnerstag 5 12 19 26 3 10 17 24 31 7 14 21 28
Freitag 6 13 20 27 4 11 18 25 1 8 15 22 29
Samstag 7 14 21 28 5 12 19 26 2 9 16 23 30
Sonntag 1 8 15 22 29 6 13 20 27 3 10 17 24
Juli August September
Montag 2 9 16 23 30 6 13 20 27 3 10 17 24
Dienstag 3 10 17 24 31 7 14 21 28 4 11 18 25
Mittwoch 4 11 18 25 1 8 15 22 29 5 12 19 26
Donnerstag 5 12 19 26 2 9 16 23 30 6 13 20 27
Freitag 6 13 20 27 3 10 17 24 31 7 14 21 28
Samstag 7 14 21 28 4 11 18 25 1 8 15 22 29
Sonntag 1 8 15 22 29 5 12 19 26 2 9 16 23 30
Oktober November Dezember
Montag 1 8 15 22 29 5 12 19 26 3 10 17 24 31
Dienstag 2 9 16 23 30 6 13 20 27 4 11 18 25
Mittwoch 3 10 17 24 31 7 14 21 28 5 12 19 26
Donnerstag 4 11 18 25 1 8 15 22 29 6 13 20 27
Freitag 5 12 19 26 2 9 16 23 30 7 14 21 28
Samstag 6 13 20 27 3 10 17 24 1 8 15 22 29
Sonntag 7 14 21 28 4 11 18 25 2 9 16 23 30
Rosenmontag : 19.Februar Volkstrauertag : 18.November
Aschermittwoch : 21.Februar Buss- und Bettag : 21.November
Palmsonntag : 1.April Totensonntag : 25.November
Karfreitag : 6.April 1.Sonntag im Advent : 2.Dezember
Ostern : 8.April 2.Sonntag im Advent : 9.Dezember
Ostermontag : 9.April 3.Sonntag im Advent : 16.Dezember
Christi Himmelfahrt : 17.Mai 4.Sonntag im Advent : 23.Dezember
Pfingsten : 27.Mai 1. Weihnachtstag : 25.Dezember
Pfingstmontag : 28.Mai 2. Weihnachtstag : 26.Dezember
Fronleichnam : 7.Juni Silvester : 31.Dezember
.
222 000 000 77777
2 2 0 0 0 0 7
2 0 00 0 00 7
2 0 0 0 0 0 0 7
2 00 0 00 0 7
2 0 0 0 0 7
22222 000 000 7
gregorianisch
Januar Februar März
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 2 3 4 5 6 7 1 2 3 4 1 2 3 4
8 9 10 11 12 13 14 5 6 7 8 9 10 11 5 6 7 8 9 10 11
15 16 17 18 19 20 21 12 13 14 15 16 17 18 12 13 14 15 16 17 18
22 23 24 25 26 27 28 19 20 21 22 23 24 25 19 20 21 22 23 24 25
29 30 31 26 27 28 26 27 28 29 30 31
April Mai Juni
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 1 2 3 4 5 6 1 2 3
2 3 4 5 6 7 8 7 8 9 10 11 12 13 4 5 6 7 8 9 10
9 10 11 12 13 14 15 14 15 16 17 18 19 20 11 12 13 14 15 16 17
16 17 18 19 20 21 22 21 22 23 24 25 26 27 18 19 20 21 22 23 24
23 24 25 26 27 28 29 28 29 30 31 25 26 27 28 29 30
30
Juli August September
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 1 2 3 4 5 1 2
2 3 4 5 6 7 8 6 7 8 9 10 11 12 3 4 5 6 7 8 9
9 10 11 12 13 14 15 13 14 15 16 17 18 19 10 11 12 13 14 15 16
16 17 18 19 20 21 22 20 21 22 23 24 25 26 17 18 19 20 21 22 23
23 24 25 26 27 28 29 27 28 29 30 31 24 25 26 27 28 29 30
30 31
Oktober November Dezember
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 2 3 4 5 6 7 1 2 3 4 1 2
8 9 10 11 12 13 14 5 6 7 8 9 10 11 3 4 5 6 7 8 9
15 16 17 18 19 20 21 12 13 14 15 16 17 18 10 11 12 13 14 15 16
22 23 24 25 26 27 28 19 20 21 22 23 24 25 17 18 19 20 21 22 23
29 30 31 26 27 28 29 30 24 25 26 27 28 29 30
31
Rosenmontag : 19.Februar Volkstrauertag : 18.November
Aschermittwoch : 21.Februar Buss- und Bettag : 21.November
Palmsonntag : 1.April Totensonntag : 25.November
Karfreitag : 6.April 1.Sonntag im Advent : 2.Dezember
Ostern : 8.April 2.Sonntag im Advent : 9.Dezember
Ostermontag : 9.April 3.Sonntag im Advent : 16.Dezember
Christi Himmelfahrt : 17.Mai 4.Sonntag im Advent : 23.Dezember
Pfingsten : 27.Mai 1. Weihnachtstag : 25.Dezember
Pfingstmontag : 28.Mai 2. Weihnachtstag : 26.Dezember
Fronleichnam : 7.Juni Silvester : 31.Dezember
.
222 000 000 77777
2 2 0 0 0 0 7
2 0 00 0 00 7
2 0 0 0 0 0 0 7
2 00 0 00 0 7
2 0 0 0 0 7
22222 000 000 7
julianisch
Januar Februar März
Montag 2 9 16 23 30 6 13 20 27 6 13 20 27
Dienstag 3 10 17 24 31 7 14 21 28 7 14 21 28
Mittwoch 4 11 18 25 1 8 15 22 1 8 15 22 29
Donnerstag 5 12 19 26 2 9 16 23 2 9 16 23 30
Freitag 6 13 20 27 3 10 17 24 3 10 17 24 31
Samstag 7 14 21 28 4 11 18 25 4 11 18 25
Sonntag 1 8 15 22 29 5 12 19 26 5 12 19 26
April Mai Juni
Montag 3 10 17 24 1 8 15 22 29 5 12 19 26
Dienstag 4 11 18 25 2 9 16 23 30 6 13 20 27
Mittwoch 5 12 19 26 3 10 17 24 31 7 14 21 28
Donnerstag 6 13 20 27 4 11 18 25 1 8 15 22 29
Freitag 7 14 21 28 5 12 19 26 2 9 16 23 30
Samstag 1 8 15 22 29 6 13 20 27 3 10 17 24
Sonntag 2 9 16 23 30 7 14 21 28 4 11 18 25
Juli August September
Montag 3 10 17 24 31 7 14 21 28 4 11 18 25
Dienstag 4 11 18 25 1 8 15 22 29 5 12 19 26
Mittwoch 5 12 19 26 2 9 16 23 30 6 13 20 27
Donnerstag 6 13 20 27 3 10 17 24 31 7 14 21 28
Freitag 7 14 21 28 4 11 18 25 1 8 15 22 29
Samstag 1 8 15 22 29 5 12 19 26 2 9 16 23 30
Sonntag 2 9 16 23 30 6 13 20 27 3 10 17 24
Oktober November Dezember
Montag 2 9 16 23 30 6 13 20 27 4 11 18 25
Dienstag 3 10 17 24 31 7 14 21 28 5 12 19 26
Mittwoch 4 11 18 25 1 8 15 22 29 6 13 20 27
Donnerstag 5 12 19 26 2 9 16 23 30 7 14 21 28
Freitag 6 13 20 27 3 10 17 24 1 8 15 22 29
Samstag 7 14 21 28 4 11 18 25 2 9 16 23 30
Sonntag 1 8 15 22 29 5 12 19 26 3 10 17 24 31
Rosenmontag : 6.Februar Volkstrauertag : 19.November
Aschermittwoch : 8.Februar Buss- und Bettag : 22.November
Palmsonntag : 19.März Totensonntag : 26.November
Karfreitag : 24.März 1.Sonntag im Advent : 3.Dezember
Ostern : 26.März 2.Sonntag im Advent : 10.Dezember
Ostermontag : 27.März 3.Sonntag im Advent : 17.Dezember
Christi Himmelfahrt : 4.Mai 4.Sonntag im Advent : 24.Dezember
Pfingsten : 14.Mai 1. Weihnachtstag : 25.Dezember
Pfingstmontag : 15.Mai 2. Weihnachtstag : 26.Dezember
Fronleichnam : 25.Mai Silvester : 31.Dezember
.
222 000 000 77777
2 2 0 0 0 0 7
2 0 00 0 00 7
2 0 0 0 0 0 0 7
2 00 0 00 0 7
2 0 0 0 0 7
22222 000 000 7
julianisch
Januar Februar März
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 1 2 3 4 5 1 2 3 4 5
2 3 4 5 6 7 8 6 7 8 9 10 11 12 6 7 8 9 10 11 12
9 10 11 12 13 14 15 13 14 15 16 17 18 19 13 14 15 16 17 18 19
16 17 18 19 20 21 22 20 21 22 23 24 25 26 20 21 22 23 24 25 26
23 24 25 26 27 28 29 27 28 27 28 29 30 31
30 31
April Mai Juni
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 2 1 2 3 4 5 6 7 1 2 3 4
3 4 5 6 7 8 9 8 9 10 11 12 13 14 5 6 7 8 9 10 11
10 11 12 13 14 15 16 15 16 17 18 19 20 21 12 13 14 15 16 17 18
17 18 19 20 21 22 23 22 23 24 25 26 27 28 19 20 21 22 23 24 25
24 25 26 27 28 29 30 29 30 31 26 27 28 29 30
Juli August September
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 2 1 2 3 4 5 6 1 2 3
3 4 5 6 7 8 9 7 8 9 10 11 12 13 4 5 6 7 8 9 10
10 11 12 13 14 15 16 14 15 16 17 18 19 20 11 12 13 14 15 16 17
17 18 19 20 21 22 23 21 22 23 24 25 26 27 18 19 20 21 22 23 24
24 25 26 27 28 29 30 28 29 30 31 25 26 27 28 29 30
31
Oktober November Dezember
Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So Mo Di Mi Do Fr Sa So
1 1 2 3 4 5 1 2 3
2 3 4 5 6 7 8 6 7 8 9 10 11 12 4 5 6 7 8 9 10
9 10 11 12 13 14 15 13 14 15 16 17 18 19 11 12 13 14 15 16 17
16 17 18 19 20 21 22 20 21 22 23 24 25 26 18 19 20 21 22 23 24
23 24 25 26 27 28 29 27 28 29 30 25 26 27 28 29 30 31
30 31
Rosenmontag : 6.Februar Volkstrauertag : 19.November
Aschermittwoch : 8.Februar Buss- und Bettag : 22.November
Palmsonntag : 19.März Totensonntag : 26.November
Karfreitag : 24.März 1.Sonntag im Advent : 3.Dezember
Ostern : 26.März 2.Sonntag im Advent : 10.Dezember
Ostermontag : 27.März 3.Sonntag im Advent : 17.Dezember
Christi Himmelfahrt : 4.Mai 4.Sonntag im Advent : 24.Dezember
Pfingsten : 14.Mai 1. Weihnachtstag : 25.Dezember
Pfingstmontag : 15.Mai 2. Weihnachtstag : 26.Dezember
Fronleichnam : 25.Mai Silvester : 31.Dezember
.
Jahreskennzeichen - gregorianisch / julianisch
Julianisches Jahr 6720 / 6720
Schaltjahr 0 / 0
gregorianische Korrektur 13
Jul. Tag am 0.Januar 2454101 / 2454114
Sonnenzirkel 28 / 28
Mondzirkel = Goldene Zahl XIII / XIII
Indiktion 15 / 15
Sonnenangleichung -13
Mondangleichung 1
Epakte 11 / 20
Wochentag am 1. Januar Montag / Sonntag
Sonntagsbuchstabe(n) g / A
Ostergrenze Mo, 2.April / Fr,24.März
Festzahl 18 / 5
Die Osterberechnungen nach julianischem bzw. gregorianischem Modus berücksichtigen folgende Abweichungen nicht:
1. Die Festsetzung des Ostertermines in Teilen der spätantiken/frühmittelalterlichen Kirche nach den verschiedenen alternativen Osterzyklen vor und neben dem des Dionysius exiguus.
2. Abweichende Ansetzungen wegen anderer Grenztage (Teil des Osterstreits der alten Kirche).
3. Abweichende Ostertermine in protestantischen Ländern, die
a) den gregorianischen Kalender zunächst nur als bürgerlichen annahmen.
b) am julianischen Kalender festhielten, aber dennoch Korrekturen am Schaltzyklus vornahmen.
; Kalender 2006-07-17 - erstellt mit PureBasic 4.00
; Das Programm berechnet für die Jahre 1 - 3199 sowohl julianische als auch gregorianische Kalender.
; Die Kalender werden in jeweils 2 verschieden Anordnungen der Wochentage erstellt.
; Darüberhinaus werden die wesentlichen Jahreskennzeichen ausgegeben.
; Das ganze wird als Textfile im Arbeitsverzeichnis abgelegt und mit Wordpad angezeigt.
Procedure.s roemziffer(wert)
; wandelt wert (1..29) in roemische Zahlen
rz$ = ""
wert1 = wert / 10
wert2 = wert % 10
wert3 = wert % 5
If wert1 > 1
rz$ + "X"
EndIf
If wert1 > 0
rz$ + "X"
EndIf
If wert3 = 4
rz$ + "I"
EndIf
If wert2 > 3 And wert2 < 9
rz$ + "V"
EndIf
If wert2 = 9
rz$ + "X"
EndIf
If wert3 < 4
For i = 1 To wert3
rz$ + "I"
Next i
EndIf
ProcedureReturn rz$
EndProcedure
Dim kalender.w(12,6,7)
Dim tage_pro_monat.w(12)
Global Dim tag_l.w(12)
tag_l.w(0) = 0
DataSection
Data.s "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember"
Data.s "Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag"
Data.s " 000 0 00 000 0 000 00 0 000 "," 1 11 1 1 1 1 1 11111"," 222 2 2 2 2 2 2 22222"
Data.s " 333 3 3 3 33 33 3 333 "," 4 44 4 4 4 4 44444 4 4 ","555555 5 555 55 5 555 "
Data.s " 666 6 66 6666 6 66 6 666 ","77777 7 7 7 7 7 7 "," 888 8 88 8 888 8 88 8 888 "
Data.s " 999 9 99 9 9999 9 9 999 "
Data.s "Rosenmontag","Aschermittwoch","Palmsonntag","Karfreitag","Ostern","Ostermontag","Christi Himmelfahrt","Pfingsten"
Data.s "Pfingstmontag","Fronleichnam","Volkstrauertag","Buss- und Bettag","Totensonntag","1.Sonntag im Advent"
Data.s "2.Sonntag im Advent","3.Sonntag im Advent","4.Sonntag im Advent","1. Weihnachtstag","2. Weihnachtstag","Silvester"
Data.w -48,-46,-7,-2,0,1,39,49,50,60,-42,-39,-35,-28,-21,-14,-7,-6,-5,0
EndDataSection
Global Dim monat_name.s(12)
For i = 1 To 12
Read monat_name.s(i)
monat_name.s(i) = LSet(monat_name.s(i),9)
Next i
Dim tag_name.s(7)
For i = 1 To 7
Read tag_name.s(i)
tag_name.s(i) = LSet(tag_name.s(i),10)
Next i
Dim bigziffer.s(9)
For i = 0 To 9
Read bigziffer.s(i)
Next i
Dim feiertage.s(20)
For i = 1 To 20
Read feiertage.s(i)
feiertage.s(i) = LSet(feiertage.s(i),20)
Next i
Dim ftag_diff.w(20)
For i = 1 To 20
Read ftag_diff.w(i)
Next i
; wandelt Tag im Jahr in Datum um
Procedure.s Tag2Datum(tag)
For j = 1 To 12
If tag <= tag_l.w(j)
tag$ = RSet(Str(tag - tag_l.w(j-1)),2)
monat = j
datum$ = tag$ + "." + monat_name.s(monat)
ProcedureReturn datum$
EndIf
Next j
EndProcedure
; bestimmt die Sonntagsbuchstaben
Procedure.s sb(wt, sj)
sb = 7 - wt + 64
If sb > 65
sb + 32
EndIf
sb$ = Chr(sb)
If sj = 1
sb = 7 - ((wt + 1) % 7) + 64
If sb > 65
sb + 32
EndIf
sb$ = sb$ + Chr(sb)
EndIf
ProcedureReturn sb$
EndProcedure
Repeat
jahr$ = InputRequester("Kalender > file: 'Kalenderxxxx.txt' (C) Eduard Pesé","Bitte Jahreszahl 1 bis 3199 eingeben + <ENTER>","")
jahr = Val(jahr$)
Until jahr > 0 And jahr < 3200
; Berechnungen über das Jahr 3199 hinaus sind nicht sinnvoll, denn das durch den gregorianischen Kalender geregelte Jahr
; ist um einige Minuten zu lang. Irgendwann muss der Schalttag in durch 400 teilbaren Jahren wieder einmal ausfallen,
; doch konnten sich die Himmelskundigen bisher nicht darüber einigen.
; Der 1795 zum Direktor der Pariser Sternwarte ernannte Joseph Lalande plädierte für das Jahr 3600, der 1877 in Münster
; verstorbene Astronom Eduard Heis bereits für 3200 n. Chr.
; Julianisches Jahr
; Die Zählung der Tage ist innerhalb eines Zeitraums von 7.980 Jahren, der so genannten Julianischen Periode, fortlaufend.
; Die Länge ergibt sich als kleinstes gemeinsames Vielfaches der Zyklen der Indiktion (15 Jahre), der Goldenen Zahl (19 Jahre)
; und dem Sonnenzyklus (28 Jahre, ergibt sich aus dem 4-jährigen Schaltjahrzyklus multipliziert mit den 7 Wochentagen).
; Das letzte Zusammenfallen der drei Zyklen (also das letzte mal, das alle drei Zyklen zugleich die Jahresnummer "1" hatten)
; war im Jahr 4713 v. Chr.
jjahr = jahr + 4713
; Schaltjahr
; im julianischen Kalender alle durch 4 teilbaren Jahre im gregrianischen Kalender nicht die durch 100 teilbaren
; jedoch wieder die durch 400 teilbaren Jahre. ; In Schaltjahren wird der Februar um einen so genannten Schalttag,
; den 29. Februar verlängert. ; Dieser ist dann der 60. Tag des Gregorianischen Kalenders.
; Eigentlich wurde jedoch, wie im Julianischen Kalender nach dem 23. Februar ein zweiter 24. Februar eingeschoben.
; Diese Tatsache war noch bis zur Neuordnung des kirchlichen Festkalenders 1969 daran erkenntlich, dass das Fest des
; Hl. Matthias, welches stets am 24. Februar gefeiert wurde, im Schaltjahr auf den 25. Februar verschoben wurde.
; Schalttag
; Dieser war seit römischer Zeit bis zum Jahr 1970 der 24. Februar. Mit dem Einschieben dieses Tages wurde der 24. und 25. Februar
; zu einem Tag mit 48 Stunden zusammengefasst und erhielten damit auch denselben Tagesbuchstaben.
; Seit 1970 wird der 29. Februar eingeschoben und der Feiertag des Apostel Matthias auch nicht mehr auf den 25. Februar verschoben,
; wie es bis dahin üblich war.
If jahr % 4 = 0
schaltjahr_j = 1
Else
schaltjahr_j = 0
EndIf
schaltjahr_g = schaltjahr_j
If jahr % 100 = 0
schaltjahr_g = 0
EndIf
If jahr % 400 = 0
schaltjahr_g = 1
EndIf
; Gregorianische Korrektur
; sie ist gleich der im gregorianischen Kalender gegenüber dem julianischen ausgefallenen Schalttage seit dem Jahr 201
korrektur_g = jahr / 100 - jahr / 400 - 2
; Julianischer Tag am 0.Januar des Jahres
jultag0_j = ((jjahr + 2) * 36525) / 100 - 1096
jultag0_g = jultag0_j - (jahr-1) / 100 + (jahr-1) / 400 + 2
; Goldene Zahl
; Zyklische Mondberechnung
; Der Berechnung der Vollmonde legte man den sogenannten Metonischen Zyklus zugrunde. Der Grieche Meton hatte, wie vor ihm schon
; babylonische Astronomen, erkannt, daß 235 Mondmonate ziemlich genau 19 Jahren entsprachen. Unter dieser Voraussetzung mußten
; die Neumonde nach 19 julianischen Jahren wieder auf dieselben Daten fallen. Zur Bezeichnung der Jahre innerhalb dieses 19jährigen
; Zyklus' errechnete man die sogenannte Goldene Zahl. Sie ist der um eins vermehrte Rest der Division der Jahreszahl durch 19.
; Zum Beispiel hatte das Jahr 1492 die Goldene Zahl 11.
; In allen Jahren mit der gleichen Goldenen Zahl mußten nun die Neumonde auf die gleichen Daten fallen.
; Es wurde festgestellt, daß in den Jahren mit der Goldenen Zahl 19 ein Neumond auf den 24. Dezember fiel. Da das kirchliche Jahr
; mit dem 25. Dezember, dem Weihnachtstage, begann, setzte man den Beginn des 19jährigen Zyklus auf den 24. Dezember.
; Die Datierung der Tage in diesem Mondkalender beruhte auf Monaten von abwechselnd 30 und 29 Tagen, beginnend mit einem
; 30tägigen Monat. Der 24. Dezember war der erste Tag des ersten 30tägigen Mondmonats, und dessen letzter Tag war somit der
; 22. Januar des neuen Jahres. Mit dem 23. Januar begann ein 29tägiger Mondmonat usf.
; Da ein Mondmonat etwas länger als 29,5 Tage ist, wurden im Laufe der 19 Jahre des Mondzyklus siebenmal Schaltmonate mit
; 30 Tagen eingefügt. Die Schalttage der Schaltjahre schob man ein, ohne an ihnen den Mondkalender weiterzuzählen.
; Um den neuen Mondzyklus wieder mit dem 24. Dezember beginnen zu lassen, mußte im letzten Jahr des Zyklus ein Tag fortgelassen werden.
; Diese Weglassung nannte man den saltus lunae.
; Durch diese Anordnung hatte ein Mondmonat eine durchschnittliche Länge von 29,53085 Tagen. Die wahre Länge eines (synodischen) Monats
; ist jedoch 29,53059 Tage. Der Unterschied zwischen zyklischem und wahrem Neumond wuchs in etwa 310 Jahren zu einem Tag an.
; die Goldene Zahl wird traditionell in römischen Ziffern angegeben.
goldene_zahl = ((jjahr - 1) % 19) + 1
; Indiktion
; Im Mittelalter war es üblich bei Datumsangaben die Römerzinszahl, Indiktionszyklus genannt, anzugeben. Es handelt sich dabei
; um einen im Römischen Reich eingeführten fünfzehnjährigen Grundsteuerzyklus. (indictio = kaiserliche Verfügung).
indiktion = ((jjahr - 1) % 15) + 1
; Sonnenzirkel
; Die Verteilung der Wochentage auf das Kalenderjahr hat einen Zyklus oder Zirkel von 7 x 4 = 28 Jahren.
; 7 von den Wochentagen und 4 von den Schaltjahren. Sonnenzirkel ist die Nummer des Jahres im Zyklus
sonnenzirkel = ((jjahr - 1) % 28) + 1
; Epakten neuen Stils
; Die gregorianische Reform des julianischen Kalenders geht auf die Gelehrten Aloysius Lilius, eigentlich Liugi Lilio
; (auch Giglio) Ghiraldi, und Christoph Clavius, eigentlich Christoph Klau, zurück.
; Der der verbesserten Osterrechnung zugrunde gelegte Mondzyklus hatte ebenfalls eine Länge von 19 Jahren, wurde jedoch zu bestimmten
; Zeitpunkten korrigiert.
; Die Epakten neuen Stils, die jetzt das Mondalter des 1. Januar bezeichneten, werden als eine Schöpfung Lilius' angesehen.
; Auch in der neuen Mondberechnung wechselten 30- und 29tägige Mondmonate ab. Die Neumonde wurden durch die Epakte derjenigen
; Jahre gekennzeichnet, in denen sie auftraten.
; Zum Zeitpunkt der Einführung des Gregorianischen Kalenders trugen die Jahre mit der Goldenen Zahl 1 die Epakte 1, d. h. auf den
; 31. Dezember des Vorjahres fiel ein (zyklischer) Neumond. Daher trat neben den 30. Januar eine 1, weil der erste Neumond
; in diesem Jahr an diesem Tage eintrat. Alle folgenden in Jahren mit der Goldenen Zahl 1 auftretenden Neumonde wurden ebenfalls
; mit einer 1 gekennzeichnet. Die Jahresepakte der Jahre mit der Goldenen Zahl 2 betrug 12, so daß alle Neumondtage dieses Jahres
; mit einer 12 gekennzeichnet wurden. Ebenso verfuhr man mit den weiteren Jahren. Die verbleibenden Lücken füllte man abwärtszählend
; auf, wobei in den 29-tägigen Monaten die Zahlen 25 und 24 an einem Tag nebeneinander geschrieben wurden.
; Auf diese Weise erhielt man den sog. Immerwährenden Gregorianischen Kalender.
epakte_j = ((goldene_zahl - 3) * 11) % 30
While epakte_j < 0
epakte_j + 30
Wend
; Sonnenangleichung
; jeder ausfallende Schalttag setzt die Epakte um 1 herunter entspricht also dem negativen Wert der gregorianischen Korrektur
sonnenangleichung = - korrektur_g
; Mondangleichung
; Regel: siebenmal alle 300 Jahre und das achte mal nach 400 Jahren einen Tag vorrücken. Der Beginn wurde auf das Jahr 1800
; festgelegt
; da hier nur bis zum Jahr 3199 grechnet wird, reicht die folgende Berechnung - sie ist bis zum Jahr 4199 korrekt
mondangleichung = (jahr / 100 - 15) / 3
epakte_g = (((goldene_zahl) * 11) + sonnenangleichung + mondangleichung) % 30
While epakte_g < 0
epakte_g + 30
Wend
; Sonntagsbuchstabe
; Bezeichnet man die Tage des Jahres zyklisch mit den Buchstaben von A bis G, so erhält man einen immerwährenden
; Kalender, bei dem nur die Zuordnung der Wochentage zu den Buchstaben wechselt.
; Der Wochentag wird dadurch festgelegt, daß man für jedes Jahr jenen Buchstaben anführt, der dem ersten Sonntag des
; Jahres zugeordnet ist; das ist der Sonntagsbuchstabe.
; In Schaltjahren erhält der Schalttag den gleichen Sonntagsbuchstaben wie der vorhergehende Tag. Es gibt also
; 2 Sonntagsbuchstaben - einen bis zum Schalttag und einen
; für die restlichen Tage.
; 0..6 Mo..So
wochentag_j = (jultag0_j + 1) % 7
wochentag_g = (jultag0_g + 1) % 7
; Sonntagsbuchstabe
sonntagsbuchstabe_j$ = sb(wochentag_j, schaltjahr_j)
sonntagsbuchstabe_g$ = sb(wochentag_g, schaltjahr_g)
; Ostergrenze
ostergrenze_j = 90 + (30 - epakte_j) + 13
If ostergrenze_j > 109
ostergrenze_j - 30
EndIf
ostergrenze_g = 90 + (30 - epakte_g) + 13
If ostergrenze_g > 109
ostergrenze_g - 30
EndIf
; Ausnahme 1
; die späteste Ostergrenze, der 19.April, wird regelmäßig in den 18. April umgeändert
If ostergrenze_g = 109
ostergrenze_g - 1
EndIf
; Ausnahme 2
; die davor liegende Ostergrenze, der 18.April, wird in den 17.April umgeändert, wenn die Goldene Zahl > 11 ist
If ostergrenze_g = 108 And goldene_zahl > 11
ostergrenze_g - 1
EndIf
wochentagog_j = (jultag0_j + ostergrenze_j + schaltjahr_j) % 7
wochentagog_g = (jultag0_g + ostergrenze_g + schaltjahr_g) % 7
; Ostern
; Die Osterberechnungen nach julianischem bzw. gregorianischem Modus berücksichtigen folgende Abweichungen nicht:
; 1. Die Festsetzung des Ostertermines in Teilen der spätantiken/frühmittelalterlichen Kirche nach den
; verschiedenen alternativen Osterzyklen vor und neben dem des Dionysius exiguus.
; 2. Abweichende Ansetzungen wegen anderer Grenztage (Teil des Osterstreits der alten Kirche).
; 3. Abweichende Ostertermine in protestantischen Ländern, die
; a) den gregorianischen Kalender zunächst nur als als bürgerlichen annahmen.
; b) am julianischen Kalender festhielten, aber dennoch Korrekturen am Schaltzyklus vornahmen.
dif = 6 - wochentagog_j
If dif < 1
dif + 7
EndIf
ostern_j = ostergrenze_j + dif
dif = 6 - wochentagog_g
If dif < 1
dif + 7
EndIf
ostern_g = ostergrenze_g + dif
; Festzahl
festzahl_j = ostern_j - 80
festzahl_g = ostern_g - 80
; Kalender-file erzeugen
If CreateFile(1, "Kalender" + jahr$ +".txt")
M = MessageRequester("Kalender","Der Kalender befindet sich als Textfile: 'Kalender"+jahr$+".txt' im Verzeichnis diese Programms", #PB_MessageRequester_Ok )
Else
Ergebnis = MessageRequester("Kalender","konnte file: 'Kalenderxxxx.txt' nicht erstellen", #PB_MessageRequester_Ok )
End
EndIf
Dim stelle.w(4)
stelle(1) = jahr / 1000
stelle(2) = (jahr / 100) % 10
stelle(3) = (jahr / 10) % 10
stelle(4) = jahr % 10
wochentag = wochentag_g
schaltjahr = schaltjahr_g
ostern = ostern_g
k$ = "gregorianisch"
Gosub PrintKalender
wochentag = wochentag_j
schaltjahr = schaltjahr_j
ostern = ostern_j
k$ = "julianisch"
Gosub PrintKalender
WriteStringN(1,"Jahreskennzeichen - gregorianisch / julianisch")
WriteStringN(1,LSet("Julianisches Jahr",26) + Str(jjahr) + " / " + Str(jjahr))
WriteStringN(1,LSet("Schaltjahr",26) + Str(schaltjahr_g) + " / " + Str(schaltjahr_j))
WriteStringN(1,LSet("gregorianische Korrektur",26) + Str(korrektur_g))
WriteStringN(1,LSet("Jul. Tag am 0.Januar",26) + Str(jultag0_g) + " / " + Str(jultag0_j))
WriteStringN(1,LSet("Sonnenzirkel",26) + Str(sonnenzirkel) + " / " + Str(sonnenzirkel))
WriteStringN(1,LSet("Mondzirkel = Goldene Zahl",26) + roemziffer(goldene_zahl) + " / " + roemziffer(goldene_zahl))
WriteStringN(1,LSet("Indiktion",26) + Str(indiktion) + " / " + Str(indiktion))
WriteStringN(1,LSet("Sonnenangleichung",26) + Str(sonnenangleichung))
WriteStringN(1,LSet("Mondangleichung",26) + Str(mondangleichung))
WriteStringN(1,LSet("Epakte",26) + Str(epakte_g) + " / " + Str(epakte_j))
WriteStringN(1,LSet("Wochentag am 1. Januar",26) + RTrim(tag_name.s(wochentag_g+1)) + " / " + RTrim(tag_name.s(wochentag_j+1)))
WriteStringN(1,LSet("Sonntagsbuchstabe(n)",26) + sonntagsbuchstabe_g$ + " / " + sonntagsbuchstabe_j$)
WriteStringN(1,LSet("Ostergrenze",26) + Left(tag_name.s(wochentagog_g+1), 2) + "," + RTrim(Tag2Datum(ostergrenze_g + schaltjahr_g)) + " / " + Left(tag_name.s(wochentagog_j+1), 2) + "," + RTrim(Tag2Datum(ostergrenze_j + schaltjahr_j)))
WriteStringN(1,LSet("Festzahl",26) + Str(festzahl_g) + " / " + Str(festzahl_j))
WriteStringN(1,"")
CloseFile(1)
RunProgram("Wordpad", "Kalender"+jahr$+".txt" , "" )
End
PrintKalender:
; Anzahl Tage der Monate
p = 0
For i = 1 To 12
If i > 1
n = (306 * (i + 2)) / 10 - 63 + schaltjahr
Else
n = (306 * (i + 14)) / 10 - 428
EndIf
tage_pro_monat.w(i) = n - p
tag_l.w(i) = n
p = n
Next i
; Die Kalendertage in das Array ordnen
m = (wochentag - 1) * -1
If m > -2
m = m - 7
EndIf
For i = 1 To 12
For j = 1 To 6
For k = 1 To 7
kalender.w(i,j,k) = 0
Next k
Next j
Next i
For i = 1 To 12
If i > 2
l = m - (306 * (i + 1) / 10 - 63 + schaltjahr) % 7
Else
l = m - (306 * (i + 13) /10 - 428) % 7
EndIf
While l < -5
l + 7
Wend
For j = 1 To 6
For k = 1 To 7
If l > 0 And l <= tage_pro_monat(i)
kalender.w(i,j,k) = l
EndIf
l + 1
Next k
Next j
Next i
sp = 24
Gosub PrintBig
i = 1
Repeat
WriteStringN(1,"")
WriteString(1,Space(6))
For j = 1 To 3
WriteString(1,Space(12) + monat_name.s(i+j-1))
Next j
WriteStringN(1,"")
WriteStringN(1,"")
For k = 1 To 7
WriteString(1,tag_name(k))
For l = i To i+2
WriteString(1," ")
For m = 1 To 6
If kalender.w(l,m,k) = 0
WriteString(1," ")
Else
WriteString(1,RSet(Str(kalender.w(l,m,k)),3))
EndIf
Next m
Next l
WriteStringN(1,"")
Next k
WriteStringN(1,"")
i + 3
Until i => 12
sp = 3
Gosub PrintFeiertage
sp = 20
Gosub PrintBig
i = 1
Repeat
WriteStringN(1,"")
For j = 1 To 3
WriteString(1," " + monat_name.s(i+j-1) + Space(13))
Next j
WriteStringN(1,"")
WriteStringN(1,"")
For j = 1 To 3
For k = 1 To 7
WriteString(1,Left(tag_name(k), 2) + " ")
Next k
WriteString(1," ")
Next j
WriteStringN(1,"")
For m = 1 To 6
For l = i To i+2
For k = 1 To 7
If kalender.w(l,m,k) = 0
WriteString(1," ")
Else
WriteString(1,RSet(Str(kalender.w(l,m,k)),2) + " ")
EndIf
Next k
WriteString(1," ")
Next l
WriteStringN(1,"")
Next m
WriteStringN(1,"")
i + 3
Until i => 12
sp = 1
Gosub PrintFeiertage
Return
PrintBig:
; erzeugt grosse Ziffern in 5x7 Matrix
For i = 0 To 6
WriteString(1,Space(sp))
For j = 1 To 4
WriteString(1," "+Mid(bigziffer.s(stelle(j)),5*i+1,5))
Next j
WriteStringN(1,"")
Next i
WriteStringN(1,k$)
Return
PrintFeiertage:
For i = 1 To 10
ftag = ostern + schaltjahr + ftag_diff(i)
WriteString(1,feiertage.s(i) + ": " + Tag2Datum(ftag))
ftag = tag_l.w(12) + ftag_diff(i+10)
If i < 8
ftag = ftag - (wochentag + 1 + schaltjahr) % 7
EndIf
If jahr < 1952 And i = 1 ; Totensonntag erst ab 1952
WriteStringN(1,"")
Else
WriteStringN(1,Space(sp) + feiertage.s(i + 10) + ": " + Tag2Datum(ftag))
EndIf
Next i
WriteStringN(1,Chr(12))
Return
Jahreskennzeichen bis zum Jahr 3199 (gregorianisch)
Diese Tabelle enthält, jeweils durch Komma getrennt folgende Angaben:
Jahr
JJ - Julianisches Jahr
S - Schaltjahr
KG - Korrektur, gregorianisch
JD 0Jan - Julianischer Tag am 0.Januar des Jahres
SZ - Sonnenzirkel
GZ - Goldene Zahl
IN - Indiktion
SA - Sonnenangleichung
MA - Mondangleichung
EP - Epakte
WT 1.Jan - Wochentag am 1.Januar des Jahres
SB - Sonntagsbuchstabe(n)
Ostergrenze - Wochentag und Datum der Ostergrenze
Ostern
FZ - Festzahl
Jahr ,JJ ,S,KG,JD 0Jan,SZ,GZ ,IN, SA,MA,EP,WT 1.Jan ,SB,Ostergrenze,Ostern ,FZ . . . 2000,6713,1,13,2451544,21,VI , 8,-13, 1,24,Samstag ,bA,Di-19.April,24.April,33 2001,6714,0,13,2451910,22,VII , 9,-13, 1, 5,Montag , g,So- 8.April,15.April,25 2002,6715,0,13,2452275,23,VIII ,10,-13, 1,16,Dienstag , f,Do-28.März ,31.März ,10 2003,6716,0,13,2452640,24,IX ,11,-13, 1,27,Mittwoch , e,Mi-16.April,20.April,30 2004,6717,1,13,2453005,25,X ,12,-13, 1, 8,Donnerstag,dc,Mo- 6.April,12.April,21 2005,6718,0,13,2453371,26,XI ,13,-13, 1,19,Samstag , b,Fr-25.März ,27.März ,6 2006,6719,0,13,2453736,27,XII ,14,-13, 1, 0,Sonntag , A,Do-13.April,16.April,26 2007,6720,0,13,2454101,28,XIII ,15,-13, 1,11,Montag , g,Mo- 2.April, 8.April,18 2008,6721,1,13,2454466, 1,XIV , 1,-13, 1,22,Dienstag ,fe,Sa-23.März ,24.März ,2 2009,6722,0,13,2454832, 2,XV , 2,-13, 1, 3,Donnerstag, d,Fr-10.April,12.April,22 2010,6723,0,13,2455197, 3,XVI , 3,-13, 1,14,Freitag , c,Di-30.März , 4.April,14 2011,6724,0,13,2455562, 4,XVII , 4,-13, 1,25,Samstag , b,So-17.April,24.April,34 2012,6725,1,13,2455927, 5,XVIII, 5,-13, 1, 6,Sonntag ,Ag,Sa- 8.April, 9.April,18 2013,6726,0,13,2456293, 6,XIX , 6,-13, 1,17,Dienstag , f,Mi-27.März ,31.März ,10 2014,6727,0,13,2456658, 7,I , 7,-13, 1,29,Mittwoch , e,Mo-14.April,20.April,30 2015,6728,0,13,2457023, 8,II , 8,-13, 1,10,Donnerstag, d,Fr- 3.April, 5.April,15 2016,6729,1,13,2457388, 9,III , 9,-13, 1,21,Freitag ,cb,Mi-24.März ,28.März ,6 2017,6730,0,13,2457754,10,IV ,10,-13, 1, 2,Sonntag , A,Di-11.April,16.April,26 2018,6731,0,13,2458119,11,V ,11,-13, 1,13,Montag , g,Sa-31.März , 1.April,11 2019,6732,0,13,2458484,12,VI ,12,-13, 1,24,Dienstag , f,Do-18.April,21.April,31 2020,6733,1,13,2458849,13,VII ,13,-13, 1, 5,Mittwoch ,ed,Mi- 9.April,13.April,22 2021,6734,0,13,2459215,14,VIII ,14,-13, 1,16,Freitag , c,So-28.März , 4.April,14 2022,6735,0,13,2459580,15,IX ,15,-13, 1,27,Samstag , b,Sa-16.April,17.April,27 2023,6736,0,13,2459945,16,X , 1,-13, 1, 8,Sonntag , A,Mi- 5.April, 9.April,19 2024,6737,1,13,2460310,17,XI , 2,-13, 1,19,Montag ,gf,Mo-26.März , 1.April,10 2025,6738,0,13,2460676,18,XII , 3,-13, 1, 0,Mittwoch , e,So-13.April,20.April,30 2026,6739,0,13,2461041,19,XIII , 4,-13, 1,11,Donnerstag, d,Do- 2.April, 5.April,15 2027,6740,0,13,2461406,20,XIV , 5,-13, 1,22,Freitag , c,Mo-22.März ,28.März ,7 2028,6741,1,13,2461771,21,XV , 6,-13, 1, 3,Samstag ,bA,Mo-11.April,17.April,26 2029,6742,0,13,2462137,22,XVI , 7,-13, 1,14,Montag , g,Fr-30.März , 1.April,11 2030,6743,0,13,2462502,23,XVII , 8,-13, 1,25,Dienstag , f,Mi-17.April,21.April,31 . . .
Jahreskennzeichen bis zum Jahr 3199 (julianisch)
Diese Tabelle enthält, jeweils durch Komma getrennt folgende Angaben:
Jahr
JJ - Julianisches Jahr
S - Schaltjahr
JD 0Jan - Julianischer Tag am 0.Januar des Jahres
SZ - Sonnenzirkel
GZ - Goldene Zahl
IN - Indiktion
EP - Epakte
WT 1.Jan - Wochentag am 1.Januar des Jahres
SB - Sonntagsbuchstabe(n)
Ostergrenze - Wochentag und Datum der Ostergrenze
Ostern
FZ - Festzahl
Jahr ,JJ S,JD 0Jan,SZ,GZ ,IN,EP,WT 1.Jan ,SB,Ostergrenze,Ostern ,FZ . . 2000,6713,1,2451557,21,VI , 8, 3,Freitag ,cb,So-11.April,18.April,27 2001,6714,0,2451923,22,VII , 9,14,Sonntag , A,Do-30.März , 2.April,12 2002,6715,0,2452288,23,VIII ,10,25,Montag , g,Mi-18.April,22.April,32 2003,6716,0,2452653,24,IX ,11, 6,Dienstag , f,So- 7.April,14.April,24 2004,6717,1,2453018,25,X ,12,17,Mittwoch ,ed,Fr-28.März ,30.März ,8 2005,6718,0,2453384,26,XI ,13,28,Freitag , c,Do-15.April,18.April,28 2006,6719,0,2453749,27,XII ,14, 9,Samstag , b,Mo- 4.April,10.April,20 2007,6720,0,2454114,28,XIII ,15,20,Sonntag , A,Fr-24.März ,26.März ,5 2008,6721,1,2454479, 1,XIV , 1, 1,Montag ,gf,Fr-13.April,15.April,24 2009,6722,0,2454845, 2,XV , 2,12,Mittwoch , e,Di- 1.April, 6.April,16 2010,6723,0,2455210, 3,XVI , 3,23,Donnerstag, d,Sa-21.März ,22.März ,1 2011,6724,0,2455575, 4,XVII , 4, 4,Freitag , c,Fr- 9.April,11.April,21 2012,6725,1,2455940, 5,XVIII, 5,15,Samstag ,bA,Mi-30.März , 3.April,12 2013,6726,0,2456306, 6,XIX , 6,26,Montag , g,Di-17.April,22.April,32 2014,6727,0,2456671, 7,I , 7, 8,Dienstag , f,Fr- 5.April, 7.April,17 2015,6728,0,2457036, 8,II , 8,19,Mittwoch , e,Di-25.März ,30.März ,9 2016,6729,1,2457401, 9,III , 9, 0,Donnerstag,dc,Di-14.April,19.April,28 2017,6730,0,2457767,10,IV ,10,11,Samstag , b,Sa- 2.April, 3.April,13 2018,6731,0,2458132,11,V ,11,22,Sonntag , A,Mi-22.März ,26.März ,5 2019,6732,0,2458497,12,VI ,12, 3,Montag , g,Di-10.April,15.April,25 2020,6733,1,2458862,13,VII ,13,14,Dienstag ,fe,So-31.März , 7.April,16 2021,6734,0,2459228,14,VIII ,14,25,Donnerstag, d,Sa-18.April,19.April,29 2022,6735,0,2459593,15,IX ,15, 6,Freitag , c,Mi- 7.April,11.April,21 2023,6736,0,2459958,16,X , 1,17,Samstag , b,So-27.März , 3.April,13 2024,6737,1,2460323,17,XI , 2,28,Sonntag ,Ag,So-16.April,23.April,32 2025,6738,0,2460689,18,XII , 3, 9,Dienstag , f,Do- 4.April, 7.April,17 2026,6739,0,2461054,19,XIII , 4,20,Mittwoch , e,Mo-24.März ,30.März ,9 2027,6740,0,2461419,20,XIV , 5, 1,Donnerstag, d,So-12.April,19.April,29 2028,6741,1,2461784,21,XV , 6,12,Freitag ,cb,Fr- 2.April, 4.April,13 2029,6742,0,2462150,22,XVI , 7,23,Sonntag , A,Di-21.März ,26.März ,5 2030,6743,0,2462515,23,XVII , 8, 4,Montag , g,Mo- 9.April,15.April,25 . . .
Ort Jahr Datensprung Italien 1582 04. Okt 15. Okt Spanien 1582 04. Okt 15. Okt Portugal 1582 04. Okt 15. Okt Polen - kath. 1582 04. Okt 15. Okt Frankreich 1582 09. Dez 20. Dez Lothringen 1582 09. Dez 20. Dez Niederlande - kath. 1582 14. Dez 25. Dez Holland 1582 14. Dez 25. Dez Brabant 1582 14. Dez 25. Dez Flandern 1582 14. Dez 25. Dez Hennegau 1582 14. Dez 25. Dez Augsburg - Bistum 1583 13. Feb 24. Feb Trier - Bistum 1583 04. Okt 15. Okt Österreich 1583 05. Okt 16. Okt Bayern 1583 05. Okt 16. Okt Freising - Bistum 1583 05. Okt 16. Okt Eichstädt - Bistum 1583 05. Okt 16. Okt Regensburg - Bistum 1583 05. Okt 16. Okt Salzburg - Bistum 1583 05. Okt 16. Okt Brixen - Bistum 1583 05. Okt 16. Okt Köln - Stadt 1583 03. Nov 14. Nov Würzburg - Bistum 1583 04. Nov 15. Nov Mainz - Erzbistum 1583 11. Nov 22. Nov Strassburg - Bistum 1583 11. Nov 22. Nov Lausitz 1584 06. Jan 17. Jan Böhmen 1584 06. Jan 17. Jan Schweiz - kath. 1584 12. Jan 23. Jan Schlesien 1584 12. Jan 23. Jan Westfalen - Herzogtum 1584 01. Jul 12. Jul Paderborn - Bistum 1585 16. Jun 27. Jun Polen - auch in nicht kath. Gebieten 1586 Ungarn 1587 21. Okt 01. Nov Siebenbürgen 1590 14. Dez 25. Dez Preussen - Herzogtum 1610 22. Aug 02. Sep Pfalz-Neuburg 1615 24. Dez Kurland - Herzogtum *** 1617 Wallis - Kanton 1622 Strassburg - Stadt 1682 05. Feb 16. Feb Deutschland - protestantisch * 1700 18. Feb 01. Mrz Dänemark 1700 18. Feb 01. Mrz Geldern 1700 01. Jul 12. Jul Niederlande (Zütphen, Utrecht, Groningen, Friesland,Overyssel)1700 01. Dez 12. Dez Schweiz - evgl. (Zürich, Bern, Basel, Schaffhausen) 1701 31. Dez 12. Jan Schweiz - St.Gallen 1724 Pisa, Florenz 1752 Schweiz - Glarus, Appenzell, Teil von Graubünden 1798 England und spätere USA 1752 02. Sep 15. Sep Schweden ** 1753 17. Feb 01. Mrz Rußland 1918 Griechenland 1923 Rumänien 1924 Türkei 1927 * Osterberechnung erfolgte rein astronomisch, erst ab 13.Dez.1775 wird die gregorianische Osterberechnung übernommen ** Vom 1. März 1700 bis 30. Febr. 1712 ist von den schwedischen Datierungen ein Tag abzuziehen, um Julianische zu erhalten *** ab 1696 gezwungen, wieder zum Kalender des russischen Reichs zurückzukehren
Einführung des Gregorianischen Kalenders an verschiedenen Orten
(ich suche Daten zur Ergänzung und Korrektur)
Schrift in Fuchsia: Ergänzungen durch mich - Quelle: Der Große Brockhaus, Band 9, 1931
Meyers Konversations-Lexikon 1888
Bitte beachten Sie, dass diese Information aus dem Jahre 1888 stammt.
Sie ist inzwischen teilweise überholt. Dies habe ich durch rote kursive Schrift kenntlich gemacht.
Zur festgesetzten Zeit eingeführt wurde der neue Kalender nur in Italien, Spanien und
Portugal; auch in Frankreich, Lothringen und den katholischen Niederlanden geschah dies
noch 1582, in dem katholischen Teil von Deutschland und den katholischen Kantonen der
Schweiz 1583, in Polen 1586, in Ungarn 1587; 1699 nahmen auch die evangelischen Stände
des Deutschen Reichs den neuen Kalender unter dem Namen des "verbesserten" an, und
infolgedessen wurde 1700 im protestantischen Deutschland auf den 18. Febr. gleich der
1. März gezählt. Gleichzeitig erfolgte auch in den Vereinigten Niederlanden die Annahme
des neuen Kalenders, der schon 1699 in Dänemark eingeführt worden war; 1701 folgte die
Mehrzahl der evangelischen Schweizerkantone, St. Gallen aber erst 1724, und in Glarus,
Appenzell und einem Teil von Graubünden behielten die Protestanten bis zu der
Staatsumwälzung von 1798 den alten Kalender bei. England führte den neuen Kalender 1752,
Schweden 1753 ein. Der alte Kalender ist jetzt nur noch in Rußland, Griechenland,
bei den Slawen griechischer Konfession und bei den mohammedanischen Wüstenbewohnern
von Fezzan, Tuat etc. im Gebrauch. Da in diesem Kalender die Jahre 1700 und 1800
Schaltjahre waren, im gregorianischen nicht, so ist ersterer oder der Kalender alten
Stils gegen diesen, den Kalender neuen Stils, gegenwärtig um 12 Tage zurück; es ist also
z. B. 4. Mai alten Stils = 16. Mai neuen Stils. Will man das Datum auf beide Arten
angeben, so schreibt man die gregorianische Angabe über die andere, z. B. 16./4. Mai,
2. Juni/21. Mai.
Zeitrechnung des Deutschen Mittelalters und der Neuzeit von Hermann Grotefend, 2 Bde, Hannover 1891-1898, Neudruck Aalen 1970.
Eingeführt wurde der Gregorianische Kalender in den verschiedenen Ländern zu den verschiedensten Zeiten.
Italien (mit Ausnahmen), Spanien und Portugal nach der päpstlichen Bulle 1582, Oct. 4 - Oct. 15.
Frankreich, Lothringen 1582, Dec. 9 - Dec. 20.
Holland, Brabant, Flandern, Hennegau 1582, Dec. 14 - Dec. 25.
Katholisches Deutschland 1583 zu verschiedenen Terminen.
Böhmen 1584, Jan. 6 -Jan. 17.
Schlesien, katholische Schweiz 1584, Jan. 12 -Jan. 23.
Unterwalden 1584, Juni.
Polen 1586.
Ungarn 1587, Oct. 21 - Nov. 1.
Strassburg 1682, Febr. 5 - Febr. 16.
Protest. Deutschland und Dänemark 1700, Febr. 18 - März 1.
Geldern, Zütphen, Utrecht, Groningen, Friesland, Overyssel 1700, Dec. 1-Dec. 12.
Zürich, Bern, Basel, Schaffhausen 1700. Dec. 31 - 1701, Jan. 12.
Glarus, Appenzell, St. Gallen (Stadt) 1724.
Pisa und Florenz 1750.
Grossbritannien 1752, Sept. 2 - Sept. 14.
Schweden 1753, Febr. 17 - März 1.
Graubünden 1811 (ungefähr).
In Russland, wo man bis dahin nach der Weltära gerechnet hatte, führte man zwar
1700 die Jahresbezeichnung der christlichen Aera ein, behielt aber bis auf unsern
Tag den Julianischen Kalender bei. Die protestantischen Stände Deutschlands nahmen
zwar 1700 den Gregorianischen Kalender (d.h. die Ausschaltung) an, verwarfen dagegen
die cyclische Berechnung des Ostervollmonds (den Epaktencyclus) zu Gunsten der rein
astronomischen Berechnung. Nachdem nun schon zweimal Verschiedenheiten in der
Osterfeier entstanden waren: 1724, wo die Protestanten am 9. April,
die Katholiken am 16. April, und 1744, wo die Protestanten am 29. März,
die Katholiken am 5. April Ostern feierten, nahmen 1775 am 13. Dec.
die protestantischen Stände Deutschlands auf Antrag Preussens auch die
Gregorianische Osterberechnung an. Dem Beschlusse der Conformität in der
Osterberechnung traten auch die evangelischen Cantone der Schweiz bei,
die gleich den protestantischen Reichsständen bis dahin die astronomische
Berechnung zur Anwendung gebracht hatten, während England und Schweden schon
gleich bei der Annahme des neuen Kalenders auch die Gregorianische Osterberechnung
acceptirt hatten. Nachtrag: Ueber die Einführungszeit des neuen Stils lässt sich
für verschiedene Gegenden noch Genaueres angeben.
In Polen führte man den Kalender Gregors nach der Bulle des Papstes durch einen
Sprung vom 4. auf den 15. October 1582 ein. Doch gelang die Einführung nicht überall
zum gleichen Tage, besonders nicht bei den Anhängern der protestantischen
und griechischen Kirche (Mitth. des Inst, für österr. Gesch. VI, 626).
Im Jahre 1583 folgte man im Bisthum Augsburg (13. auf 24. Febr.);
Erzbisthum Trier ( 4. auf 15. Oct.);
Oesterreich, Bayern, Bisthümer Freising, Eichstädt, Regensburg, Salzburg, Brixen (5. -16. Oct.);
Stadt Köln (3. auf 14. Nov.); Bisthum Würzburg (4. auf 15. Nov.).
Erzbisthum Mainz, Bisthum Strassburg 11. - 22. Nov.);
1584 in der Lausitz (wie in Böhmen 6. - 17. Jan.);
Herzogthum Westfalen (1. - 12. Juli).
1585 Bisthum Paderborn (16. -27. Juni).
1590 Sibenbürgen (14. - 25. Dec.).
1610 Herzogthum Preussen 22. Aug. - 2. Sept.).
1615 Pfalz-Neuburg (24. Dec.).
1617 Herzogthum Kurland (das 1796 wieder zum alten Kalender des russischen Reichs zurückkehren musste).
1622 Kanton Wallis.
1682 Stadt Strassburg (5. - 16. Febr.).
1700 Geldern (1. -12. Juli); Friesland, Groningen (31. Dec. - 12. Jan. 1701).
Graubünden folgte zu verschiedenen Terminen:
Puschlau 1760, Chur, Thusis, Flims, Engadin, Bergell 1784, die übrigen Theile 1798 mit Ausnahme von Süs,
das erst 1811 mit Gewalt dazu gezwungen werden musste.
In Schweden liess man (nach Horrebowius, opera math. -phys. II, 104 f.) 1700 nach Gregorianischer Weise
den Schalttag fort, behielt aber sonst den Julianischen Kalender bei.
Erst 1712 corrigirte man dieses wieder, indem man dem Februar 30 Tage gab. Vom 1. März 1700 bis 30. Febr. 1712
ist von den schwedischen Datierungen daher ein Tag abzuziehen um Julianische zu erhalten.
Quelle:http://www.manuscripta-mediaevalia.de/gaeste/gaeste.htm
Die Osterfest-Berechnung in alter und neuer Zeit von Dr Joseph Bach (1907):
Die Einführung dieses vortrefflichen Kalenders brachte wieder neue Spaltungen
in die Christenheit, da sie nur ganz allmählich erfolgte. Die Geschichte dieses
Kalenderkrieges kann hier nicht einmal skizziert werden.
Für den praktischen Gebrauch genüge daher eine Übersicht der Zeiten,
in denen die gregorianische Reform von den verschiedenen Staaten und
Konfessionen angenommen wurde. Es geschah dies in
Italien (mit Ausnahmen), Spanien, Portugal, katholischen Gebieten Polens am 15. Oktober 1582,
Frankreich, Lothringen, Holland, Brabant, Flandern, Hennegau Ende Dezember 1582,
Katholischem Deutschland im Jahre 1583, und zwar
Österreich, Bayern, Bistümer Trier, Freising, Eichstädt, Regensburg, Salzburg, Brixen Mitte Oktober 1583,
Bistümer Würzburg, Mainz, Strassburg, Stadt Köln Mitte November 1583,
Steyermark 25. Dezember 1583,
Katholischen Schweiz (ohne das Wallis, hier erst 1612), Lausitz, Schlesien, Böhmen Mitte Januar 1584,
Herzogtum Westfalen 12. Juli 1584,
Bistum Paderborn 27. Juni 1585,
ganz Polen im Jahre 1586,
Ungarn 1. November 1587,
Siebenbürgen 25. Dezember 1590,
Herzogtum Preussen 1. September 1612,
Pfalz-Neuburg 24. Dezember 1615,
Stadt Strassburg 16. Februar 1682,
Protestantischem Deutschland, Dänemark 1. März 1700 (Übergang vom 18.Februar - 1. März),
Geldern, Zütpfen, Gröningen, Friesland, Overyssel 12. Dezember 1700,
Zürich, Bern, Basel, Schaffhausen 12. Januar 1701 (Auslassung der ersten 11 Tage im Januar),
Glarus, Appenzell, Stadt St. Gallen im Jahre 1724,
Pisa, Florenz 1. Januar 1750,
Grossbritannien 14. September 1752,
Schweden 1. März 1753,
verschiedenen Orten Graubündens zu verschiedenen Zeiten von 1760 - 1811.
Kurland hatte den gregorianischen Kalender von 1617 - 1796, wurde dann aber von den
Russen gezwungen, zum julianischen Stil zurückzukehren.
Zwar nahmen die Protestanten Deutschlands im Jahre 1700 den gregorianischen Kalender an,
führten aber die astronomische Bestimmung des Ostervollmondes ein, indem sie die
Rudolfinischen von Kepler bearbeiteten Mondtafeln benutzten Infolgedessen feierten
sie Ostern in den Jahren 1724 und 1744 eine Woche früher als die Katholiken.
Diese Differenz verursachte in den konfessionell gemischten Gegenden sehr ärgerliche
Streitigkeiten. Als eine ähnliche Verschiedenheit für die Jahre 1778 und 1798 bevorstand,
da wurde auf Antrag Preussens am 13. Dezember 1775 vom "Corpus Evangelicorum" auf dem
Reichstage zu Regensburg die gregorianisch - cyklische Berechnung angenommen.
Um dies herbeizuführen, wies Preussen darauf hin, dass nach der astronomischen
Berechnungsweise das christliche Osterfest öfters mit dem jüdischen zusammenfallen würde,
z. B. auch in den Jahren 1778 und 1798, was vermieden werden solle.
Falsch ist hierbei die Unterstellung, als ob im gregorianischen Stil ein derartiges
Zusammentreffen nie vorkomme. Das christliche und jüdische Osterfest haben aber zuweilen
dasselbe Datum, z. B. fünfmal im zwanzigsten Jahrhundert, nämlich am 12. April 1903,
1. April 1923, 17. April 1927, 18. April 1954 und 19. April 1981.
Seit dem Jahre 1775 herrscht in der ganzen Christenheit, abgesehen von Russland und den
Staaten der Balkanhalbinsel (Griechenland, Bulgarien, Serbien, Rumänien, Montenegro),
Einmütigkeit in der Bestimmungsweise des Osterfestes. Nach der alexandrinisoh-dionysischen
Methode haben sich folgende Daten eingebürgert: Der früheste Frühlingsvollmond fällt auf
den 21. März (Neumond auf den 8. März), der Vollmond vorher gehört dem Winter an.
Das späteste Datum des Ostervollmondes ist der 18. April (Neumond am 5. April),
der letzte Wintervollmond am 19. März. Ist im ersten Falle der 21. März ein Samstag,
so wird Ostern am 22. März (frühester Ostertermin)[1] gefeiert; ist im zweiten Falle
der 18. April ein Sonntag, so fällt Ostern auf den 25. April (spätester Ostertermin).
Demnach bewegt sich der Ostervollmond (Ostergrenze) zwischen dem 21. März und 18. April,
der Ostertermin zwischen dem 22. März und 25. April; das Osterfest kann also auf 35
verschiedene Tage fallen.
Quelle: DIE OSTERFEST-BERECHNUNG IN ALTER UND NEUER ZEIT. EIN BEITRAG ZUR CHRISTLICHEN CHRONOLOGIE. VON Dr JOSEPH BACH,
Wissenschaftliche Beilage zum Jahresberichte des Bischöflichen Gymnasiums zu Strassburg i. E.
STRASSBURG, BUCHDRUCKEREI DES "ELSÄSSER", FINKMATTSTRASSE 6., 1907.
Brockhaus Enzyklopädie, Band 11, 1990
Die orthodoxen Länder Ost- und Südosteuropas behielten den alten Kalender bis in die zwanziger Jahre unseres (des 20.)
Jahrhunderts bei (Rußland bis 1918, Griechenland bis 1923, Rumänien bis 1924).
1927 hat auch die Türkei den Gregorianischen Kalender angenommen.
Anmerkung: die russische "Oktoberrevolution" fiel im gregorianischen Kalender auf den 7. November.
An diesem Tag wurde die Revolution denn auch bis zum Ende der Sowjetunion gefeiert.
Mehr Informationen zur Kalenderreform und die verschiedenen Kalenderepochen mit zahlreichen Querlinks bei:
Wikipedia - Kalendereform
Wer gerne tiefer in die Materie eindringen möchte, dem seien folgende Webseiten empfohlen:
http://www.computus.de/ - sehr umfassende Kalenderseite
http://www.ortelius.de/kalender/index.php - von Holger Oertel mit online-Kalenderrechner
http://www.kalenderlexikon.de/ - von Thomas Melchert
Zeitrechnung des Deutschen Mittelalters und der Neuzeit - von Dr. H. Grotefend