Alter berechnen

Inhalt dieser Seite

Was heißt "Alter berechnen"?
Screenshot
Wochentag der Geburt
Glückszahl
Sternzeichen

Alter in Tagen
Etwas Nostalgie
Kalender im Internet
Referenzen.
.

Zurück zu Hauptseite "Mathematische Basteleien"

Was heißt "Alter berechnen"?
Das ist ein Spielerei aus den Anfangsjahren der Computerei:
Man gibt das Geburtsdatum einer Person und das gegenwärtige Datum vor.
Daraus wird das Lebensalter auf Tage genau berechnet.

Ich habe für diese Seite ein Programm in Visual Basic V3 aus dem Jahre 1993 ausgegraben, das das kann. Ich biete hier alter.exe zum Herunterladen an. Das Programm hat einen Umfang von 14 053 Byte.
Es läuft nur, wenn die Hilfsdatei vbrun300.dll in C:/Windows vorhanden ist. Man findet vbrun300.dll im Internet.

Beschreibung des Programms top
Screenshot

...... Die Beispiele für Geburts- und Enddatum wurden so gewählt, dass sich ein rundes Alter, nämlich 30.000 Tage, ergibt.

Das Programm macht außerdem noch Aussagen zum Wochentag der Geburt, zu einer Glückszahl und zum Sternzeichen.

Wochentag der Geburt top
In manchen Taschenkalendern gibt es einen "immerwährenden Kalender", bei dem zu einem Datum eine Kennzahl berechnet wird. Mit dieser Kennzahl sucht man in einer zweiten Tabelle den Wochentag auf.

Hier verwende ich eine "Wochentagsfunktion", die ich in einer Computerzeitschrift in den 1980ern Jahren gefunden habe.

Eine solche Methode zur Bestimmung des Wochentages wird auf der Webseite von Gregor Weingart erklärt (URL unten).

Glückszahl top
Angeblich hat jeder Mensch eine einstellige Glückszahl.;-).

Hier ist ein Vorschlag, wie man eine Zahl eindeutig aus dem Geburtsdatum berechnen kann.
In 23.01.1977 steckt die Zahl 23011977. Die Quersumme ist 2+3+0+1+1+9+7+7=30 und 30 hat die Quersumme 3+0=3.

Sternzeichen top
Ich habe berücksichtigt, dass man nicht einfach jedem vollen Monat ein Sternzeichen zuordnen darf. Es gibt Überschneidungen.

Alter in Tagen top
Das Programm verwendet eine Routine aus dem Beiheft des Pocket Computers PC-1248 der Firma Sharp.

Es gibt Formeln zur Berechnung der Tage im Internet.
Wer sich mit diesem Problem beschäftigen will, findet bei Bill Casselman (URL unten) die Beschreibung einer Methode.

Etwas Nostalgie top
Hier ist noch ein leicht abgeändertes, einfaches Programm zur Berechnung des Alters in Tage in QBASIC aus den 1980ern Jahren.

Dem Zählen der Tage liegt ein "Datumzähler" zugrunde.
Angenommen, der 28.07.1911 sei das Geburtsdatum, der 15.09.1993 der Endtag.
Ausgehend vom 28.07.1911 sucht das Programm immer das darauffolgende Datum und zählt dabei die Tage bis zum 15.09.1993. Die "Sprünge" an den Monats- und Jahresenden und bei Schaltjahren werden im Programm abgefragt.
Früher fasste man die Tage eines vollständigen Jahres zusammen, damit das Programm schneller wurde. Diese Beschleunigung fehlt hier.

Rem Alter
t = 28: m = 7: j = 1911
f = 15: v = 9: w = 1993
Do Until t = f And m = v And j = w
    If t = 28 And m = 2 And j / 4 = Int(j / 4) Then x = x + 1: m = m + 1
    If t = 28 And m = 2 Then t = 0: m = m + 1
    If t = 30 And (m = 4 Or m = 6 Or m = 9 Or m = 11) Then t = 0: m = m + 1
    If t = 31 And m = 12 Then t = 0: j = j + 1: m = 1
    If t = 31 Then t = 0: m = m + 1
    t = t + 1
   x=x+1 : Rem Tage zaehlen
   y = x / 365.25
Loop
Print x;y
End

Das Programm musste für meine jeweiligen Computer umgeschrieben werden.