Forum: Programmieren allgemein
by Michael Habbe,
8. Dez 2008
Vielleicht zuerstmal die Hilfe zum TDateTime-Typ studieren.
Damit hast Du dann das Hintergrundwissen, um damit zu rechnen.
Forum: Programmieren allgemein
by Michael Habbe,
8. Dez 2008
Aber warum willst Du Dir eigentlich die Differenz als Datum anzeigen lassen? :gruebel:
Mach doch einfach ShowMessage(FloatToStr(alter)), dann siehst Du doch die Jahre.
Forum: Programmieren allgemein
by Michael Habbe,
8. Dez 2008
Und wie bist Du an "alter" gekommen?!?
Mein Vorredner war schneller.
Heute 4.11.2008 - 4.11.1990 sind 18 Jahre.
Ab dem 31.12.1899 (der Nullpunkt) wäre es dann der 4.11.1917.
Forum: Programmieren allgemein
by Michael Habbe,
8. Dez 2008
Stimmt, mal nachgebessert :stupid: :angel2:
Forum: Programmieren allgemein
by Michael Habbe,
8. Dez 2008
Ich frage mich, warum Du das Datum und die Zeit erst in einen String verwandelst. Beim Hin- und Herwandeln wird wohl eine Rundungsungenauigkeit eintreten. TDateTime ist vom Typ Double, Du hast aber Extended verwendet.
Du kannst doch direkt damit rechnen:
procedure TForm7.datum_dateChange(Sender: TObject);
var
alter: TDateTime;
begin
alter := now - datum_date.Date;
if alter >= 18...