Hi,
wer von Euch kann mir helfen? Ich benötige einen Codeschnipsel, der einen in eine msgbox eingegebenen Betrag durch 75 teilt und das Ergebnis auf volle 100-Euro-Beträge aufrundet. Wie geht das?
Danke und Gruß
Wilhelm
Moien!
Mal so ganz einfach…teile es durch 75000 - benutze die nrmale Rundungsfunktion und multipliziere mit 100 ;o)
Bernd
Hi,
hier mal ein kleines Beispiel
Private Sub Form_Load()
Dim lBetrag As Long
Dim iTeilung As Integer
Dim lErg As Long
lBetrag = 124349
iTeilung = 75
lErg = CInt(lBetrag / (iTeilung * 100)) * 100
MsgBox lErg
End Sub
greetz
Mario