求一算法（DELPHI），把一实数按十分位>0则个分位进1,该怎么处理

2012-03-23

求一算法（DELPHI），把一实数按十分位0则个分位进1求一算法，把一实数按十分位0则个分位进1如：1440.19 操作

求一算法（DELPHI），把一实数按十分位>0则个分位进1
求一算法，把一实数按十分位>0则个分位进1
如：1440.19 操作后等于1440.2

只要十分位数大于0就向个分位进1

[解决办法]

Delphi(Pascal) code

//写个函数function MyRound(Value: Double): Double;begin  Result := Trunc(Value * 10 + 0.9) / 10;end;//调用的例子ShowMessage (FloatToStr(MyRound(1440.19)));ShowMessage (FloatToStr(MyRound(1440.1)));ShowMessage (FloatToStr(MyRound(1440.109)));