Public Function BinaryStringFmVariant( _
ByVal vValue As Variant _
, Optional ByVal vToLSBFirst As Variant _
) As Variant Assuming
Dim intValue As Integer
Dim strValue As String
intValue = 23
strValue = Chr$(3) + Chr$(12)
for example
BinaryStringFmVariant(strValue, False) = "0000001100001100"
BinaryStringFmVariant(strValue, True) = "0011000011000000"
BinaryStringFmVariant(strValue, False) = BinaryStringFmString(strValue, False, False)
BinaryStringFmVariant(strValue, True) = BinaryStringFmString(strValue, False, True)
BinaryStringFmVariant(intValue, False) = BinaryStringFmString(intValue, True, False)
BinaryStringFmVariant(intValue, True) = BinaryStringFmString(intValue, True, True)See also: BinaryStringToVariant Function
BinaryStringFmString FunctionvValue: Value whose bits are to each be represented by one character within the result string. Function returns Null if vValue is Null or cannot be coerced to a String. If vValue is a String, it is assumed that the first character represents the most-significant-byte.
If vValue is numeric, it is assumed that the (once the value has been coerced to a String) the first character represents the least-significant-byte.
vToLSBFirst: True if the result string should represent the bits with the least-significant-bit first, and False if it should represent the bits with the most-significant-bit first. vToLSBFirst defaults to False if it is missing or Null or cannot be fixed up to a number.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.