程序初学者请教高手，怎样才能让数值小数点后保留5位有效数字，我定义变量是double类型------在线等

Question

怎样才能让数值小数点后保留5位有效数字，我定义变量是double类型，怎么弄啊？

Answer 1

如果a为要调整的double
那么：
a=int(a*100000)/100000

Answer 2

Dim a As Double
a = 2.12345678
Debug.Print Format(a, ".#####")

Answer 3

Function Fixed(num As Double, n As Integer)
    Dim i As Double, nDec As Double
    nDec = num - Fix(num)
    Do Until nDec * 10 ^ i > 10 ^ (n - 1)
        i = i + 1
    Loop
    Fixed = Round(num, i)
End Function

Answer 4

Function Fixed(num As Double, n As Integer)
    Dim i As Double, nDec As Double
    nDec = num - Fix(num)
    Do Until nDec * 10 ^ i >= 10 ^ (n - 1)
        i = i + 1
    Loop
    Fixed = Round(num, i)
End Function

Answer 5

没关系,变通一下就行了!Val(Format(3.1415926535, "0.000000000000"))