|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/25 15:25:57 |
标题: |
请教,有没有指定小数点后任意保留几位的四舍五入的函数? |
浏览:1198 |
|
加入我的收藏 |
楼主: |
请教,有没有指定小数点后任意保留几位的四舍五入的函数?
----------------------------------------------
- |
作者: |
|
2004/3/25 16:48:07 |
1楼: |
我給你寫一個吧,,可以接受負數哦。
uses Math; //只用到中間的Power指數函數
function RoundX(R: Extended; Digit: ShortInt): Extended; begin Result := //結果等於 Round(R * Power(10, Digit)) //小數點右移Digit位取四舍五入 * Power(10, 0 - Digit); //小數點左移Digit位。 end;
----------------------------------------------
——混世生
|
|