Alter berechnen!

[thiagojonas]

Ahh... Super klasse

also für alle die das gleiche Problem haben

Delphi-Quellcode:

uses DateUtils...

procedure TForm7.datum_dateChange(Sender: TObject);
var alter: extended;
begin
  alter := YearsBetween(datum_date.Date, Now);
  if alter >= 18 then
begin
    Tabsheet4.TabVisible := true
end
  else
  if alter < 18 then
    Tabsheet4.TabVisible := false;
end;