Entwickler-Ecke

Sonstiges (Delphi) - alter berechnen


violat - Di 31.07.07 10:26
Titel: alter berechnen
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 - Di 31.07.07 10:39

So könnte man das machen !



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;


violat - Di 31.07.07 10:53

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 - Di 31.07.07 10:54


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


ene - Di 31.07.07 10:55

Hi,

StrToDate() sollte dein Freund sein.


Klabautermann - 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 - Di 31.07.07 11:09

ich danke euch!
jetz kann er es rechnen. :D