ach quatsch...
es ist halt nur allgemein gemeint.
hier bissle code aus einer Kundentabelle.
Delphi-Quellcode:
procedure TdmData.ibtKundenCalcFields(DataSet: TDataSet);
var
ASameYearDate:TDateTime;
AJetzt:TDateTime;
begin
ASameYearDate:=RecodeYear(ibtKundenKND_GEBOREN.AsDateTime, CurrentYear);
AJetzt:=Date;
if DaysBetween(ASameYearDate, AJetzt) <= GEB_TAG_DELTA then
begin
if ASameYearDate >= AJetzt then
ibtKundenGEBURTSTAG.AsInteger:=1
else if ASameYearDate < AJetzt then
ibtKundenGEBURTSTAG.AsInteger:=0;
end
else
ibtKundenGEBURTSTAG.AsInteger:=-1;
if ibtKundenFLM_SUMME.AsInteger > 0 then
ibtKundenGENOMMEN.AsBoolean:=True
else
ibtKundenGENOMMEN.AsBoolean:=False;
end;