Wie deklariere ich MAX_DOUBLE in VB6?

Question

Gemäß der MSDN Hilfe für VB6

Gleitkommawerte können als mmmEeee mmmDeee oder ausgedrückt werden, bei dem die Mantisse mmm und EEE ist der Exponent (eine Leistung von 10). Der höchste positive Wert eines Datentyps Single ist 3,402823E + 38 oder 3,4 Mal 10 bis 38. Potenz; Der höchste positive Wert eines Double-Datentyps ist 1.79769313486232D + 308 oder etwa 1,8 mal 10 zur 308ten Potenz. Wenn Sie D verwenden, um die Mantisse und den Exponenten in einem numerischen Literal zu trennen, wird der Wert als Double-Datentyp behandelt. Gleichermaßen behandelt die Verwendung von E auf dieselbe Weise den Wert als einen einzelnen Datentyp.

Jetzt in der VB6 IDE habe ich versucht, diese

const MAX_DOUBLE as Double = 1.79769313486232D+308 

jedoch eingeben, sobald ich weg von dieser Linie das IDE einen Fehler 6 (Überlauf) führt

Wenn Sie versuchen, eine Zuweisung zu erstellen, die die Einschränkungen des Ziels der Zuweisung überschreitet, tritt ein Überlauf auf. ...

Also wie bekomme ich MAX_DOUBLE (und MIN_DOUBLE für diese Angelegenheit) definiert?

Answer 1

Muss es ein Const sein? Sie können den genauen Wert von MAX_DOUBLE in eine Variable abrufen, indem Sie das richtige Bitmuster mit CopyMemory aus einem Byte-Array festlegen.

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) 

Dim Max As Double 
Dim Idx As Long 
Dim Bits(0 To 7) As Byte 

For Idx = 0 To 5 
    Bits(Idx) = 255 
Next 
Bits(6) = 239 ' = 11101111 
Bits(7) = 127 

For Idx = 0 To 7 
    CopyMemory ByVal VarPtr(Max) + Idx, Bits(Idx), 1 
Next 

Debug.Print Max 

Edit: Ich habe vergessen, dass Sie auch nach MIN_DOUBLE gefragt, die noch einfacher ist.

Dim Min As Double 
Dim Bits As Byte 

Bits = 1 
CopyMemory ByVal VarPtr(Min), Bits, 1 

Debug.Print Min 

Answer 2

Verwenden Sie ein "E" für den Exponenten in der Zahl anstelle eines "D" wie unten.

Public Const MAX_DOUBLE = 1.79769313486232E+308 

[Bearbeiten]

Werfen Sie einen Blick auf diesen Link unten, scrollen Sie nach unten. Dieses konkrete Codebeispiel zeigt, wie dieses Konstrukt verwendet wird. Hoffentlich hilft das.

http://www.experts-exchange.com/Programming/Languages/.NET/Visual_Basic.NET/Q_22555684.html

Answer 3

Offensichtliche pragmatische Lösung: die Zahl leicht reduzieren.

Const MAX_DOUBLE As Double = 1.79769313486231E+308 

Ich stelle mir vor, dass in den meisten Situationen ausreichend sein wird.

Answer 4

Edit: es gelöst!

Const test As Double = 1.79769313486231E+308 + 5.88768018655736E+293 

doppelt geprüft es auf die binäre Ebene nach unten, die so hoch sein sollte, wie Sie gehen können. Sie können weiterhin Werte wie 1 usw. hinzufügen, aber es ergibt sich eine Zahl gleich, nicht größer als. Ausgabe ist dies: 01111111 | 11101111 | 11111111 | 11111111 | 11111111 | 11111111 | 11111111 | 11111111 die in der Tat DoubleMax ist

Alt: Sie nur Positive infinity nutzen könnten.