求一个函数，对实数保留两位小数的!!多谢!!

Question

有条件哦，第二位不管是什么1、5、7呀，都要进位？
如123.454--------------123.46
  123.455--------------123.46
  123.458--------------123.46

Answer 1

uses math;
  SetRoundMode(rmUp);
  Y:= RoundTo(123.451, -2);

Answer 2

var f:real;
begin
  f:=123.454;
  f:=f+0.005;
  f:=Round(f*100)/100;
  //f等于123.46;  f:=123.456;
  f:=f+0.005;
  f:=Round(f*100)/100;
  //f等于123.46;end;

Answer 3

同意 pazee(耙子) 的方法，简洁明了！