VBA基础入门（47）你会四舍五入？那会进位吗？

1

ROUND

【语法】：

ROUND(Number, Number_digits)

【参数说明】：

• Number : 要四舍五入的数字。

• Number_digits : 指定要将数字四舍五入到的位数。
  

• 如果 num_digits 大于 0 (零), 则将数字四舍五入到指定的小数位数。

• 如果 num_digits 为 0, 则将数字四舍五入到最接近的整数。

• 如果 num_digits 小于 0, 则数字四舍五入到小数点的左侧。

【例】

Sub Test20201122()Dim strstr = WorksheetFunction.Round("3.1415", 2)End Sub

【结果】

2

ROUNDUP

【语法】：

ROUNDUP(Number, Number_digits)

【参数说明】：

• Number : 要向上进位的任何实数。

• Number_digits : 要将数字进位到的位数。

• RoundUp的行为与Round类似, 只是它总是向上进位数字。

• 如果 num_digits 大于 0 (零), 则将数字向上进位到指定的小数位数。

• 如果 num_digits 为 0, 则将数字向上进位到最接近的整数。

• 如果 num_digits 小于 0, 则将数字向上进位到小数点左侧。

【例】

Sub Test20201122()Dim strstr = WorksheetFunction.RoundUp("3.1415", 2)End Sub

【结果】

3

ROUNDDOWN

【语法】：

ROUNDDOWN(Number, Number_digits)

【参数说明】：

• Number : 要向下舍位的任何实数。

• Number_digits : 要将数字舍位到的位数。

• RoundDown的行为与Round类似, 只是它总是向下舍位数字。

• 如果 num_digits 大于 0 (零), 则将数字向下舍位到指定的小数位数。

• 如果 num_digits 为 0, 则将数字向下舍位到最接近的整数。

• 如果 num_digits 小于 0, 则将数字向下舍位到小数点左侧。

【例】

Sub Test20201122()Dim strstr = WorksheetFunction.RoundDown("3.1415", 3)End Sub

【结果】