access_vba,select_case语法问题请教

[superchenxx]

Function Calculate(ByVal lngNumber As Long, _
    ByVal dblSignature As Double) As Long
    
    Dim a As Long
    Dim b As Double
    Dim Total As Double
    
    a = Int(dblSignature)
    b = dblSignature - a
    
    For i = 1 To a
        ……
    Next i
    
    Select Case b
        
        Case 0.25
            ……            
        Case 0.3
           ……            
        Case 0.5
            ……        
        Case 0.8
           ……
            
        Case 0.75
            ……
            
    End Select
    
    Calculate = Total
    
End Function

调试时发现，只要b值为0.3时，select case判断时就会忽略case 0.3那条，直接跳过。在监视中b=0.3的值为false，可是b的值明明就是0.3，困恼中

[ACMAIN_CHM]

注意浮点数的误差！计算机中浮点数并不能准确的表示很多小数。

一种解决方法就行 *100 后取整后再比。

当您的问题得到解答后请及时结贴.
http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html

[superchenxx]

那为什么只有0.3出问题呢，其他几项都没有问题啊

[ACMAIN_CHM]

浮点数 0.3 是无法用二进制表示的

0.3 = 0.25 + 0.03125 + 0.015625 + ....

[xbin_2009]

可考虑用 Currency 数据类型代替 Double ，如果小数位不超过4位，Currency可精确匹配.