[SQL] Ganzzahl ändern in Dezimalzahl mit 2 Nachkommstellen

[Hansa]

In der DB (eventuell gehts nur so) :

SQL-Code:

DECLARE EXTERNAL FUNCTION DIV
    INTEGER,
    INTEGER
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_div' MODULE_NAME 'IB_UDF'

Auf Client Seite dann so :

Delphi-Quellcode:

function LeseRealFeld (d : TpFIBDataSet;FeldName : string) : real;
begin
  if StrVorhanden (FeldName) then
    LeseRealFeld := d.FieldByName(FeldName).AsCurrency
  else
    LeseRealFeld := 0;   // eventuell NULL
end;