IsDouble

Public Function IsDouble(ByVal Expression As Variant) As Boolean

Returns True if the specified variable/expression is of type Double.

Dim lVariant As Variant

lVariant = 100
SendDebug IsDouble(lVariant) ' Sends out False, 100 is a Long

lVariant = lVariant / 2 'Now contains 50
SendDebug IsDouble(lVariant) ' Sends out True: The result of a division is always a double

See also: