Ist eine Person volljährig?

[Udo Wamprecht]

Gibt es eine einfache, aber korrekte Möglichkeit die Volljährigkeit einer Person zu ermitteln, ohne Schaltjahre dafür berechnen zu
müssen?

[Michael Habbe]

Hi Udo,

ziehe einfach das Geburtsdatum vom heutigen Tage ab und dividiere durch 365:

Alter := (Now - GebDatum) div 365;

Gruß
Michae

[Stefan Bodenburg]

Denke mal das vielleicht eien Prüfung der Personalausweisnummer sinnvoller ist.Solltest Du dafür den Quelltext brauchen sende ich Dir diesen gerne zu

[Gast_1]

Hallo, könntest Du mir den Quellcode dafür mal schicken an

[email protected]

Danke,

Sebastia

[Udo Wamprecht]

Hi Michael,
danke für deinen Vorschlag, das Problem mit den Schaltjahren bleibt für eine genaue Berechnung trotzdem

[Michael Habbe]

Hi Udo,

wenn die Schaltjahre wichtig sind, musst Du erst die Anzahl der Schalttage ermitteln, um diese in die Berechnung einfließen zu lassen, dann kannst Du sie zusätzlich von Now abziehen, damit alle Jahre nur 365 Tage haben.

Oder:

Alter := (Now - GebDatum) / 365.25;

Michae

[Robert Marquardt]

Es gibt doch Funktionen, die dir die Anzahl Tage zwischen zwei Daten geben.<br>
Was ist uebrigens an der Schaltjahresrechnung kompliziert

[Carsten Schmitz]

Man müßte das doch über die Ausweisnummer relativ leicht machen können. Einige Websites verlangen dies ja. Und dies ist mittlerweile sogar rechtlich abgesichert durch ein Gerichtsurteil.

Ich weiß nur nicht, wie dieser Algorithmus funktioniert. Wenn es jemand weiß, kann es ja einer posten.

Grüsse,
Carste

[Wolfgang Freund]

Hallo zusammen!<BR>Müsste es nicht einfach reichen, zum Geburtsdatum 18 Jahre hinzuzurechnen und dann auf >= now abzufragen?<BR><PRE>if GebDatum + StrToDatetime('31.12.1917') >= now then<BR> volljaehrig := true<BR>else<BR> volljaehrig := false</PRE><BR>Ciao Wolfgan

[Horst Esser]

Hallo,

vernünftige Datumsberechnung gibt in den 'Systools'<br>
von Turbopower. Heute kostenlos bei<br>
SourceForge.net.

Gruß Hors

[wp]

Hallo,

ich würde es - mit Bordmitteln - so machen:

<PRE>
uses
SysUtils;

function IstVolljaehrig(geburtsdatum:TDate) : boolean;
var
y,m,d:word;
test : TDate;
begin
DecodeDate(date, y,m,d);
test := EncodeDate(y-18,m,d);
result := (geburtsdatum<=test);
end;
</PRE>

Egal wieviele Schaltjahre dazwischen sind, der 18.Geburtstag ist immer am selben Tag im selben Monat, aber halt 18 Jahre nach dem Jahr der Geburt. Genau dies steht in obiger Funktion.

Gruß, Werne

[André Perschke]

Guten Tag Herr Bodenburg,
könnten Sie mir bitte auch den Code zuschicken??? THX

MfG
André Perschk

[sseering]

könnte ich den quelltext zu überprüfung ob der inhaben des ausweises schon 18 ist auch haben ????

[email protected]

[Jochen Reichenberg]

http://www.pruefziffernberechnung.de/P/Personalausweis-DE.shtml

da das Geburtsdatum unverschlüsselt in der Pesonalausweisnummer steht... Der Rest steht weiter oben in den Postings.

Grüße Joche