Function NullToZero (anyValue As Variant) As Variant
If IsNull(anyValue) Then NullToZero = 0 Else NullToZero = anyValue End If End Function Function NullToZero (anyValue As Variant) As Variant If IsNull(anyValue) Then NullToZero = 0 Else NullToZero = anyValue End If End Function |