Código Delphi [-] uses FMTBcd; var x: Variant; begin x:= VarFMTBcdCreate(0,30,20); x:= 0.00000000000000000003; ShowMessage(x/2); end;
uses FMTBcd; var x: Variant; begin x:= VarFMTBcdCreate(0,30,20); x:= 0.00000000000000000003; ShowMessage(x/2); end;