[求助]：autocad里vba的四舍五入的函数是什么?

xiaokai · 发表于 2005-2-21 17:45:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

autocad里vba的四舍五入的函数是什么?
谢谢!

yi.gao · 发表于 2005-2-21 20:53:31

多数编程语言的四舍五入函数均为：Round。

ps122 · 发表于 2005-2-22 08:23:29

Round()

mlr_nj · 发表于 2005-2-22 08:46:32

Sub ssk()
x = 0.125456
y = Round(x, 2)
Debug.Print x, y

End Sub
立即窗口显示：
.125456 .13
Sub ssk()
x = 0.125456
y = Round(x, 2)
Debug.Print x, y

End Sub
立即窗口显示：
.123456 .12
所以：round(x,n)，参数n表示四舍五入的位数

tqmark · 发表于 2005-2-27 13:11:55

autocad2000里面就没有ROUND 函数，楼主用的是哪个版本？

灯火 · 发表于 2005-2-27 20:21:30

AutoCAD 2000内嵌VBA5(同Office 97)，2002以上内嵌VBA6(同Office 2000以上)，Round函数从VBA6才开始增加。

用AutoCAD 2000时曾经写过一个：

Public Function myRound(dblNumber As Double, lngDecimals As Long) As Double

Dim dblFactor As Double
Dim dblTemp As Double

dblFactor = 10 ^ lngDecimals
dblTemp = dblNumber * dblFactor + 0.5
myRound = Int(dblTemp) / dblFactor

End Function

qb2008 · 发表于 2005-3-1 16:41:46

又学到了一个绝招，谢谢各位

账号		自动登录	找回密码
密码			立即注册

[求助]：autocad里vba的四舍五入的函数是什么?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子