代码之家 › 专栏 › 技术社区 › rosi97

VBA字符串到整数,无舍入

decimal integer vba string

rosi97 · 技术社区 · 8 年前

我想转换一个 String 进入 Integer 保留小数点。
我尝试了很多事情,比如 Foramat 和 CInt 但所有这些最终都取整了我的价值。

我的代码是:

Dim posZ As Integer
Dim TestZ As Integer
Dim strTestZ As String
Dim TestZold As Integer

For i = 1 To tllength
  posZ = InStr(tlmold(i), "Z=")
  strTestZ = Mid(tlmold(i), posZ + 2, 5)

  TestZ = Format(strTestZ, "0.0000")

   If TestZold = TestZ Or (TestZold - TestZ) > 0.02 Or (TestZ - TestZold) > 0.02 Then
   countLip = countLip + 1
   End If
 TestZold = TestZ
Next I

e、 g.的第一个值 strTestZ 在阵列中 tlmold() 可能是 0.097 .
我想比较一下。。

提前感谢

2 回复 | 直到 8 年前

donCalculator 8 年前

整数是整数变量。改用double。

Vityata 8 年前

" 我想把一个字符串转换成整数并保留小数点。 “-不可能,整数为“Ganz Zahl”。

然而,我认为这不是你的问题。我注意到您来自德国,因此您显然遇到了逗号分隔符的问题,这是德国的逗号。在美国和VBEditor中,它是一个点。因此,您必须将您的输入转换为预期内容。 Replace() 就是这样做的。

亲自看看:

Public Sub TestMe()

    Dim inputA          As String
    Dim convertedNumber As Double

    inputA = "0.085"
    convertedNumber = CDbl(inputA)
    Debug.Print convertedNumber

    inputA = Replace(inputA, ".", ",")
    convertedNumber = CDbl(inputA)
    Debug.Print convertedNumber

End Sub

第一次打印时 85 第二次,你会得到 0,085 ,如预期。

推荐文章

Haru Hoshizora · 为什么一个整数的位置没有改变,但值却不同

1 年前

asdfadf · 为什么具有相同内存值的字符串和整数打印方式不同?

1 年前

Markix · 为什么在C中,一个空的整数数组中充满了看似垃圾的数据?

1 年前

user2980746 · 在C#字典中键入xyz对的最有效方法是什么?

1 年前

bolthy · 将数据帧中的值从对象转换为整数/浮点数,但它们仍作为对象运行

1 年前

Tom Newing · 如何在Tkinter文本框/输入框中计算用户输入的数字并输出到另一个文本框或标签?

1 年前

Todd · 创建Powershell脚本,检查.csv文件中每行是否有两个字符串和一个整数

1 年前

Greeshma · 为什么在为`int`赋值时,`char`不会释放数据?

1 年前

skinnyleonard · 在3个确定值c++[重复]之间生成随机数

2 年前

m7real · 长整数的C++乘法导致意外输出

2 年前