Datumsarithmetik

Nyckelpiga · Anmeldungsdatum: 18.07.2006 Beiträge: 1

Würde mir gerne ein Programm schreiben, dass mir für jedes Datum vom 1.1.1 bis 31.12.2999 die Quersumme in der Form ausrechnet:
Tag + Monat + Jahr = Zahl
Z+a+h+l = Quersumme
Falls Quersumme > 21 bilde weitere Quersumme

Bsp.: 27.06.1967
27 + 6 + 1967 = 2000
2 + 0 + 0 + 0 = 2
if 2 < 22 then goto Ende

Bsp.: 26.06.1967
26 + 6 + 1967 = 1999
1 + 9 + 9 + 9 = 28
if 28 < 22 then goto Ende
else 2 + 8 = 10

usw. Wie gesagt hätte ich gerne für alle existierenden Daten eine Quersumme kleiner 22.

Ich kann in Perl programmieren, gibt es da evtl. ein paar schicke Module die sowas erleichtern, habe keine Lust die ganze Datumslogik mit den Schaltjahren usw. selber zu schreiben? Ich dachte es sollte sowas geben, da sage ich erstmal einfach: "Gib mir alle realen Daten seit 1.1.1 bis 31.12.2999," dann rechne ich die Quersumme aus für jedes einzelne davon und schreibe alles schick formatiert raus in eine Datei.

Klingt das gut? Hat jemand sowas schon einmal gemacht, oder so was ähnliches und welches Modul von Perl sollte ich dazu verwenden? Gibt es vielleicht auch ein Quersummenmodul? Was heisst Quersumme in englisch?

Thomas · Administrator Anmeldungsdatum: 13.02.2005 Beiträge: 208

Thema dazu im Matheboard:

http://www.matheboard.de/thread.php?threadid=37285

as_string · Anmeldungsdatum: 24.02.2006 Beiträge: 80 Wohnort: Heidelberg

Hallo,

Also, in Perl gibt's ja die Funktion "localtime()", die Du auch mit einem Argument aufrufen kannst, das der Unixzeit entspricht. Wenn Du das immer um 3600*24 Sekunden erhöhst, dann bekommst Du ja nach und nach alle Daten. Die Funktion liefert ein Array zurück, das auch Tag, Monat und Jahr enthält. Ich weiß allerdings nicht, in welchem Bereich man die Funktion verwenden kann. Das steht aber sicher irgendwo.

Für die Quersumme wäre meine Idee das hier:

as_string · Anmeldungsdatum: 24.02.2006 Beiträge: 80 Wohnort: Heidelberg

Hallo!

Ich habe mal etwas rumgespielt:

dachdecker2 · Moderator Anmeldungsdatum: 11.06.2005 Beiträge: 106 Wohnort: Maintal / Hessen

Ich denke mal, dass es auf ein paar Schalttage nicht ankommt. Die sind sowieso unwichtig, weil da mit hoher Wahrscheinlichkeit nichts bedeutendes passiert, wenn das entsprechende Blatt nicht im Kalender drin ist Augenzwinkern

. Wenn du alle 29. Februare weglässt, fehlen dir dann die Daten von 242,5 Tagen pro Jahrtausend.

Aber nur zur Info, die Zeitrechnung auf der deine Daten beruhen werden, ist im Jahre 1582 eingeführt worden. Es macht sicherlich nicht viel Sinn, darüber hinauszurechnen.

Ansonsten gibts ne einfache Regel: alle Jahre, die durch 4 ohne Rest teilbar sind, sind Schaltjahre. Keine Schaltjahre sind die Jahre, die ohne Rest durch 100 teilbar sind, außer denen die durch 400 gehen (die sind dann wieder Schaltjahr vgl. 2000 n. Chr., keine Schaltjahre sind etwa 1900 und 2100 n. Chr.).

as_string · Anmeldungsdatum: 24.02.2006 Beiträge: 80 Wohnort: Heidelberg

Hallo Dachdecker!

