Automatische Typ-Konvertierung in Visual Basic 6.0

Wenn wir konvertieren von float zu integer in visual basic 6.0, wie funktioniert es, Runden das gebrochene Teil? Ich bin talkin über die automatische Typ-Konvertierung.

Weisen wir wie

Dim i as Integer
i=5.5
msgbox i

Was wird es drucken? 5 oder 6 ??

War ich immer "5" ein paar Monate bevor. Eines Tages begann es, dass Sie mir 6!
Jede Idee, whats goin falsch? Hat microsoft einige patches veröffentlicht, um etwas zu beheben?

Update : 5.5 wird umgewandelt, um 6 aber von 8,5 auf 8 !

Update 2 : Hinzufügen von CInt, macht keinen Unterschied. CInt(5.5) ergibt 6 und Cint(8.5) gibt 8!! Ein bisschen weired Verhalten. Ich sollte versuchen, so etwas wie floor(x + 0.49);

Aufhören zu sagen, "gewirkt". Dies ist nicht type-casting an alle, es ist Typ-Konvertierung. Es ist ein großer Unterschied.
Mein schlechtes. Danke für die Korrektur bro
Tuxist, so sollten Sie Bearbeiten Ihre Frage, und ändern Sie "cast" und "casting" zu "bekehren" und "Bekehrung".

InformationsquelleAutor Tuxist | 2009-03-15

types vb6

7

Teil von diesem ist in der VB6-Hilfe: Thema Typkonvertierung Funktionen. Es ist leider eines der Themen, die nicht in der VB6-Dokumentation auf der MSDN-website, aber wenn Sie installiert haben, die helfen, mit VB6, wird es da sein.

Wenn der gebrochene Teil ist genau das, 0.5, CInt und CLng immer Runden es auf die nächste gerade Zahl. Zum Beispiel um 0,5 Runden zu 0 und 1,5 Runden auf 2. CInt und CLng unterscheiden sich von den Fix und Int Funktionen, die abschneiden, anstatt Runde, den gebrochenen Teil einer Zahl. Auch, Fix und Int immer einen Wert zurück, der denselben Typ wie die übergeben wird.

Implizite Typumwandlung - ein.k.ein. "böse Typumwandlung (PDF)" - von einer Gleitkommazahl zu einer ganzen Zahl verwendet dieselben Rundungsregeln wie CInt und CLng. Dieses Verhalten scheint nicht zu sein dokumentiert irgendwo in der Anleitung.

Wenn Sie möchten, round up, wenn der gebrochene Teil ist >= 0.5, und unten, sonst einen einfachen Weg, es zu tun ist
```
 n = Int(x + 0.5)
```
Und aus der Spitze von meine Kopf, hier ist meine kürzere version von Mike Spross ist RoundNumber🙂 das ist ein Ersatz für die VB6 Funktion Runden.
```
 'Written off the top of my head, seems to work. 
Public Function RoundNumber(ByVal value As Double, Optional PlacesAfterDecimal As Integer = 0) As Double
  Dim nMultiplier As Long
  nMultiplier = 10 ^ PlacesAfterDecimal
  RoundNumber = Int(0.5 + value / nMultiplier) * CDbl(nMultiplier)
End Function
```
Beispiel-Ausgabe:
```
Debug.Print RoundNumber(1.6)       '2'
Debug.Print RoundNumber(-4.8)      '-5'
Debug.Print RoundNumber(101.7)     '102'
Debug.Print RoundNumber(12.535, 2) '12.54'
```
- In RoundNumber Sie zuerst multiplizieren, dann dividieren: RoundNumber = Int(0.5 + value * nMultiplier) / CDbl(nMultiplier) nicht die andere Weise herum. Lustigste Teil ist Int Funktion tatsächlich gibt eine Double in diesem (retval ist vom gleichen Typ wie param) so ist das arbeiten mit großen zahlen/großer Genauigkeit zu. Wahrscheinlich CDec(0.5) + ... erhöhen die Präzision deutlich zu.
InformationsquelleAutor MarkJ
7

Update: Nach etwas googlen kam ich auf die folgenden Artikel:

Es ist nicht ein "bug", es ist der Weg, VB
entworfen, um zu arbeiten. Es nutzt etwas
bekannt als die bankübliche Rundung, die, wenn Sie
die Zahl endet in genau 5 und Sie
abrunden möchten, um die position in front
der 5 Runden zahlen ab, wenn
die Zahl vor der 5
position wird auch und rundet
ansonsten. Es soll schützen
gegen wiederholte Berechnung mit
gerundete zahlen, so dass die Antwort nicht
immer voreingenommen nach oben. Für mehr Informationen
Ausgabe als Sie wollen wahrscheinlich wissen,
finden Sie unter diesem link

http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q196652

