» Wochentagserrechnung nach Gauss oder Butcher

#include <iostream>

using namespace std;

/* Programm kalender.c zum ausrechnen, welcher
* Wochentag auf welches Datum fällt*/

#include <stdio.h>
#include <termios.h>
#include <unistd.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "kalender.h"

using namespace std;

struct Jahresdaten
{
int jahr;
int sp;
int monat;
int tag;
}
Jadat;

int getch(){
    struct termios oldt, newt;
    int ch;
    tcgetattr( STDIN_FILENO, &oldt );
    newt = oldt;
    newt.c_lflag &= ~( ICANON | ECHO );
    tcsetattr( STDIN_FILENO, TCSANOW, &newt );
    ch = getchar();
    tcsetattr( STDIN_FILENO, TCSANOW, &oldt );
    return ch;
}

/*Butcher'sche Osteralgorithmus */
void ostern(int jahr, int (*tag), int (*monat))
{
int a,b,c,d,e,f,g,h,i,k,l,m,n,p;

a = jahr % 19;
b = jahr / 100;
c = jahr % 100;

d = b / 4;
e = b % 4;
f = (b + 8 ) / 25;

g = (b - f + 1) / 3;
h = ((19*a) + b -d -g +15) % 30;
i = c / 4;

k = c % 4;
l = (32 +(2*e) + (2*i) -h -k) % 7;
m = (a + (11*h) + (22*l))/ 451;

n = (h+l-(7*m)+114)/31;
p = ((h+l-(7*m)+114) % 31) + 1;
*tag = p;
*monat = n;
}

//errechnet das Datum fuer den Ostersonntag
void geteastern(int j, int *monat, int *t)
{
int q, a, b, c, d, m, i;
*monat = 3;
if (( j >= 1582) && (j <= 1699))  {d = 10; m = 202; i = 1;}
if (( j >= 1700) && (j <= 1799))  {d = 11; m = 203; i = 0;}
if (( j >= 1800) && (j <= 1899))  {d = 12; m = 203; i = 0;}
if (( j >= 1900) && (j <= 2099))  {d = 13; m = 204; i = 2;}
if (( j >= 2100) && (j <= 2199))  {d = 14; m = 204; i = 2;}
if (( j >= 2200) && (j <= 2299))  {d = 15; m = 205; i = 1;}
if (( j >= 2300) && (j <= 2399))  {d = 16; m = 206; i = 0;}

q = j / 4;
a = j % 19;
b = (m - (11*a)) % 30;
if ((i = 1) && (b == 29)) b = 28;
if ((i = 2) && (b <=29) && (b >=28)) --b;
c = (j + q + b - d) %7;
*t = 28 + b - c;
if (*t > 31) { *t = *t -31; *monat = 4;}
}
void Erstertag(struct Jahresdaten *Jadat, int (*monlen)[12], int (*fita)[12], int (*letzta)[12], int (*mondat)[12][31]);
void Schaltjahr(int jhr, int (*sp), int (*monlen)[12]);

void DatumZeigen(struct Jahresdaten Jadat, char wotag[7][4], int mondat[12][31])
{
char monam[14][20] = { "Januar", "Februar", "März", "April", "Mai", "Juni",\
"Juli", "August", "September", "Oktober", "November", "Dezember" };
int mnt = Jadat.monat;
int tg = Jadat.tag;

cout << "Jahreszahl..............: " << Jadat.jahr << endl;
cout << "Monat...................: " << monam[mnt -1] << endl;
cout << "Tag im Monat............: " <<  Jadat.tag << " " << wotag[ mondat[mnt -1][tg-1]] << endl;
cout << "Jahresbeginn 1.Januar...: " << wotag[mondat[0][0]] << endl;;
cout << "Jahresende: 31.Dezember.: " << wotag[mondat[11][30]] << endl;
if (Jadat.sp == 0)
 cout << endl;
else
cout << "Schaltjahr " << endl;

}


