Public Function VariantToVBConstExpression( _ ByVal vValue As Variant _ ) As String
VariantToVBConstExpression(False) = "False" VariantToVBConstExpression(CInt(2)) = "2%" VariantToVBConstExpression(CSng(2)) = "2!" VariantToVBConstExpression(CByte(2)) = "2%" ' #4 VariantToVBConstExpression(#4/5/96#) = "#4/5/96#" VariantToVBConstExpression("Word") = """Word""" VariantToVBConstExpression(Null) = "Null"See also:
VariantToVBEvalExpression Function EqualQuotedValue Function DoubleQuoteString Function CStr Function (Visual Basic)Note: Bytes represented with the Integer type character as in example #4.
vValue: The value whose Visual Basic source code representation will be returned. Function generates an error when passed things like object pointers which have no string representation.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.