vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: 2 Kommastellen 
Autor: GeMaJa
Datum: 11.05.04 15:20

Du nimmst eine Rundungsroutine, am besten als Function programmiert:

Public Function Round(Number, iNKS, iArt)

If iArt = 1 Then Round = Int(Number * 10 ^ iNKS + 0.5) / 10 ^iNKS
If iArt = 2 Then Round = Int(Number * 10 ^ iNKS + 0.999999) / 10 ^iNKS
If iArt = 3 Then Round = Int(Number * 10 ^ iNKS + 0) / 10 ^iNKS

End Function


Aufrufbeispiele:
Round(3.45678, 2, 1) ' Test 1, 2 Nachkommastellen, Rundungsart 1
Round(3.45678, 2, 2) ' Test 2, 2 Nachkommastellen, Rundungsart 2
Round(3.45678, 3, 3) ' Test3, 3 Nachkommastellen, Rundungsart 3

*** Übrigens kann man im Internet auch erstaunliches verdienen, schau mal
*** rein unter www.onlinezumerfolg.de !!!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
2 Kommastellen909Alan10.05.04 21:58
Re: 2 Kommastellen613skydeck10.05.04 22:20
Re: 2 Kommastellen600Alan10.05.04 22:41
Re: 2 Kommastellen722GeMaJa11.05.04 15:20
Re: 2 Kommastellen655Marcus W10.05.04 22:25

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-2025 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