WD97: WordBasic.ToolsCalculate Returns Incorrect Result

Last reviewed: February 11, 1998
Article ID: Q165097
The information in this article applies to:
  • Microsoft Word 97 for Windows

SYMPTOMS

When you use the WordBasic.ToolsCalculate command in a Visual Basic for Applications macro, the result returned may be incorrect.

CAUSE

The following WordBasic.ToolsCalculate command will return a value of 342999999999.999 to the variable, Result$.

   Result$ = WordBasic.ToolsCalculate("7000 ^ 3")

The correct result is 343000000000.

WORKAROUND

When you use Visual Basic for Applications, you do not need to use the ToolsCalculate command to perform exponential calculations. The following function performs the same calculation but returns the correct result of 343000000000 to the integer variable, iResult.

Sub Result()
   Dim iResult As Double
   iResult = 7000 ^ 3
End Sub

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.


Additional query words: vb vbe vba
Keywords : kbprg kbwordvba word8 word97
Version : 97
Platform : WINDOWS
Issue type : kbbug kbhowto


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: February 11, 1998
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.