Aus Geburtsdatum automatisch das Alter berechnen

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

Hallo Leute,

stehe mal wieder vor einem Problem. Ich habe in meinem Formular zwei Felder.

EditGeburtsdatum.Text = Manuelle eingabe des Geburtstages & EditAlter.Text = Hier soll das Automatische Alter angegeben werden.

----

Hier im Forum habe ich folgendes gefunden

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

uses ...DateUtils;
....

var Geburtstag : TDate; 
    Alter : Integer;

begin 
  Geburtstag := '12.07.1987';
  Alter := YearsBetween(Geburtstag,now);
  Showmessage(Inttostr(Alter));
end;

Habe das versucht umzusetzen, aber irgendwie funktioniert es nicht. Entweder für meine Lösung das Falsche oder mein Umbau ist verkehrt was ich eher vermute.

Mein Umbau sieht so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TFormKundenverwaltung.EditAlterChange(Sender: TObject);
var
  Geburtsdatum : TDate;
  Alter : Integer;
begin
  Geburtsdatum := StrToDate(EditGeburtsdatum.Text);
  EditAlter.Text := IntToStr(YearsBetween(StrToDate(EditGeburtsdatum.Text), now));
end;

Bitte um Hilfe. Wie kriege ich im EditAlter.Text automatisch das Alter, wenn ich im EditGeburtsdatum.Text das Datum eingebe?

Mit freundlichen Grüßen

Nersgatt · Verfasst: Mo 24.11.14 14:38

GiuStyler hat folgendes geschrieben :

aber irgendwie funktioniert es nicht. Entweder für meine Lösung das Falsche oder mein Umbau ist verkehrt was ich eher vermute.

Solche Sätze sind immer ganz schlechte Fehlerbeschreibungen. Bitte sagt etwas genauer, was nicht funktioniert.

Bekommst Du eine Fehlermeldung?
Wenn ja welche?
Und wann kommt die Meldung?
Schon beim kompilieren oder wenn Du das Programm ausführst?
Oder bekommst Du ein falsches Ergebnis?
Welches Ergebnis bekommst Du und welches Ergebnis erwartest Du?

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

Es kommt kein Fehler.

Alles läuft. Nur wenn ich im EditGeburtsdatum.Text das Datum eingeben XX.XX.XXXX sollte bei anderem Fenster EditAlter.Text automatisch dann eben das Alter kommen. Es bleibt aber leer.

Mit freundlichen Grüßen

Nersgatt · Verfasst: Mo 24.11.14 14:51

Ist bei Deinem Editfeld, wo Du das Datum eingibst das Ereignis "OnChange" auch mit dem Code verbunden? Also im Propertyeditor?

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

Oh hm ne, da ist nichts eingetargen.

Da muss ich wohl den Wert dem EditAlter.Text zuweisen oder?

Also alles was mit dem Alter zu tun hat ist folgedes.
----

In der uses habe ich das hinzugefügt

markieren

Delphi-Quelltext

1:	DateUtils;

In der type Klasse ist das vorhanden

markieren

Delphi-Quelltext

1:	procedure EditAlterChange(Sender: TObject);

und dann der Code

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TFormKundenverwaltung.EditAlterChange(Sender: TObject);
var
  Geburtsdatum : TDate;
  Alter : Integer;
begin
  Geburtsdatum := StrToDate(EditGeburtsdatum.Text);
  EditAlter.Text := IntToStr(YearsBetween(StrToDate(EditGeburtsdatum.Text), now));
  ShowMessage(IntTostr(Alter));
end;

Das hier ist leer bzw. nicht vorhanden bei mir

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TFormKundenverwaltung.EditGeburtsdatumChange(Sender: TObject);
begin

end;

Mit freundlichen Grüßen

Nersgatt · Verfasst: Mo 24.11.14 15:09

Du musst ja festlegen, wann Dein Code ausgeführt wird.
Sinnvoll ist es hier, das zu machen, wenn sich der Text im Eingabefeld ändert. Dies wird durch das Ereignis "onChange" repräsentiert.
Also mache einen Doppelklick im Propertyeditor bei dem Ereignis. Delphi legt Dir dann einen leeren Procedurerumpf an. Dort kannst Du nun den Code einfügen, der Dir das Alter berechnet und das Ergebnis der Rechnung im Ausgabefeld anzeigt.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

Hm. Irgendwie funktioniert es nicht so wirklich. So wie ich es jetzt programmiert habe kommt sobald ich nur eine Zahl drücke automatisch im Feld 30.12.1899

Bei mir sehen nun beide so aus. Ist zu 100% Falsch. Aber habe gerade keine IDee welchen von beiden wenn überhaupt richtig ist

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TFormKundenverwaltung.EditGeburtsdatumChange(Sender: TObject);
var
  lg_geburtsdatum : TDate;
  Alter : Integer;
begin
  EditGeburtsdatum.Text := DateToStr(lg_geburtsdatum);
  EditAlter.Text := IntToStr(YearsBetween(StrToDate(EditGeburtsdatum.Text), now));
end;

procedure TFormKundenverwaltung.EditAlterChange(Sender: TObject);
var
  lg_eburtsdatum : TDate;
  Alter : Integer;
