🚀 go-pugleaf

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.
===================================================================