🚀 go-pugleaf

On Thu, 15 Jul 1999 12:52:44 GMT, "Larry LeBlanc"
<larry.leblanc@sympatico.ca> wrote:


Check out KB Article Q111781 

I usually get ticked off by people who can post to the newsgroup, but
can't get back on to check results. However, you were using
environmentally safe electrons, which gives you bonus points.

-Tom. 

>Good day,
>
>Can anyone explain to me why the following source code:
>
>    ===================================
>    Private Sub Command9_Click()
>
>    Dim Looper As Single
>
>    For Looper = 0 To 1 Step 0.1
>        Debug.Print Looper
>        Stop
>    Next Looper
>
>    End Sub
>    ===================================
>
>leads to the following results:
>
>    ===================================
>     0
>     0.1
>     0.2
>     0.3
>     0.4
>     0.5
>     0.6
>     0.7
>     0.8000001
>     0.9000001
>    ===================================
>
>Why is Access having difficulties with such a basic program.  I am writing a
>complex financial simulations (on the Canadian Mutual Fund Market), and what
>I consider basic math is being completely mangled by Access.  For example,
>when I run the following simplified code:
>
>    ===================================
>    Dim SharesToPurchase As Long
>    Dim Bank As Currency
>    Dim ClosingPrice As Single
>
>    SharesToPurchase = Int(Bank / ClosingPrice)
>    Debug.Print "Bank Balance Before Transaction = " & Str(Bank)
>    Debug.Print "Closing Price = " & Str(ClosingPrice)
>    Debug.Print "Shares To Purchase = " & Str(SharesToPurchase)
>    Debug.Print "Transaction Amount = " & Str(SharesToPurchase *
>ClosingPrice)
>    Bank = Bank - (SharesToPurchase * ClosingPrice)
>    Debug.Print "Bank Balance After Transaction = " & Str(Bank)
>    Stop
>    ===================================
>
>I get the following results:
>
>    ===================================
>    Bank Balance Before Transaction =  1000000
>    Closing Price =  15.06
>    Shares To Purchase =  66401
>    Transaction Amount =  999999.087862968
>    Bank Balance After Transaction =  .912137031555176
>    ===================================
>
>Does anyone know of a Microsoft KnowledgeBase article that can help me with
>this problem?  In addition to posting a follow-up to this problem, can you
>please e-mail me directly (mailto:larry.leblanc@sympatico.ca) as I cannot
>follow this newsgroup.
>
>TIA,
>
>Larry
>--
>===================================================================
>Larry LeBlanc, CNE-3
>Montreal, Quebec, CANADA
>mailto:larry.leblanc@sympatico.ca     (flames directed to /dev/null)
>-------------------------------------------------------------------
>This message was compiled and sent using environmentally friendly
>recycled electrons and was not tested on animals.
>===================================================================
>
>