🚀 go-pugleaf

Larry,

Use currency data type for financial calculations, don't mix currency with
single, write your own rounding function to properly round results when you
mix currency with single and double.

This  code:

    Dim Looper As Currency ' Single

    For Looper = 0 To 1 Step 0.1
        Debug.Print Looper
        Stop
    Next Looper

Results in:

 0
 0,1
 0,2
 0,3
 0,4
 0,5
 0,6
 0,7
 0,8
 0,9
 1

And this code:

    Dim SharesToPurchase As Long
    Dim Bank As Currency
    Dim ClosingPrice As Currency 'Single

    Bank = 1000000
    ClosingPrice = 15.06
    SharesToPurchase = 66401

    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)

Produces the following results:

Bank Balance Before Transaction =  1000000
Closing Price =  15.06
Shares To Purchase =  66401
Transaction Amount =  999999.06
Bank Balance After Transaction =  .94

HTH,
Shamil

P.S. This rounding problem isn't only MS Access problem - this is VBA/VB
engines common problem/feature...

--
Shamil Salakhetdinov
DARTS Ltd., St.Petersburg, Russia
e-mail: shamil@marta.darts.spb.ru
Web: http://members.xoom.com/shamil_s

Larry LeBlanc <larry.leblanc@sympatico.ca> wrote in message
news:wQkj3.4$PZ3.247@198.235.216.4...
> 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
>     ===================================
>
<tail skipped>