Microsoft KB Archive/140035

= Conversion to Base x Function Not Available =

Article ID: 140035

Article Last Modified on 10/11/2006

-

APPLIES TO


 * Microsoft Excel 97 Standard Edition
 * Microsoft Excel 95 Standard Edition
 * Microsoft Excel 5.0 Standard Edition
 * Microsoft Excel 98 for Macintosh

-



This article was previously published under Q140035





SYMPTOMS
Microsoft Excel version 4.0 includes an add-in function named BASE which accepts input for a base 10 number and a number designating the base to which it should be converted. BASE outputs a text string representation of the number in that base. For example, BASE converts the number 5 in base 10 to the string 101 if you request base 2.

Microsoft Excel versions 5.0 and later do not include the BASE function. When you open a workbook in Microsoft Excel version 5.0 or later, you receive a "#NAME" error in the cells that contain the BASE function.



MORE INFORMATION
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following sample Microsoft Visual Basic for Applications function is a simple base function similar to the Microsoft Excel 4.0 BASE function. This example does not perform any decimal conversion.

Sample Visual Basic Procedure
Function Base(InValue As Double, NewBase As Double) As String Dim TestVal As Double, counter As Integer, Alpha As String Dim Holder As Integer Application.Volatile On Error GoTo FixError If InValue = 0 Then GoTo FixError If NewBase = 0 Then GoTo FixError counter = 0 TestVal = 0 While TestVal < InValue TestVal = NewBase ^ counter If TestVal < InValue Then counter = counter + 1 Wend counter = counter - 1 Alpha = "" Holder = 0 For x = counter To 0 Step -1 Holder = Int(InValue / (NewBase ^ x)) Alpha = Alpha & Application.Text(Holder, "0") InValue = InValue - (Holder * (NewBase ^ x)) Next x      Base = Alpha Exit Function FixError: Base = "#Value" End Function

Additional query words: 5.00a 5.00c 7.00a XL98 XL97 XL7 XL5 XL

Keywords: kbdtacode kberrmsg kbhowto kbprogramming KB140035

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.