vb6.0 CLng,CInt等的bug及其解決辦法

vb6.0有如下bug:

clng(6.5)=6

clng(5.5)=6

解決方法：

使用format方法

dim dblValue as  double

dblValue=6.5

clng(format(dblValue,"#")

CInt可以用同樣的方法解決。