int main(void)
{
int mondat[12][31], fita[12], letzta[12];
int wouhi = 5, jahr, tag, monat, otag, omon;
char wotag[7][4] = { "Mo", "Di", "Mi", "Do", "Fr", "Sa", "So" };
int monlen[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
/*char monam[14][20] = { "Januar", "Februar", "März", "April", "Mai", "Juni",\
"Juli", "August", "September", "Oktober", "November", "Dezember" };*/
struct jadat;

time_t t;
struct tm *tmp;
t = time(NULL);
tmp = localtime(&t);
if (tmp == NULL)
{
//perror("localtime");
cout << "Fehler";
goto finito;
}
// printf("\n\nDatum %d.%d.%d", tmp->tm_mday, tmp->tm_mon, tmp->tm_year + 1900);
// printf("\nZeit %d:%d:%d", tmp->tm_hour, tmp->tm_min, tmp->tm_sec);

jahr = Jadat.jahr = tmp->tm_year + 1900;
monat = Jadat.monat = tmp->tm_mon + 1;
tag = Jadat.tag = tmp->tm_mday;

do
switch(wouhi)
{
  default:
       cout << "Errechnet den Wochentag eines Datums" << endl << endl;
       cout << "Heutiges Datum: " << tag << "." << monat << "." << jahr << endl;
       cout << "Programmende:....1" << endl;
       cout << "Datumseingabe....2" << endl;
       cout << "Ihre Wahl:  " << endl;
       cin >> wouhi;
     break;

   case 1:
      return 0;
     break;


   case 2:
      cout << "Jahreszahl..: ";
      scanf("%d", &jahr);
      Jadat.jahr = jahr;

      cout << "Monat.......: ";
      scanf("%d", &monat);
      Jadat.monat = monat;

      cout << "Tag im Monat: ";
      scanf("%d", &tag);
      Jadat.tag = tag;

      Erstertag(&Jadat, &monlen, &fita, &letzta, &mondat);
      DatumZeigen(Jadat, wotag, mondat);
      ostern(jahr, &otag, &omon);
      cout << "Ostern am....: " << otag<<"." <<omon << "." << jahr << endl;
      geteastern(jahr, &omon, &otag);
      cout << "Ostern am....: " << otag<<"." <<omon << "." << jahr << endl << endl;
     wouhi = 7;
   break;
}
while(wouhi != 'e');

finito: return 0;
}



/* Ausser bei Schaltjahren ist der erste Tag im Jahr, also der
* 1te Januar derselbe Wochentag wie der 31te Dezember, weil in
* =========================================
* Jahr Beginn Ende Schaltjahr
* =========================================
* 2004 Do Fr Ja
* 2003 Mi Mi nein
* 2002 Di Di nein
* 2001 Mo Mo nein
* 2000 Sa So Ja
* 1999 Fr Fr nein
* 1998 Do Do nein
* 1997 Mi Mi nein
* 1996 Mo Di ja
* =========================================
*/



void Erstertag (struct Jahresdaten *Jadat, int (*monlen)[12], int (*fita)[12], int (*letzta)[12], int (*mondat)[12][31])
{
int dsp, jahr, jr, wtf, wtl, schritt;
int month, dmmy, moze, a, monatslaenge, monat;
//Jahreseckdaten uebernommen
jahr = Jadat->jahr;
month = monat = Jadat->monat;


if ((month < 1) || (month > 12)) monat = 1;

if(jahr < 2000)
{
jr = 1999;
wtf = wtl = 5;
schritt = -1;
}
if(jahr > 2000)
{
jr = 2001;
wtf = wtl = 6;
schritt = 1;
}
if(jahr == 2000)
{
wtf = 5; /* Rechnungsbeginn ist Samstag[=kennziffer 5] */
dsp = 1;
goto fertig;

}
/* bei jahr < 2000 wotafir = 5[Samstag],
* bei jahr > 2000 wotafir = 6[Sonntag]
* Zwei Schaltjahre können niemals aufeinander folgen!!
*/

schleife: Schaltjahr(jr, &dsp, monlen);

/* ------wenn Schaltjahr und vorher kein schaltjahr------- */
if ((dsp == 1) && (jahr > 2000))
{
wtf += 1;
wtl += 2;
}

if ((dsp == 1) && (jahr < 2000))
{
wtf -= 2;
wtl -= 1;
}

/* wenn kein Schaltjahr ist wtf = wtl, und wenn vorher kein Schaltjahr war
*/

if ((dsp == 0) && (jahr != 2000) && (wtf == wtl))
{
wtf += schritt;
wtl += schritt;
}

/* wenn kein Schaltjahr ist, ist wtf = wtl, aber vorher Schaltjahr war
*/
if ((dsp == 0) && (jahr < 2000) && (wtf != wtl))
{
wtf -= 1;
wtl -= 2;
}

if ((dsp == 0) && (jahr > 2000) && (wtf != wtl))
{
wtf += 2;
wtl += 1;
}

if (wtf < 0)
wtf += 7;
if (wtl < 0)
wtl += 7;

if (wtf > 6)
wtf -= 7;

if (wtl > 6)
wtl -= 7;

if (jr == jahr)
goto fertig;
jr += schritt;
goto schleife;

fertig: /* (*tz) = wtf; alt war wotafir */
Jadat->sp = dsp; /*(*sp) = dsp; */
(*monlen)[1] = 28 + dsp;


dmmy = wtf; /* (*tz); */
(*fita)[0] = dmmy; /* 1.ter Tag im Jahr ist gleich (*taze) */
(*mondat)[0][0] = dmmy; /* 1.ter Januar ist gleich (*taze) */

for(moze = 0; moze < 12; moze++)
{
if ( moze > 0)
(*fita)[moze] = dmmy;
for(a = 0; a < (*monlen)[moze]; a++)
{
monatslaenge = (*monlen)[moze] - 1;

if (a == monatslaenge )
(*letzta)[moze] = dmmy;
(*mondat)[moze][a] = dmmy;
dmmy += 1;
if (dmmy > 6)
dmmy = 0;
}
}
}


void Schaltjahr(int jhr, int (*sp), int (*februar)[12])
{
/*
* Wenn Jahreszahl ohne Rest durch Vier teilbar ist,
* ist die Jahreszahl ein Schaltjahre.
* Ausnahme1:
* Wenn die Jahreszahl ausserdem durch 100 teilbar ist, dann
* liegt kein Schaltjahr vor(sp=0).
* Ausnahme von der Ausnahme1:
* Wenn die Jahreszahl durch 400 teilbar ist, liegt doch
* ein Schaltjahr vor(sp=1).
*/
int dsp, s1, s2, s3;
dsp = 0;
s1 = jhr % 4;
s2 = jhr % 400;
s3 = jhr % 100;

if ((s1 == 0) || (s2 == 0)) dsp = 1;
if ((s2 != 0) && (s3 == 0)) dsp = 0;

(*februar)[1] = 28 + dsp;
//cout << jhr<< " Schaltjahr....:" << dsp<< " s1 " << s1 << " s2" <<s2 <<" s3" << s3;

(*sp) = dsp;
}

Mach mit!