[VBA] SingleとDouble

　この記事では Single (単精度浮動小数点数型変数) と Double (倍精度浮動小数点数型変数) について解説します。

Single (単精度浮動小数点数型変数)

　Single には 32 bit の符号付き単精度浮動小数点数が格納されます。

　符号：1 bit　指数部：8 bit　仮数部：23 bit

　扱える範囲は

　－3.4028235E+38 ～－1.401298E-45
　1.401298E-45 ～ 3.4028235E+38

となっています。ちなみに単精度浮動小数点数は英語で Single precision floating point number といいます。C、C++、Java などでは float という名称でよばれています。
　

　Double には 64 bit の符号付き倍精度浮動小数点数が格納されます。

　符号：1 bit　指数部：11 bit　仮数部：52 bit

　扱える範囲は

　－1.79769313486231570E+308 ～－4.94065645841246544E-324
　4.94065645841246544E-324 ～ 1.79769313486231570E+308

となっています。倍精度浮動小数点数の英語は Double precision floating point number です。どちらにしても長い名前ですね。
　

　Single, Double ともに実数の近似値を格納しますが、その精度が大きく異なります。Single は有効数字約 7 桁、Double は約 15 桁の精度です。12345.678912345 という値を Single, Double に入れて表示させてみます。

'VBA SingleとDoubleの精度比較

Sub Single_Double_Test()

　　'xをSingle型で定義
　　Dim x As Single

　　'yをDouble型で定義
　　Dim y As Double

　　x = 12345.678912345
　　y = 12345.678912345

　　Debug.Print "x = " & x
　　Debug.Print "y = " & y

End Sub

　Single_Double_Test() を実行すると

　x = 12345.68
　y = 12345.678912345

と表示されます。Double で宣言した変数 y には値がそのまま入りますが、Single では 7 桁の数字に丸められています。実際のところ、Single を使う機会はほとんどないと思います。小数を入れる変数は全て Double で宣言しておけば問題ないはずです。