共5 条记录, 每页显示 10 条, 页签: [1]

标题：这个代码对否?提示有问题?

1楼

andy621 发表于：2010/8/27 13:51:00

SELECT CASE e.DataCol.Name
CASE "生产数量","额定产量"
Dim dcl As Double
dcl=(e.DataRow("生产数量")/e.DataRow("额定产量"))*100
e.DataRow("达成率")=Round(dcl,3)
End Select

四舍五入dcl,到3位小数是否这么写?Round(dcl,3)

2楼

狐狸爸爸 发表于：2010/8/27 14:59:00

math.round

3楼

blackzhu 发表于：2010/8/27 15:09:00

Round

将值舍入到最接近的整数或指定的小数位数。

语法：

Round(Value, Digits)

Value: 数值
Digits: 要保留的小数位数。

例如：

Output.Show(Math.Round(3.44, 1)) '显示3.4
Output.Show(Math.Round(3.45, 1)) '显示3.4
Output.Show(Math.Round(3.46, 1)) '显示3.5

可以看到Round函数不是严格的四舍五入，而是“四舍六入五成双”，意思是小于五的舍掉，大于五进位，如果等于五，则比较上一位，如果上一位是奇数，则进位，如果是偶数，则舍除，这样等于五的时候，结果始终等于最接近的偶(双)数，也就是成双。

如果你要严格地四舍五入，可以参考下面的代码：

Dim Digits As Integer = 2 '要保留的小数位数，根据需要修改
Dim Value As Double = 1.245 '要进行四舍五入的小数值
Value = Math.Floor(Value * 10 ^ Digits + 0.5) / 10 ^ Digits '四舍五入
Output.Show(Value) '显示四舍五入后

4楼

andy621 发表于：2010/8/27 16:48:00

以下是引用blackzhu在2010-8-27 15:09:00的发言：

Round

将值舍入到最接近的整数或指定的小数位数。

语法：

Round(Value, Digits)

Value: 数值
Digits: 要保留的小数位数。

例如：

Output.Show(Math.Round(3.44, 1)) '显示3.4
Output.Show(Math.Round(3.45, 1)) '显示3.4
Output.Show(Math.Round(3.46, 1)) '显示3.5

如果你要严格地四舍五入，可以参考下面的代码：

我就是按这个写的,呵呵,

就是不明白math,

说明怎么不这么写:

Math.Round(Value, Digits)

5楼

狐狸爸爸 发表于：2010/8/27 16:53:00

说明就是这么写的：math.round

看例子就明白

共5 条记录, 每页显示 10 条, 页签: [1]