da ich mit den Berechnungen des Geburtstags noch nicht so recht weiter komme, habe ich mal umgedacht und mein Problem anderes angefast. Wo ich ein wenig besser klarkomme und eigentlich schon ein Ergebnis habe.
Hierzu verwende ich ein Stringgrid (Dazu hatte ich was hier im Forum gefunden)
Delphi-Quellcode:
procedure TForm.StringGridKeyPress(Sender: TObject;
var Key: Char);
begin
with StringGrid do
begin
if col = 6 then if key = Chr(13) then calcYears;
end
end;
procedure TForm.calcYears;
var heute: TDateTime;
geb, jahr, monat, tag: Word;
i,code: Integer;
begin
heute := Now;
DecodeDate(heute, jahr, monat, tag);
with StringGrid do
begin
EditorMode := True;
if Cells[6,row] <> '' then
begin
Val(Cells[6,row], geb, code);
Cells[3,row] := IntToStr(jahr-geb)
end
end
end;
bis hierhin geht auch alles
jetzt habe ich aber nicht nur das Jahr für die Berechnungsgrundlage sondern möchte das Datum verwenden (20.12.1971)
damit die Berechnung genauer wird.
wie bekomme ich das den jetzt nur hin