Office中国论坛/Access中国论坛

标题: 想问数据如何取整阿！ [打印本页]

作者: birdsmile 时间: 2003-6-6 05:03
标题: 想问数据如何取整阿！
请问一下，附件中子窗体的总数量和码数是由单耗，件数等计算出来的，不过不知道怎么样做到取整进位（如：925.2=926 ; 1806.8053=1807 ）555...哪位大哥可以帮帮忙的。先谢啦！：）[attach]657[/attach]

作者: skylark 时间: 2003-6-6 06:46
To birdsmile :
Right?
_________________________
Do Our Job Well Try Anything Once[attach]659[/attach]

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

作者: 唐小小 时间: 2003-6-8 16:57
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 时间: 2003-6-15 23:30
呵呵,不好意思,这帖子我问题解决后就没有回来看过,不过唐小小的四舍五入函数在别的帖子中看到了,谢谢帮忙啊!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)