1:
2:
3:
4:

procedure TMastData.OrdersCalcFields(DataSet: TDataSet);
begin
  OrdersAlter.Value := OrdersADatum.Value - OrdersGDatum.Value 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function errechnealter(geburtsdatum: tdatetime) : integer;
var i :integer;
    heute, geburt : tdatetime;
begin
     geburt := geburtsdatum;
     heute := now;
     i := 0;
     while geburt+365 < heute do
     begin
     inc(i);
     geburt := geburt+365;
     end;

     errechnealter := i;



end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     alter.text :=  inttostr(errechnealter(strtodate('19.03.84')));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Function Alter (const Geburtstag, Stichtag: TDateTime): Integer;
var  d,dd,m,mm,y,yy : Word;
begin
if Stichtag < Geburtstag
then Result := -1
else begin
     DecodeDate (Geburtstag, y,m,d);
     DecodeDate (Stichtag,yy,mm,dd);
     Result := yy - y;
     if (mm < m) or ((mm = m) and (dd < d))
     then Dec (Result);
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Alter der Person ist ' + IntToStr(Alter(StrToDate('30.12.1993'),now)) + ' Jahre');
end;