cvremortel
-
Items
1 -
Registratiedatum
-
Laatst bezocht
Inhoudstype
Profielen
Forums
Store
Alles dat geplaatst werd door cvremortel
-
je zou een functie kunne schrijven, b.v. Public Function Afronding(eenGetal, eenCijfer) As Double On Error GoTo errHandler Dim Factor If Not IsNumeric(eenGetal) Or Not IsNumeric(eenCijfer) Or eenGetal = 0 Then Afronding = 0 GoTo procExit End If Factor = 10 ^ eenCijfer Afronding = Int(eenGetal * Factor + 0.5) / Factor procExit: Exit Function errHandler: Resume procExit End Function
