Alter berechnen!

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von thiagojonas · begonnen am 8. Dez 2008 · letzter Beitrag vom 9. Dez 2008

Vorheriger Beitrag

Nächster Beitrag

thiagojonas

Registriert seit: 31. Aug 2008
Ort: Wolfenbüttel
338 Beiträge

#25

Re: Alter berechnen!

8. Dez 2008, 20:04

Ahh... Super klasse

also für alle die das gleiche Problem haben

zusammenfalten · markieren

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;