Tage in Jahre

[Duffy]

Hallo,
als Function wärs schöner gewesen !

Delphi-Quellcode:

function AlterInJahren(const Damals, Heute: TDateTime): Integer;
var
   DamalsTag, DamalsMonat, DamalsJahr: Word;
   HeuteTag, HeuteMonat, HeuteJahr: Word;
begin
  if Heute < Damals then
  begin
     Result := -1
  end
  else
  begin
    DecodeDate (Damals, DamalsJahr, DamalsMonat, DamalsTag);
    DecodeDate (Heute, HeuteJahr, HeuteMonat, HeuteTag);
    Result := HeuteJahr - DamalsJahr;
    if (HeuteMonat <= DamalsMonat) and (HeuteTag < DamalsTag) then
    begin
      Dec (Result);
    end;
  end;
end;

Delphi-Quellcode:

procedure TForm3.DBEdit10Change(Sender: TObject); 

var 
datum1, datum2,Dneu,dneu1: TDatetime; 
i: Integer; 
d,m,y,d1,y1,m1 : Word; 
begin 
  IF DBEdit10.Text <>'' then begin 
  datum1:= Query1.FieldByName('date').AsDateTime; 
  datum2:=now; 
  edit2.Text := IntToStr(AlterInJahren(datum1, datum2) + ' Jahre';
  end else begin 
  Edit2.Text := ''; 
  end; 
end;

bye