Bei meinem Code werden die Schalttage schon auch mit berücksichtigt. Das Problem ist nur die Gesamtanzahl der Tage, die die Schleife durchläuft. Wenn man exakt zwischen Datum soundso bis Datum soundsoanders durchlaufen will, dann müßte man erst kompliziert berechnen, wieviele Tage das insgesamt sind, damit man auch wirklich beim Zieldatum ankommt, so wie Du das mit den Schalttagen ja auch beschrieben hast. Man müßte also berechnen: zwischen Anfangsdatum und Enddatum liegen so und so viele Schalttage und diese dann dazu addieren.
Ein anderes Problem wären noch die Leapseconds. Wenn die in der Perl-Funktion berücksichtigt werden würden, dann würde das Programm u. U. mal zweimal den selben Tag ausgeben oder so (also dann den 1.1. oder 31.12. ?). Aber das ändert nichts an der Quersumme, die ist dann ja trotzdem richtig.
Insgesamt denke ich, dass man mit diesen Einschränkungen leben kann. Es geht ja, wenn ich das richtig verstanden habe, nur um eine Tabelle dieser ganzen Zahlen, bei der aber alle Dati (wie ist eigentlich der Plural von Datum? Daten ist ja irgendwie irreführend im Zusammenhang mit Informatik, oder?) vorkommen sollen. Das leistet mein Miniprogramm schon. Allerdings ist es eben schwierig den Wertebereich fest zu legen und der Bereich ist vielleicht so wie eingeschränkt durch die localtime-Funktion.

Gruß
Marco

dachdecker2 · Moderator Anmeldungsdatum: 11.06.2005 Beiträge: 106 Wohnort: Maintal / Hessen

Der Plural von Datum ist Daten (Datum ist nicht nur ein Zeitpunkt sondern allgemein die Einzahl vom Wort Daten).

Ich kann kein Perl aber ich denke mal, dass man doch aus der for-Schleife ne while-Schleife machen können müsste - dann könnte man die durchläufe zählen und nachher (falls es interessiert) die Anzahl der Tage ausgeben.

as_string · Anmeldungsdatum: 24.02.2006 Beiträge: 80 Wohnort: Heidelberg

dachdecker2 · Moderator Anmeldungsdatum: 11.06.2005 Beiträge: 106 Wohnort: Maintal / Hessen

Basiert denn das Unixdatum auf einem unsigned-Typ? wenn nicht, wird das wohl mit der Umrechnung der Daten nichts werden, die 0 liegt bestimmt in der Gegend von 1980 oder 1900. also wird man weder bei 0 n. Chr. noch bei 1582, dem Start des aktuellen Kalenders anfangen können.

Wahrscheinlich muss man sich da was eigenes bauen.

as_string · Anmeldungsdatum: 24.02.2006 Beiträge: 80 Wohnort: Heidelberg

Ich hatte mit meinem Beispiel-Skript etwas experimentiert und festgestellt, dass er negative Zahlen auch annimmt und auch korrekt verarbeitet. Die 0 entspricht übrigens dem 1.1.1970 00:00Uhr , so weit ich weiß, müßte jetzt aber auch nochmal nachschauen.
Ob man damit bis zum Jahr 16. Jahrhundert zurück kommt, weiß ich allerdings auch nicht. Soweit ich im entsprechenden Thread im Matheboard gesehen habe, geht es wohl eher um Geburtsdaten, so dass im Normalfall das letzt Jahrhundert ausreichen sollte, oder? Ich vermute, dass das eine 64-bit signed Zahl ist intern, aber wie gesagt: keine Ahnung...

Ich habe gerade mal etwas auf http://search.cpan.org gesucht und ich denke, dass ich das ideale Modul für unsere Zwecke gefunden habe:
Date::Step
Da gibt man ein Startdatum, ein Enddatum und einen Zeitschritt an (also '1d' für einen Tag in unserem Fall) und das Ding liefert dann nach und nach die entsprechenden Daten. Anscheinend auch in einem sehr großen Wertebereich...
Wenn ich noch Zeit habe, versuche ich unser kleines Bsp. mal entsprechend um zu schreiben.

Gruß
Marco