大家看看我写的模块，四舍五入，小数取整

krts

大家看看我写的模块，四舍五入，小数取整
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

唐小小

晕哦，那么好的代码没有人要吗？

hi-wzj

Function wr(X As Double, DP As Integer) As Double
wr = Int((X * 10 ^ DP) + 0.5) / 10 ^ DP
End Function

krts

晕哦，你自己看啊，我的比他的好，没有限制，还可以把1234.125取成1234.13与1200，1000等很多种，晕，我不好意思说，你好像不是太识货了，555，我不是有意的，开个玩笑

freeenter

前两天，站长他们搞了一个四舍五入的函数，挺经典的。