Betreff: Re: Datumseingabe vor 1900

---

Hallo,

Datumsfelder speichern das Jahr nur dreistellig: 099 für 1999 und 117 für 2017, d.h. das kleinste darstellbare Datum ist 1900. Es gab aber mal ein INFO, welches das Geburtsdatum (ausgehend vom Eintrittsdatum) entsprechend als 18xx bzw 19xx interpretierte. Ich habe es sogar noch gefunden:

TITEL '18XX Geburtsdatum 18xx'
AUSWAHL PERSNR
FIRMA = 'F5'
RECHNE ALTER-H FORMAT (DA ) = HEUTE - GEBDATUM
RECHNE ALTER FORMAT ( 3 0) = ALTER-H * 0,0001
RECHNE ALTER = ALTER + 100 GEBDATUM GE EINDATUM
RECHNE TT FORMAT ( 2 0) = GEBDATUM
RECHNE TT-C FORMAT ( 2 C) = TT
RECHNE MM FORMAT ( 2 0) = GEBDATUM * 0,01
RECHNE MM-C FORMAT ( 2 C) = MM
RECHNE JJ FORMAT ( 4 0) = GEBDATUM * 0,0001 + 1900
RECHNE JJ = JJ - 100 GEBDATUM GE EINDATUM
RECHNE JJ-C FORMAT ( 4 C) = JJ
AUSGABE LISTE (2)
SORT JJ MM TT
*/ 123456 01.01.2016 01.01.2016 01.01.2016 111 /*
KOPF 'PersNr Geburt Eintritt Geb-Datum Alter'
KOPF '---------------------------------------------
'
ZEILE PERSNR GEBDATUM EINDATUM
TT-C FORMAT (0) '.' MM-C FORMAT (0) '.' JJ-C ' ' ALTER
ENDLEVEL
ZEILE ' '

PersNr Geburt Eintritt Geb-Datum Alter
---------------------------------------------
000000 01.09.1999 01.01.1965 01.09.1899 117
000000 04.03.1901 01.01.1958 04.03.1901 116

MfG