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

Allgemeine Diskussionen
BUG in ROUND Function? 
Autor: Äxcel
Datum: 20.11.03 09:09

Ich habe ein Problem mit der VB6 Function ROUND:

ROUND(26.5,0) ergibt 26
ROUND(27.5,0) ergibt 28

nach DIN 1333 ist bis 4 abzurunden und ab 5 aufzurunden.

In alten VB5-Projekten habe ich die "eigene" Funktion ROUND verwendet - wie sie auch in den Foren beschrieben wird:

Public Function Round_VB5(ByVal vZahl As Double, nStellen As Long) As Double
' Runden nach DIN 1333 für VB5
Dim Temp As Double
Dim sFormat As String
Temp = CDbl(vZahl)
sFormat = "0." & String(nStellen, "0")
Round_VB5 = Format(Temp, sFormat)
End Function


Mit dieser Funktion wird mathematisch korrekt gerundet und

ROUND(26.5,0) ergibt 27
ROUND(27.5,0) ergibt 28.

D.h. in alten VB5 Projekten die VB6-Funktion zu verwenden, kann also zu unterschiedlichen Ergebnissen führen.

Was hat es also mit der ROUND- Funktion in VB6 auf sich? Ist das ein BUG?
Für ein paar Tipps/Hinweise wäre ich dankbar.

CU Äxcel
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
BUG in ROUND Function?720Äxcel20.11.03 09:09
Re: BUG in ROUND Function?381GuidoE20.11.03 20:58
Re: BUG in ROUND Function?374Michael F20.11.03 21:21
Re: BUG in ROUND Function?392Äxcel20.11.03 22:40
Re: BUG in ROUND Function?399Äxcel20.11.03 22:36
Re: BUG in ROUND Function?364GuidoE20.11.03 23:07
Re: BUG in ROUND Function?377Michael F21.11.03 18:43

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