Alter berechnen!

[haentschman]

...ist doch viel zu leicht
...man soll doch etwas lernen

[thiagojonas]

Zitat von roga:

Alter := YearsBetween(Geburtsdatum, Now);

Komisch das YearsBetween ist bei mir undeklariert.

[haentschman]

Zitat:

Unit
DateUtils

Syntax


[Delphi] function YearsBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;


Beschreibung
Mit YearsBetween können Sie die Differenz zwischen zwei TDateTime-Werten in Jahren ermitteln. Da nicht alle Jahre dieselbe Länge aufweisen (Schaltjahre), gibt YearsBetween eine Näherung zurück, die auf einem Wert von 365,25 Tagen pro Jahr basiert. Es werden nur vollständige Jahre gezählt. Deshalb meldet YearsBetween beispielsweise die Differenz zwischen dem 1. Januar und dem 31. Dezember mit 0, wenn kein Schaltjahr vorliegt. Bei Schaltjahren wird dagegen der Wert 1 zurückgegeben.

DateUtils in uses einbinden

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

[haentschman]

if alter < 18 then ...ist im else Zweig immer True...damit kannst du es weglassen.

[smallsmoker]

[ot]

Zitat von 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

sry das ich "soweit" nach oben greife ... aber du kannst auch

statt
if alter >= 18 then if (alter >= 18) then schreiben dann bekommst du nich so nen schock (so wie ich ) wenn du mal was mit java zu tuhen haben solltest
[/ot]

[DeddyH]

Zitat:

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;

Delphi-Quellcode:

procedure TForm7.datum_dateChange(Sender: TObject);
  Tabsheet4.TabVisible := YearsBetween(datum_date.Date, Now) >= 18;
end;

In der Kürze liegt die Würze

[hitzi]

Sieh dir mal YearsBetween, MonthsBetween und DaysBetween aus der Unit DateUtils an.

[EDIT] Oops ... wo kommt die zweite Seite her??? Hehe ... sorry