|
|
|
|
|
|
|||||||
| Programmierung Rat & Tat für Programmierer |
|
|
Themen-Optionen | Ansicht |
11.04.2004, 17:24
|
#28 |
|
Schwarzfußfrettchen
 Registriert seit: 28.01.2001
Beiträge: 2.071
|
Da gibt es doch nen speziellen Datentyp CURRENCY den du verwenden kannst. Hat per default nur 2 Nachkommastellen.
Dim EineZahl As Currency EineZahl = 9.8765432 Debug.Print EineZahl sollte 9.87 rauskommen. Alternative: Private Function Abschneid(Was As Double) As Double Abschneid = Val(Left$(Trim(Str(Was)), InStr(1, Trim(Str(Was)), ".") + 2)) End Function Aufruf: Debug.Print Abschneid(9.87654321) Ausgabe: 9.87
____________________________________
Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger 
|
|
|
| Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|
Baum-Darstellung