Public Function EqualLikeDataTypeFast( _ ByRef vOne As Variant _ , ByRef vTwo As Variant _ , ByRef vCompare As VbCompareMethod _ ) As Boolean
EqualLikeDataTypeFast("ALL", "all", vbBinaryCompare) = False EqualLikeDataTypeFast("all", "ALL", vbBinaryCompare) = False EqualLikeDataTypeFast("ALL", "all", vbTextCompare) = True EqualLikeDataTypeFast("3", 3, vbTextCompare) = FalseSee also:
EqualLikeDataType Function CompareLikeDataTypeFast Function StrComp Function (Visual Basic)Function returns:
True if vOne = vTwo False if vOne <> vTwoSee the following table which describes how comparisons are made depending upon data type of arguments.
vTwo D S vOne D n F S F sVarType Codes:
D = Date/Numeric S = StringAction Codes:
F = Return False s = Do String comparison with StrComp n = Do numeric/Date comparison
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.