vb 里有没有对小数进行 四舍五入 的函数？

Question

用Format可以轻松搞定。
format(a,"0.00") 这样就四舍五入保持2位小数。

Answer 1

楼上说的对，直接用Format就可以了，确定你要几位小数就可以了,后面的小数就会给四舍五入
format(iTmp,"###0.00")

Answer 2

format不好,返回值是String!看如下方法:
Option ExplicitPrivate Sub Form_Load()
Dim a, b As Long
a = 3534.58649345
b = -3 '指定你要舍入到小数点后的位数,0为舍到整数个位,-1为舍到整数十位......
a = Int(a * (10 ^ b) + 0.5) / (10 ^ b)
Debug.Print a
End Sub

Answer 3

format(3.3234834,"0.0000")   '精确到四位

Answer 4

用 Round()
Debug.Print Round(200.5) 'return  200
Debug.Print Round(200.56) 'return  201
Debug.Print Round(200.56, 1) 'return  200.6
Debug.Print Round(200.56, 2) 'return  200.56

Answer 5

返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。语法Round(expression [,numdecimalplaces])Round函数语法有如下几部分：部分 描述 
expression 必需的。要进行四舍五入运算的数值表达式。 
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。 

Answer 6

Debug.Print Round(200.53, 1) 'return  200.5老兄你打算给我多少分？
我到这里才一个月，分数很少.
羡慕那些有星星的人。也想快些成星。

Answer 7

Round最好了，其他方法勉强凑合，赫赫。

Answer 8

可就是Round不是“四舍五入”
而是“四舍六入五成双”离题了，无分

Answer 9

VB5不支持R O U N D !!!

Answer 10

int 和 fix ,你可以看一下帮助！

Answer 11

format() 返回的是 變體
format$() 返回的是  string

Answer 12

round()最标准了，规则是四舍六入五凑偶，就是说如果末尾是5则看前一位，如果前一位为偶数则舍去，是奇数则进位。

Answer 13

Int、Fix 函数
      返回参数的整数部分。语法Int(number)Fix(number)必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。说明Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。Fix(number) μèóú￡oSgn(number) * Int(Abs(number))
Int 函数，Fix 函数示例
本示例说明 Int 及 Fix 函数在返回某数值的整数部分时有何不同。当参数为负数时，Int 函数返回小于或等于该参数之最大整数，而 Fix 函数则返回大于或等于该参数之最小整数。Dim MyNumber
MyNumber = Int(99.8)   ' 返回 99。
MyNumber = Fix(99.2)   ' 返回 99。MyNumber = Int(-99.8)   ' 返回 -100。
MyNumber = Fix(-99.8)   ' 返回 -99。MyNumber = Int(-99.2)   ' 返回 -100。
MyNumber = Fix(-99.2)   ' 返回 -99。Round函数
      描述返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。语法Round(expression [,numdecimalplaces])Round函数语法有如下几部分：部分 描述 
expression 必需的。要进行四舍五入运算的数值表达式。 
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。 

Answer 14

建议将round包装一下
在立即窗口算下面的值：
Round(299.5,0)
Round(299.45,1)
...

Answer 15

round挺好的，最好自己根据需要编写一个专门的函数进行转换

Answer 16

Round并不是四舍五入的函数，不信可以看看msdn。
但是有一些中文的vb教程里面，把它错误的说是四舍五入的函数，
真误人子弟。
我曾经就吃过苦头，一般如果对精度要求不高，才可以用。反之，就要自己写函数了。不过不论什么算法，也都是只是个近似值而已，没有100%准确的。这是由计算机得浮点数的表示方法决定的。用 fq1() 的算法，就比较好。

Answer 17

自己编一个吧
例如要把x四舍五入x = Int(x * 10)
If (x Mod 10) >= 5 Then
x = x / 10
Else: x = x \ 10
End If

Answer 18

还可以用x=fix(x+0.5)
 我都调试过