Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
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.
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.
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
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.
Comment