小数点前一位大于0就添10

小数点前一位大于0就加10
财务的要求，想多收点客户的钱

比如
212
就得到220


211.5也是220

用啥个函数
------解决思路----------------------
ceil 函数
ceil(x / 10) x10;
------解决思路----------------------
楼主：我知道你们财务的要求。应该是0.01--9.99元，统统取整为10.00元。
你表达是否这样？ 

自己编写一个函数即可：

function GetAddMoney(M:Double):Double;

begin

  Result :=Trunc((M+9.99)/10)*10;

end;

测试代码：

procedure TForm1.Button1Click(Sender: TObject);

var X:Double;


function GetAddMoney(M:Double):Double;

begin

  Result :=Trunc((M+9.99)/10)*10;

end;


begin

  X:=Strtofloat(Edit1.Text);

  Edit2.Text:=FloatToStr(GetAddMoney(X));

end;

------解决思路----------------------
有意思,多一分钱也加10元,应该不是楼主想要的,我觉得应该是这样子滴

procedure TForm1.Button1Click(Sender: TObject);

var X:Double;

  function GetAddMoney(M: Double): Double;

  begin

    if (Round(M) mod 10) > 0 then

      Result := Trunc((M + 10) / 10) * 10

      else

      Result := Trunc((M) / 10) * 10;

  end;


begin

  X := Strtofloat(Edit1.Text);

  Edit2.Text := FloatToStr(GetAddMoney(X));

end;

------解决思路----------------------
楼主：如果1.00--9.99元，统统取整为10.00元。0.01-0.99取消。

可以修改使用函数：

function GetAddMoney(M:Double):Double; 

begin

  Result :=Trunc((M+9)/10)*10; 

end;