怎样让数据四舍五入在VB中设置

714010306　发表于：2012-10-11 14:48:42 　

Private Sub 销售价_LostFocus()
On Error GoTo err_销售价_lostfocus
Me.销售金额 = Me.数量 * Me.销售价
exit_销售价_lostfocus:
    Exit Sub
err_销售价_lostfocus:
   MsgBox Err.Description
   Resume exit_销售价_lostfocus
End Sub

Top

冰山发表于：2012-10-11 16:49:14

Me.销售金额 = round(Me.数量 * Me.销售价,3) '四舍五入保留三位小数

Top

煮江品茶发表于：2012-10-11 19:32:24

Me.销售金额 = round(Me.数量 * Me.销售价,2)

Top

714010306 发表于：2012-10-12 16:29:00

我按照上面两位说的改了，可是出现了：子过程或函数未定义？

Top

dbaseIIIer 发表于：2012-10-14 02:26:21

30年前编写苹果II 或 BBC电脑的 BASIC语言的方法是

Me.销售金额 = Int(Me.数量 * Me.销售价 + 0.5) '四舍五入至整数

注意负数时候的差别！

微软的 INT 函数与其他语言的 floor 函数相同的。

但是跟 Round 和 Clng 就有那么点点的区别。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

怎样让数据四舍五入在VB中设置