![]() |
Alter errechnung
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 |
Re: Alter errechnung
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:
Hoffe, ich konnte dir zumindest etwas weiterhelfen!
Diff := Wert2 - Wert1;
|
Re: Alter errechnung
nimm doch 'n tDateEdit, dann gehts wie folgt Alter := date - DatumEingabe.value;
that's all. |
Re: Alter errechnung
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:
Allerdings findet hier keine Fehlerbehandlung statt, die musst Du schon selbst implementieren.
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; |
Re: Alter errechnung
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; |
Re: Alter errechnung
Bist Du sicher, dass das auch mit den Schaltjahren funktioniert? Die 365 finde ich etwas optimistisch.
|
Re: Alter errechnung
Ich würde zuerst nur die Jahreszahlen betrachten und dann überprüfen welches der beiden Daten vorher ist und dementsprechend die Jahre dann anpassen
|
Re: Alter errechnung
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.
|
Re: Alter errechnung
Zitat:
|
Re: Alter errechnung
Zitat:
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:00 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz