VBA将带小数的字符串更改为带小数的数字

Question

我在访问数据库中有一个字段作为TEXT。文本有小数，如100.00000。需要在这些小数存在的情况下运行计算。我一直在使用SQL语句和CAST函数，我没有运气。我得到的只是整数，没有小数。我已经使用了VBA，我仍然得到了同样的结果。每个结果都是整数。我更喜欢5（五）小数点。

例如100.00000而不是＆＃34; 100＆＃34;。

我已经在VBA中尝试了拆分功能，并将2个字符串重新组合成一个带小数的数字但仍然没有运气。

下面的代码仅提取整数 - 我需要小数位！谢谢

Function numChange(input1 As String) As Integer

Dim output As Integer

If input1 = "" Then
input1 = 0
End If

output = Format(input1, Number)

numChange = output

End Function

Answer 1

小数后如果没有零意味着什么，但如果你有100.00001这将返回相同。

修改：

Function numChange(input1 As String) As Double

Dim output As Double

If input1 = "" Then
input1 = 0
End If

output = Format(input1, "0.00000")

numChange = output

End Function