Dies erklärt die (scheinbare) komisch Verhalten:
```
Cint(5.5) 'Should be 6'
Cint(8.5) 'Should be 8'
```
Alt Update:
Vielleicht solltest du etwas präziser werden: verwenden Sie CInt, anstatt einfach die Zuweisung eines float zu einem integer. E. g:
```
Dim i as Integer
i = CInt(5.5)
MsgBox i
```
- Macht keinen Unterschied. CInt(5.5) ergibt 6 und Cint(8.5) gibt 8!! Ein bisschen weired Verhalten. Ich dies, ich sollte versuchen, so etwas wie floor(x + 0.49);
- Okay, das ist seltsam.
- Das ist normal. Die Typ-Konvertierung-Funktionen (CInt, CLng, etc.) Runde vor der Konvertierung.
InformationsquelleAutor elo80ka
1

Das veränderte Verhalten klingt in der Tat besorgniserregend, aber die richtige Antwort surley ist 6. Blättern Sie nach unten, um "Runde, um selbst Methode" auf Wikipedia, Rundung für eine Erklärung.

InformationsquelleAutor Dan Byström
1

Als andere haben bereits darauf hingewiesen, daß die "seltsame Verhalten", die Sie sehen, aufgrund der Tatsache, dass VB6 verwendet Banker ' s Rounding beim Runden Bruchzahlen.

Update 2 : Hinzufügen von CInt macht keine
Unterschied. CInt(5.5) ergibt 6 und
Cint(8.5) gibt 8!!

Dass ist auch normal. CInt immer Runden (wieder mit dem Banker ' s Rounding-Methode), bevor Sie die Konvertierung.

Wenn Sie eine Zahl mit einem Bruch-Teil und wollen einfach abschneiden, Sie (ignorieren Sie den Teil nach dem Komma) verwenden, können Sie entweder die Fix oder die Int Funktion:
```
Fix(1.5) = 1
Fix(300.4) = 300
Fix(-12.394) = -12
```
Int funktioniert auf die gleiche Weise wie Fix, außer der Tatsache, dass es Runden, die negativen zahlen nach unten auf den nächsten, der kleinsten negativen Zahl:
```
Int(1.5) = 1
Int(300.4) = 300
Int(-12.394) = -13
```
Wenn Sie wirklich wollen, um Runde eine Zahl entsprechend der Regeln, die die meisten Menschen vertraut sind, haben Sie, um deine eigene Funktion schreiben, um es zu tun. Unten ist ein Beispiel der Rundung, das wird aufgerundet, wenn der Bruchteil größer oder gleich .5, und Runde nach unten; ansonsten:

BEARBEITEN: Sehen MarkJ Antwort für eine viel einfachere (und wahrscheinlich schnellere) version dieser Funktion.
```
' Rounds value to the specified number of places'
' Probably could be optimized. I just wrote it off the top of my head,'
' but it seems to work.'
Public Function RoundNumber(ByVal value As Double, Optional PlacesAfterDecimal As Integer = 0) As Double

    Dim expandedValue As Double
    Dim returnValue As Double
    Dim bRoundUp As Boolean

    expandedValue = value
    expandedValue = expandedValue * 10 ^ (PlacesAfterDecimal + 1)
    expandedValue = Fix(expandedValue)

    bRoundUp = (Abs(expandedValue) Mod 10) >= 5

    If bRoundUp Then
        expandedValue = (Fix(expandedValue / 10) + Sgn(value)) * 10
    Else
        expandedValue = Fix(expandedValue / 10) * 10
    End If

    returnValue = expandedValue / 10 ^ (PlacesAfterDecimal + 1)
    RoundNumber = returnValue

End Function
```
Beispiele
```
Debug.Print RoundNumber(1.6)       '2'
Debug.Print RoundNumber(-4.8)      '-5'
Debug.Print RoundNumber(101.7)     '102'
Debug.Print RoundNumber(12.535, 2) '12.54'
```
- Es ist kürzer und läuft wahrscheinlich schneller mit Int(0.5+Wert) Runde auf die nächste ganze Zahl. Und siehe meine Antwort für meine version des RoundNumber Funktion. BTW RoundNumber(-4.8) vermutlich sollte nicht 5 -5
- Ja, das ist definitiv einfacher. Ich dachte, "wow, es muss eine offensichtliche und einfache Möglichkeit, dies zu tun" 🙂 ich werde beziehen sich die OP auf deine Antwort und +1 für dich, guter Herr.
- Prost! Jemand zeigte mir diesen trick in, ähem, ich glaube, ZX Spectrum BASIC, irgendwann mal über 20+ Jahren...
InformationsquelleAutor Mike Spross
0

Die VB6-Funktion Round() verwendet eine Banker ' s Rounding Methode. MS KB-Artikel 225330 (http://support.microsoft.com/kb/225330) spricht über diese indirekt durch den Vergleich von VBA in Office 2000 in Excel native Verhalten und beschreibt es so:

Wenn eine Zahl eine gerade Zahl endet, .5, Visual Basic rundet die Zahl (unten) auf die nächste gerade ganze Zahl auf. [...] Dieser Unterschied [zwischen VBA und Excel -] ist nur für zahlen am Ende .5, und ist das gleiche mit anderen Bruchzahlen.

Wenn Sie müssen anders Verhalten, ich fürchte, du musst zu geben, es selbst.

InformationsquelleAutor Mike Mustaine

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.