Excel VBA - afrundingsfejl
Hej eksperter,Jeg er ved at lave en makro, og får en regnefejl. Når man trækker 2 tal fra hinanden med 2 decimaler på, kan man ikke få et resultat med flere end 2 decimaler - men det gør jeg. En løsning kan være at bruge afrunding, men det er jo ikke at løse problemet - det er at omgå problemet. En simplificeret udgave af min kode ses herunder.
Her sættes variablen "Indbetaling" til 104953,98, og en anden variabel "Salg" sættes til 105000. Så skal forskellen beregnes ved at trække de 2 tal fra hinanden, og så bliver resultatet i mit Immediate window 46,0200000000041
Er der nogen der kan sige mig hvad jeg gør galt. Jeg har ikke det sorte bælte i VBA, men prøver så godt jeg kan. Min eneste mistanke har gået på, om det er forkert at jeg dim'er mine variable som Double - men det synes jeg nu virker rigtigt - bortset fra at resultatet bliver forkert :-(
Sub Test()
Dim Salg As Double
Dim Gebyr As Double
Dim Indbetaling As Double
Indbetaling = 104953.98
Dim ValueCell
ValueCell = "F" & ActiveCell.Row
' Dim BilagCell
' BilagCell = "C" & ActiveCell.Row
' Dim BilagValue As Double
' BilagValue = Range(BilagCell).Value
Salg = 105000
Gebyr = Salg - Indbetaling
TextBox_Gebyr.Text = Gebyr
End Sub