Alter berechnen!

[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;