Einzelnen Beitrag anzeigen

mojo777

Registriert seit: 10. Sep 2003
402 Beiträge
 
#7

Re: Wie aktualisiere ich meine interbase DB?

  Alt 25. Mär 2005, 16:00
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;
Muh macht die kUh
  Mit Zitat antworten Zitat