Public Function NumberToBaseX( _
ByVal vNum As Variant _
, Optional ByVal vBase As Variant _
) As Variant NumberToBaseX(1234, 2) = "10011010010"
NumberToBaseX(1234, 8) = "2322"
NumberToBaseX(1234, 16) = "4D2"
NumberToBaseX(1234, 36) = "YA"
NumberToBaseX(-1234, 8) = "-2322" ' #5
NumberToBaseX(123456789, 2) = "111010110111100110100010101"
NumberToBaseX(123456789, 8) = "726746425"
NumberToBaseX(123456789, 16) = "75BCD15"
NumberToBaseX(123456789, 36) = "21I3V9"See also: BaseXToNumber Function
BaseXToLong Function
ExcelColumnNumberToLetters Function
Hex$ Function (Visual Basic)
Oct$ Function (Visual Basic)Summary: This function can convert a number to any base between 2 and 36. Use base 2 for binary numbers, base 8 for octal numbers, base 10 for decimal numbers, base 16 for hexadecimal numbers, and base 36 for alphanumeric numbers. vNum: The base-10 number that is to be converted to a base between 2 and 36. Function returns Null if vNum is Null or cannot be fixed up to a number.
vBase: The base to which vNum will be converted then returned as a string. vBase defaults to 10 (ten) if it is missing or Null or cannot be fixed up to a number (that would be similar to calling the Visual Basic CStr function).
Return value: This function may return a string which begins with a minus sign ("-") indicating that vNum was negative as in example #5.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.