Question

vb保留三位小数

在vb中如何实现数字的运算后保留三位小数,但不要求数据四舍五入.
例如数字为1.2568运算后只保留前三位及为1.256

Answer 1

这个较简单,我给你一个函数：XiaoShu(保留小数前的原始数值,保留位数）

调用方法如下：

假设你的数字存在变量A中,现在要将A中的数字保留三位小数（不四舍五入）放入B中,则

Dim A as Single, B as Single

A = 1.2568

B=XiaoShu(A,3)

Print A & "保留3位小数点的结果是（不四舍五入） " & B

从输出B的值可以看到,已经是三位数了（没有进位）.

下面的函数复制到你的vb代码的最后即可：

Function XiaoShu(ByVal a As Single, b As Long) As Single

  a = CStr(a)

  XiaoShu = Left(a, InStr(1, a, ".") + b)

End Function