samligning af floatfield virker ikke.

Hej.

Først vil jeg lige ønsker jer et GODT NYTÅR.

Jeg kan ikke få flg. kode til at virke, hvad er der galt ??
Table5Bredde er et floatfield, som indeholder bredden, det er denne bredde der skal danne grundlag for afgift.



procedure TMainFrm.Table5CalcFields(DataSet: TDataSet);
begin
    If (Table5Bredde.AsFloat < 2.80) then
      Table5Afgift.AsCurrency := 4373.00;
    If (Table5Bredde.AsFloat >= 2.80) and (Table5Bredde.AsFloat < 3.10)  then
      Table5Afgift.AsCurrency := 4637.00;
    If (Table5Bredde.AsFloat >=3.10) and (Table5Bredde.AsFloat < 3.40) then
      Table5Afgift.AsCurrency := 4967.00;
    If (Table5Bredde.AsFloat >= 3.40) and (Table5Bredde.AsFloat < 3.80) then
      Table5Afgift.AsCurrency := 5721.00;
    If (Table5Bredde.AsFloat >= 3.80) then
      Table5Afgift.AsCurrency := 6946.00
    else
      Table5Afgift.AsCurrency := 50.00;
end;


Hilsen

Finn Hansen