vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Vernünftiges Runden - Aber wie? 
Autor: Zero-G.
Datum: 09.09.10 13:48
Hallo

Seit langem wieder zurück im Forum! - Freue mich euch wieder zu "hören".

Bin im Moment dabei ein Programm zur Preisgestaltung zu schreiben & habe dazu eine Frage:
Der Nutzer kann den Multiplikationsfaktor eingeben, mit dem der Einkaufspreis multipliziert wird.
Dabei kommen aber natürlich nicht gerade Kundenfreundliche Endbeträge raus.
Bsp: Einkaufspreis: 24,30 Multiplikationsfaktor 2,2 Ergibt einen Verkaufspreis von € 53,46

Das ist natürlich kein guter Preis. - Eine Möglichkeit wäre jetzt, komplett runden. In meinem Fall oben: €53,00

Ich möchte das aber nicht auf die Ganzzahl, sondern auf die erste Kommazahl -> 53,40

Weiß jemand wie man das umsetzt?

VB2010 mit .NET 4

DANKE im Voraus
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Vernünftiges Runden - Aber wie? 
Autor: Maas
Datum: 09.09.10 14:08
Normalerweise kannst du mit Math.Round runden. 
    Dim d As Double = Math.Round(53.46, 1)
Ergibt natürlich 53,5. Du willst aber anscheinen immer abrunden, unabhängig von den Rundungsregeln, also im Endeffekt abschneiden.

Dafür kannst du Math.Truncate benutzen. 
    Dim d As Double = Math.Truncate(53.46 * 10) / 10
oder als Funktion 

        Debug.WriteLine(Me.Abrunden(53.46, 1))
 
        Private Function Abrunden(ByVal value As Double, ByVal digits As _
          Integer) As Double
            Dim multi As Double = 10 ^ digits
            Return Math.Truncate(value * multi) / multi
        End Function
Maas

Beitrag wurde zuletzt am 09.09.10 um 14:09:31 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Vernünftiges Runden - Aber wie? 
Autor: Zero-G.
Datum: 09.09.10 14:15
Perfekt - DANKE

Das war genau das, was ich suchte!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel