Public Function FixUpVariantToBooleanMandFn( _
ByRef rArgument As Variant _
) As Boolean FixUpVariantToBooleanMaybeFn Function
FixUpVariantToBooleanMandSub SubroutinerArgument: The argument which is changed to a Boolean value, if possible. Function returns False if conversion was not possible, such as when the argument is out-of-range, missing, Null, an error, a pointer, or a non-numeric string. Example #1:
Assuming
Dim varFlag As Variant
varFlag = "0"
for example
FixUpVariantToBooleanMandFn(varFlag) = True
leaves
varFlag = False
VarType(varFlag) = vbBooleanExample #2: Assuming
Dim varFlag2 As Variant
varFlag2 = "Word"
for example
FixUpVariantToBooleanMandFn(varFlag2) = False
leaves
varFlag2 = "Word"Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.