Wassup Jose Weblog nonsense at its best!

IsReallyCloseToZero?

' Purpose     : Checks if a field equals 0
'           In: aField, any patient field that needs to be verified
'          Out: Boolean Value - True/False
 Public Function IsZero(aField) As Boolean
    If (IsNumeric(aField)) Then
        If (Abs(CDbl(aField)) < 0.0000000001) Then
            IsZero = True
        Else
            IsZero = False
        End If
    Else
        IsZero = False
    End If
 End Function