begin
  lg_eburtsdatum := StrToDate(EditGeburtsdatum.Text);
  EditAlter.Text := IntToStr(YearsBetween(StrToDate(EditGeburtsdatum.Text), now));
end;

Aber wie im ersten Satz beschrieben ist, sobald ich auf dem Geburtsdatum gehe und eine Zahl drücke kommt sofort 30.12.1899 und im Altersfeld was nicht beschrieben werden kann 114. Das geht schon mal, aber wieso kommt nun automatisch dieses Datum?

EDIT: Das EditAlterChange ist überflüssig. Habe ich gerade mal entfernt und es geht trotzdem mit dem beschriebenen Fehler.

Mit freundlichen Grüßen

WasWeißDennIch · Beiträge: 653 Erhaltene Danke: 160

Ich habe mal einen DateTimePicker und ein Label zur Anzeige statt zweier Edits genommen. Im OnChange des DateTimePickers steht:

markieren

Delphi-Quelltext

1:	lblAge.Caption := IntToStr(YearsBetween(now, dtpBirthday.Date));

Sieht bei kurzen Tests gut aus.

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

Das mit dem DareTimePicker hatte ich mal auch getestet, aber da zeigt er mir ja das aktuelle Datum und ich muss mich durchklicken bich ich dann das Geburtsdatum der jeweiligen Person eintragen kann. Das ist umständlicher als wenn ich die 8 Zahlen und zwei (.) direkt manuell eingeben oder?

WasWeißDennIch · Beiträge: 653 Erhaltene Danke: 160

Du kannst das Datum doch auch im DateTimePicker direkt eingeben, man muss ja nicht zwingend den Kalender benutzen.

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

Ja, habe ich gerade bemerkt, aber das Alter kommt nicht direkt.

Habe das im Label getestet, da kommt nichts und bei einem EditFeld muss ich im Editfeld erst rein und dann Leertaste drücken, damit das Alter kommt. Sieht beim Test gerade so aus.

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TFormKundenverwaltung.Edit1Change(Sender: TObject);
begin
  Label1.Caption := IntToStr(YearsBetween(now, DateTimePicker1.Date));
end;

WasWeißDennIch · Beiträge: 653 Erhaltene Danke: 160

Zitat:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TFormKundenverwaltung.Edit1Change(Sender: TObject);
begin
  Label1.Caption := IntToStr(YearsBetween(now, DateTimePicker1.Date));
end;

Den Sinn dahinter verstehe ich nicht. Wieso nimmst Du nicht das OnChange des DateTimePickers, das Edit brauchst Du doch überhaupt nicht?

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

OK. Danke. Funktioniert nun. Aber wie kriege ich nun das ausgewählte Datum ins StringGrid? Das war ja der Grund wieso ich es als EditFeld ausgegeben habe.

Welche Funktion muss ich nun nehmen statt

markieren

Delphi-Quelltext

1:	lg_geburtdatum := EditGeburtsdatum.Text

???

WasWeißDennIch · Beiträge: 653 Erhaltene Danke: 160

In DateTimePicker1.Date steht das ausgewählte Datum als TDate. Das kannst Du mit DateToStr ganz einfach in einen String umwandeln und z.B. in einem StringGrid anzeigen.

GiuStyler · Beiträge: 65 Erhaltene Danke: 1 Win 8.1 Delphi XE6

Danke. Habs gerade rausgefunden :-)

.

So, dann wäre das nächste Problem gelöst. Danke euch beiden für die Hilfe.

baka0815 · Verfasst: Mo 24.11.14 17:59

Um noch ein bisschen für Aufklärung zu sorgen:

Das "OnChange"-Ereignis eines Textfelds wird jedes mal gefeuert, wenn man eine Taste drück - eben mit jeder Änderung.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TFormKundenverwaltung.EditAlterChange(Sender: TObject);
var
  Geburtsdatum : TDate;
  Alter : Integer;
begin
  { Sorgt für eine Zugriffsverletzung, wenn in EditGeburtsdatum.Text kein gültiges Datum steht.
    Du könntest StrToDateDef(EditGeburtsdatum.Text, 0) verwenden.
    Bedeutet - Wandle den Text aus EditGeburtsdatum.Text in ein Datum um, klappt dies nicht, verwende 0 (30.12.1899).
    Du kannst dann im weiteren Verlauf prüfen ob Geburtsdatum <= 0 und abbrechen.
  }
  Geburtsdatum := StrToDate(EditGeburtsdatum.Text);

  { Du benutzt hier zweimal denselben Code (StrToDate(...))
    Da du das Geburtsdatum bereits in der Variable "Geburtsdatum" als TDate hast,
    solltest du dieses hier auch verwenden:

    YearsBetween(Geburtsdatum, Now)
  }
  EditAlter.Text := IntToStr(YearsBetween(StrToDate(EditGeburtsdatum.Text), now));

  ShowMessage(IntTostr(Alter));
end;

YearsBetween funktioniert übrigens nicht 100%ig, da immer ein Annäherungswert von 365,25 Tagen pro Jahr verwendet wird. Dadurch gibt es leichte Abweichungen.

Ein guter Beitrag dazu in der Delphi Praxis.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme