除以小数取余数

Question

除数与被除数都是小数，例如100.31 / 0.3 我想得到334，余1.1，高手请指点一下。

Answer 1

如100.31/0.3=>(integer)10031/30
结果为334
然后(integer)(1003.1-1003.1x0.3)
结果是11
11/10=>1.1
这只是个例子具体运行我没有算

Answer 2

begin
  ShowMessage(FloatToStr(Trunc(100.31 * 100) div Trunc(0.3 * 100)));
  ShowMessage(FloatToStr(Trunc(100.31 * 100) mod Trunc(0.3 * 100) / 10));
end;

Answer 3

假如是 100.31 / 0.333333333 ，你想得到什么？--
http://www.agui.googlepages.com
mailto: agui.cn(a)gmail.com