title image


Smiley Re: Funktion zum runden
Sub Runden()'auf 2 Nachkommastellen runden: Dim temp As Double, zehnerpotenz As Long temp = CDbl(txtBetrag) zehnerpotenz = 10 ^ 2 txtBetrag = (Fix((temp + 0.5 / zehnerpotenz) * zehnerpotenz)) / zehnerpotenzEnd SubHat den Vorteil, daß man nur bei "Zehnerpotenz" die entsprechenden Nachkommastelle eintragen muß, um auf die 3.,4. usw. Nachkommastelle zu runden. FIX rechnet auch bei negativen Zahlen richtig, INT würde die Ganzzahl nehmen...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: