Ich hatte hier mal einen Quellcode gefunden zur berechnung des Geburtsdatums
Delphi-Quellcode:
function Age(BirthDate: TDate): integer;
var y1,y2,m1,m2,d1,d2: Word;
begin
SysUtils.DecodeDate(date,y1,m1,d1);
SysUtils.DecodeDate(BirthDate,y2,m2,d2);
Result := ((y1 * 10000 + m1 * 100 + d1)
- (y2 * 10000 + m2 * 100 + d2)) div 10000;
end;
dieses wollte ich jetzt in meinem Projekt einbinden
Delphi-Quellcode:
procedure TSachverhaltForm.DateTimePicker1Exit(Sender: TObject);
begin
DateTimePicker1.DateTime:=EncodeDate(1950,1,25);
Alter.Text:='das Alter der Person ist ' + IntToStr(age(DateTimePicker1.Date)) + ' Jahre'; //ergibt 59 bei Systemdatum < 25.01.2010
end;
hierzu möchte ich aber eine MaskEdit zur Eingabe verwenden, um bei verlassen dieser in dem Editfeld "Alter.Text" mir dann das Alter ausgeben zu lassen.
Komme aber nicht ganz klar damit und Suche wie so oft hier wieder mal eure Hilfe.