どのようにしてVB_DATEでMAX_DOUBLEを宣言しますか？

Question

VB6

ためのMSDNヘルプによれば

浮動小数点値は仮数及びEEEは指数（10のパワー）であるれたMMMに、mmmEeee又はmmmDeeeとして表すことができます。 Singleデータ型の最高正の値は、3.402823E + 38、または38乗の10倍の3.4倍です。 Doubleデータ型の正の最大値は1.79769313486232D + 308、つまり308乗の約1.8倍です。 Dを使用して数値リテラルの仮数と指数を区切ると、その値はDoubleデータ型として扱われます。同様に、Eを同じ方法で使用すると、その値がSingleデータ型として扱われます。私はこの

const MAX_DOUBLE as Double = 1.79769313486232D+308 

を入力しようとしたVB6 IDEで今

しかし、できるだけ早く私は離れて、その行から移動すると、IDEがエラー6（オーバーフロー）

をスローします

割り当ての対象の制限を超える割り当てをしようとすると、オーバーフローが発生します。 ...

MAX_DOUBLE（とMIN_DOUBLEはどのように定義されていますか）をどのように定義できますか？

Answer 1

Constにする必要はありますか？ Byte配列のCopyMemoryを使用して正しいビットパターンを設定することにより、MAX_DOUBLEの正確な値を変数に取り入れることができます。

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 

編集：MIN_DOUBLEについても尋ねたことを忘れてしまった。これはさらに簡単です。

Dim Min As Double 
Dim Bits As Byte 

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

Debug.Print Min 

Answer 2

数値の指数部に "D"の代わりに "E"を使用します。

Public Const MAX_DOUBLE = 1.79769313486232E+308 

[編集]

は、以下のリンクを見てみましょう、一番下までスクロールします。この具体的なコード例は、この構成がどのように採用されているかを示しています。うまくいけば、これは役に立ちます。

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

Answer 3

明白な実用的な回避策：わずか数を減らします。

Const MAX_DOUBLE As Double = 1.79769313486231E+308 

ほとんどの状況で適切と思われます。

Answer 4

編集： はそれを解決します！

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

ダブルあなたが行くことができる限り高くすべきであるバイナリレベルにそれをチェックします。あなたは1などの値を追加し続けることができますが、それは以下の値に等しいかそれよりも大きくはありません。 あなただけ使用することができPositive infinity：| 11101111 | 11111111 | 11111111 | 11111111 | 11111111 | | 11111111確かDoubleMax

古いです11111111 01111111： 出力がこれです。