标题: 大家看看我写的模块，四舍五入，小数取整 [打印本页] 作者: krts 时间: 2003-6-7 00:47 标题: 大家看看我写的模块，四舍五入，小数取整 大家看看我写的模块，四舍五入，小数取整
Function Roundx(Fnumber As Double, Inumber As Integer) As Double
''/*/四舍五入函数(正数舍小数,负数舍整数部份) _
eg: roundx(12.235,2)=12.24;roundx(1234.12,-2)=1200
Dim Temproundx As Double
Temproundx = Fnumber * 10 ^ Inumber - Int(Fnumber * 10 ^ Inumber)
If Temproundx >= 0.49999 Then
Temproundx = Int(Fnumber * 10 ^ Inumber + 1) / 10 ^ Inumber
Else
Temproundx = Int(Fnumber * 10 ^ Inumber) / 10 ^ Inumber
End If
Roundx = Temproundx
Temproundx = 0
End Function 作者: 唐小小 时间: 2003-6-8 16:56
晕哦，那么好的代码没有人要吗？作者: hi-wzj 时间: 2003-6-12 09:17
Function wr(X As Double, DP As Integer) As Double
wr = Int((X * 10 ^ DP) + 0.5) / 10 ^ DP
End Function作者: krts 时间: 2003-6-12 17:26
晕哦，你自己看啊，我的比他的好，没有限制，还可以把1234.125取成1234.13与1200，1000等很多种，晕，我不好意思说，你好像不是太识货了，555，我不是有意的，开个玩笑作者: freeenter 时间: 2003-6-12 21:44
前两天，站长他们搞了一个四舍五入的函数，挺经典的。