想问数据如何取整阿！

birdsmile

请问一下，附件中子窗体的总数量和码数是由单耗，件数等计算出来的，不过不知道怎么样做到取整进位（如：925.2=926 ; 1806.8053=1807 ）555...哪位大哥可以帮帮忙的。先谢啦！：）

skylark

To birdsmile :
Right?
_________________________
Do Our Job Well   Try Anything Once

birdsmile

skylark  谢谢你啦；）不过你看一下这样子是不是可以更好一些：）   
=IIf(round([单耗]*[件数],1)>round([单耗]*[件数],0),round([单耗]*[件数],0)+1,round([单耗]*[件数],0))  我就一直没想到用iif＋比较来实现，呵呵，人比较懒，总以为可以有现成的取整命令。不行了，这个周末可一定得去买本书来looklook ah，不然后面还有一堆问题。。。

唐小小

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

birdsmile

呵呵,不好意思,这帖子我问题解决后就没有回来看过,不过唐小小的四舍五入函数在别的帖子中看到了,谢谢帮忙啊!