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?