Alter errechnung

[alixuszocker]

Hey leute, ich habe hier mal nen bissl gesucht habe aber nix gefunden.

Ich brauche Folgendes, ich möchte mir mein alter errechnen lassen, dass soll wie folgt funktionieren:

ich habe 2Edit Felder und eine Variable [alter] so jetzt soll das programm folgendes können.
Ich gebe in Edit1.Text mein Geburtsdatum ein zb 20.03.1990 so dann soll er jetzt das heutige datum nachschauen und sagen das man 17Jahre alt is und die 17jahre soll er auf edit2.text raus hauen und zusätzlich in die Variable alter rein schreiben wie alt man ist also 17 damit ich mit der variable alter noch etwas mehr machen kann aber das ist uninteressant.

wäre cool wenn mir hier einer helfen kann.

MFG Alex

[patti]

Du hast eine Delphi(.Net)-Thema eröffnet, aber du meinst wohl eher Delphi(Win32). Vielleicht könntest du das noch ändern. Hier mal einpaar Stichwörter, die dir helfen könnten:

StrToDate, Date(now), DateToStr

Du kannst Datumswerte einfach voneinander abzeihen, also z.B.

Delphi-Quellcode:

Diff := Wert2 - Wert1;

Hoffe, ich konnte dir zumindest etwas weiterhelfen!

[grenzgaenger]

nimm doch 'n tDateEdit, dann gehts wie folgt Alter := date - DatumEingabe.value;

that's all.

[DeddyH]

Wenn Du mit TDateTime-Werten rechnest, erhältst Du die Differenz in Tagen und müsstest noch alle Schaltjahre ermitteln, die zwischen den beiden Daten liegen. Ich würde das wohl eher mit TSystemTime machen, etwa so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var heute, GebDat: TSystemTime;
    Alter: byte;
begin
  DateTimeToSystemTime(now,heute);
  DateTimeToSystemTime(StrToDateTime(Edit1.Text),GebDat);
  Alter := heute.wYear - GebDat.wYear;
  if heute.wMonth < GebDat.wMonth then
    dec(Alter)
  else if (heute.wMonth = GebDat.wMonth) and (heute.wDay < GebDat.wDay) then
    dec(Alter);
  Edit2.Text := inttostr(Alter);
end;

Allerdings findet hier keine Fehlerbehandlung statt, die musst Du schon selbst implementieren.

[Phoenix]

Wenns wirklich .NET ist ist das supereasy ;-)
Der Datentyp System.DateTime bzw. TimeSpan kann das nämlich aus dem FF:

Delphi-Quellcode:

var geburtstag: System.DateTime;
var heute: System.DateTime;
var diff: System.TimeSpan;
begin
  heute := DateTime.Today;
  geburstag := DateTime.Parse(textbox1.Text);
  diff := heute - geburtstag;
  textbox2.Text := (diff.Days / 365).ToString();
end;

[DeddyH]

Bist Du sicher, dass das auch mit den Schaltjahren funktioniert? Die 365 finde ich etwas optimistisch.

[mkinzler]

Ich würde zuerst nur die Jahreszahlen betrachten und dann überprüfen welches der beiden Daten vorher ist und dementsprechend die Jahre dann anpassen

[Thanatos81]

Unter Delphi32 würde ich einfach YearsBetween aus der Unit DateUtils nutzen. Wobei das mit Schaltjahren nicht 100%ig genau ist, da es nicht alle Schaltjahre raussucht sondern mit 365,25 Tagen pro Jahr rechnet.

[DeddyH]

Zitat:

Zitat von mkinzler

Ich würde zuerst nur die Jahreszahlen betrachten und dann überprüfen welches der beiden Daten vorher ist und dementsprechend die Jahre dann anpassen

Genauso mache ich es ja in meinem Beispiel (allerdings nicht in .NET :mrgreen: )

[Phoenix]

Zitat:

Zitat von DeddyH

Bist Du sicher, dass das auch mit den Schaltjahren funktioniert? Die 365 finde ich etwas optimistisch.

Nicht wirklich. ;-)
Nehmen wir an, N sei eine glatte Zahl ohne Nachkommastellen.
Das ganze wird genau dann ein klein wenig ungenau, wenn (Anzahl Tage / 365) plus minus (N/4) Tage an ein N herankommt.
Für diese Zeiträume kann man dann nochmach nachprüfen, ob das aktuelle Datum (Tag, Monat) kleiner ist als der eingegebene Geburstag und wenn ja, 1 von der Anzahl der Jahre abziehen wenn wir knapp _über_ N sind. Wenn wir unter N sind passt das ja.