alter berechnen

violat · Hält's aus hier Beiträge: 7 Win xp

hallo,

mein programm muss das alter einer person ausrechnen. gegeben ist nur das geburtsdatum der person.
ich weiß, ich muss das aktuelle datum einlesen. aber wie mach ich das?
und wie kann ich dann das alter mit diesen daten errechnen?

bitte um schnelle hilfe

danke an alle schonmal die sich bemühen mir zu helfen

chrisw · Beiträge: 439 Erhaltene Danke: 3 W2K D7

So könnte man das machen !

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;

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.

violat · Hält's aus hier Beiträge: 7 Win xp

habs gleich mal ausprobiert, das pronblem is jetz aber, dass das geburtstag aus einer editkomponente eingelesen iwird und somit als string vorhanden ist. wie kann ich das umwandeln?

chrisw · Beiträge: 439 Erhaltene Danke: 3 W2K D7

markieren

Delphi-Quelltext

1:	Showmessage(IntToStr(YearsBetween(StrToDate(Edit1.Text),now)));

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.

ene · Verfasst: Di 31.07.07 10:55

Hi,

StrToDate() sollte dein Freund sein.

_________________
Wir, die guten Willens sind, geführt von Ahnungslosen, Versuchen für die Undankbaren das Unmögliche zu vollbringen.
Wir haben soviel mit so wenig so lange versucht, daß wir jetzt qualifiziert sind, fast alles mit Nichts zu bewerkstelligen.

Klabautermann · Verfasst: Di 31.07.07 11:00

Hi,

schaue dir aber am besten auch mal die Komponenten DateTimePicker von der Komponentenseite Win32 an, die verhindert viele viele Eingabefehler

.

violat · Hält's aus hier Beiträge: 7 Win xp

ich danke euch!
jetz kann er es rechnen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme