Visual basic afronden van getallen

[Verwijderd]

heb de volgende code die iemand ooit voor me gemaakt heeft ,maar er doet zich een klein probleem voor . het werkt opzichzelf perfect alleeen alles word afgerond op 0,00 dus bv 150+150+150+149=599/4=149.75 de uitkomst die ik krijg is 150.00 en dat moet dus niet ,wat is hier fout

Option Explicit

Dim m_intScores(0 To 11) As Integer

Private Sub cmdAverage_Click()
On Error GoTo ErrHandler

Dim intSheetCounter As Integer
Dim intNumberSheetCounter As Integer
Dim intRow As Integer
Dim intColumn As Integer
Dim intNumberOfGames As Integer
Dim intGames As Integer
Dim intCounter As Integer
Dim intScore As Integer

'Number of sheets
intNumberSheetCounter = Application.Sheets.Count
intGames = 4

For intSheetCounter = 1 To intNumberSheetCounter

'Goto sheet
Application.Sheets(intSheetCounter).Activate
intRow = 7
intNumberOfGames = 0

Do
intColumn = 3

If CInt(Application.Cells(intRow, 3)) > 0 Then

For intCounter = 1 To intGames

If CInt(Application.Cells(intRow, intColumn)) > 0 Then
intScore = intScore + CInt(Application.Cells(intRow, intColumn))
intNumberOfGames = intNumberOfGames + 1
End If


intColumn = intColumn + 1

Next

End If

If intScore > 0 Then
Application.Cells(intRow, = Average(intScore, intNumberOfGames)
Else
Application.Cells(intRow, = 0
End If

intScore = 0
intNumberOfGames = 0
intRow = intRow + 1

'Loop until empty cell
Loop Until Application.Cells(intRow, 2) = ""


Next

ReturnSheet

Exit Sub
ErrHandler:
MsgBox "Fout opgetreden in bereken gemiddelde!", vbCritical, "Bowling scores"
End Sub

[RobIII]

Je zou zowieso het gebruik van integers (hele getallen, signed 2 bytes) kunnen achterwege laten en er currency van maken ofzo...

Verder zou je code-tags kunnen gebruiken om je post wat duidelijker te maken, en een beetje initiatief tonen kost ook niks

Enniewee, als je er currency van maakt zal het wel werken lijkt me zo.

Edit:
Je zult er dan wel overal de CInt functie uit moeten slopen zie ik nu.

[ Voor 56% gewijzigd door RobIII op 20-10-2004 17:16 ]

[Shuisman]

Een double gebruiken ipv integer...

[Verwijderd]

Sorry als het niet duidelijk overkomt maar dit is allemaal abacradabra voor me ,heb hier dus totaal geen kaas van gegeten

RobIII schreef op 20 oktober 2004 @ 17:14:
Je zou zowieso het gebruik van integers (hele getallen, signed 2 bytes) kunnen achterwege laten en er currency van maken ofzo...

Verder zou je code-tags kunnen gebruiken om je post wat duidelijker te maken, en een beetje initiatief tonen kost ook niks

Enniewee, als je er currency van maakt zal het wel werken lijkt me zo.

Edit:
Je zult er dan wel overal de CInt functie uit moeten slopen zie ik nu.

[F_J_K]

wat is hier fout

Je denkt zelf niet na over wat er fout kan gaan, dat is er fout

Programming & Webscripting zou trouwens beter passen, maar je vraag voldoet op deze manier niet aan de daar geldende policies. Check dus de antwoorden hier (icm F1 voor de beschrijving van de verschillen) en lees de PW sticky topics () voor je daar evt een nieuw topic start

edit:

Abacradabra: reden te meer om elk keyword even door F1 en Google te halen, men gaat er hier (in PW) toch echt wel van uit dat je je programmeertaal kent voor een vraag wordt gesteld: eerst de handleiding lezen is dus een must maar als je er zelfs met handleidingen niet uit komt helpt men heel graag

[ Voor 26% gewijzigd door F_J_K op 20-10-2004 17:24 ]