Alter berechnen!

[thiagojonas]

Hallo,
ich habe da mal wieder ein kleines problem...

Ich habe eine DateTimePicker und zwei variablen

datum:string;
datum := DateToStr(Now);

time:string;
time := DateToStr(DateTimePicker.Date);

Ich möchte jetzt sozusagen datum - time berechnen und dann das "alter" anzeigen lassen, z.B. über ShowMessage.

Wie folgt bin ich vorgegangen.

Delphi-Quellcode:

procedure TForm7.datum_dateChange(Sender: TObject);
var alter:extended;
begin
  time := DateToStr(datum_date.Date);
  alter := StrToDate(datum) - StrToDate(time);
  if (alter) >= 18 then
begin
  Tabsheet4.TabVisible := true;
  end
else
  if (alter) < 18 then
begin
  Tabsheet4.TabVisible := false;
  end;
end;

Funktioniert irgendwie nicht ganz.
Wenn das augewählte Datum 1995, dann wir der Tabsheet nicht auf false gesetzt
Woran liegt das?

[haentschman]

Hallo...

probier mal folgendes:

if (alter) < 18 then ...weglassen, wenn das Programm in den else Zweig läuft ist alter eh < 18
aus...
if (alter) >= 18 then machst du mal...
if alter >= 18 then

[thiagojonas]

Hmm... habe ich gemacht, geht aber nicht.
Liegt das vielleicht am OnChange des TimeDatePickers?

[Michael Habbe]

Zitat von thiagojonas:

Hallo,
ich habe da mal wieder ein kleines problem...

Ich habe eine DateTimePicker und zwei variablen

datum:string;
datum := DateToStr(Now);

time:string;
time := DateToStr(DateTimePicker.Date);

Ich möchte jetzt sozusagen datum - time berechnen und dann das "alter" anzeigen lassen, z.B. über ShowMessage.

Wie folgt bin ich vorgegangen.

Delphi-Quellcode:

procedure TForm7.datum_dateChange(Sender: TObject);
var alter:extended;
begin
  time := DateToStr(datum_date.Date);
  alter := StrToDate(datum) - StrToDate(time);
  if (alter) >= 18 then
begin
  Tabsheet4.TabVisible := true;
  end
else
  if (alter) < 18 then
begin
  Tabsheet4.TabVisible := false;
  end;
end;

Funktioniert irgendwie nicht ganz.
Wenn das augewählte Datum 1995, dann wir der Tabsheet nicht auf false gesetzt
Woran liegt das?

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:

Delphi-Quellcode:

procedure TForm7.datum_dateChange(Sender: TObject);
var 
  alter: TDateTime;
begin
  alter := now - datum_date.Date;
  if alter >= 18 then
    Tabsheet4.TabVisible := true
  else
    Tabsheet4.TabVisible := false;
end;

So sollte es klappen.

Gruß
Michael

[haentschman]

nimm mal einen anderen Variablennamen für time.
...könnte mit dem reserviertem Wort Time verwechselt werden. Und dann stimmt deine Berechnung nicht.

[Hawkeye219]

Hallo,

bei TDateTime-Werten gibt die Zahl vor dem Komma die Tage und nicht die Jahre an.

Hast du dir schon einmal die Unit DateUtils und deren Routinen angesehen?

Gruß Hawkeye

[Michael Habbe]

Stimmt, mal nachgebessert

Zitat von Michael Habbe:

Delphi-Quellcode:

procedure TForm7.datum_dateChange(Sender: TObject);
var 
  alter: TDateTime;
begin
  alter := (now - datum_date.Date) / 365; // mal ohne Berücksichtigung der Schaltjahre
  if alter >= 18 then
    Tabsheet4.TabVisible := true
  else
    Tabsheet4.TabVisible := false;
end;

[thiagojonas]

Ich habe mir das jetzt mal anzeigen lassen. Das Problem ist, dass wenn ich ich z.B. den 4.11.1990 aus wähle, dann zeigt Delphi mir über Showmessage den 4.11.1917 an. Woran liegt das?

[haentschman]

Zitat:

Ich habe mir das jetzt mal anzeigen lassen.

was hast du dir anzeigen lassen ?

[thiagojonas]

showmessage(datetostr(alter));