vb6.0有如下bug:
clng(6.5)=6
clng(5.5)=6
解决方法:
使用format方法
dim dblValue as double
dblValue=6.5
clng(format(dblValue,"#")
CInt可以用同样的方法解决。
vb6.0有如下bug:
clng(6.5)=6
clng(5.5)=6
解决方法:
使用format方法
dim dblValue as double
dblValue=6.5
clng(format(dblValue,"#")
CInt可以用同样的方法解决。