VBScript - データ型（バリアント型（Variant）とは）

VBScript の変数のデータ型は、すべてバリアント型（Variant）になる。

バリアント型（Variant）は次の特徴を持つ。

• どんな値でも格納できる。数値でも文字列でも何でも OK 。
• 格納された値をどのデータ型として扱うかを「内部処理形式」として持つ。
  たとえば整数を格納すれば内部処理形式は整数型となり、ブール型（True/False）を格納すれば内部処理形式はブール型となる。

内部処理形式の一覧

バリアント型（Variant）で持てる内部処理形式は以下のとおり。

内部処理形式を判定するには

内部処理形式は VarType 関数、または TypeName 関数を使って取得できる。

VarType 関数

VarType(varname)

変数 varname の内部処理形式を表す数値を返す。

不具合？
Excel.Application を引数にすると vbString(8) が返される。
正しくは vbObject(9) ではないかと思うのだが……。

Dim xls
Set xls = CreateObject("Excel.Application")

WScript.Echo VarType(xls)
' → 8

TypeName 関数

TypeName(varname)

変数 varname の内部処理形式を表す文字列を返す。

戻り値の一例を以下に挙げる。

＊オブジェクトの場合、TypeName 関数はどのような文字列を返すのか。

例：Scripting.Dictionary は Dictionary が返された。

Dim a
Set a = CreateObject("Scripting.Dictionary")

WScript.Echo TypeName(a)
' → Dictionary

例：ADODB.Stream は Stream が返された。

Dim a
Set a = CreateObject("ADODB.Stream")

WScript.Echo TypeName(a)
' → Stream

計算結果が元のデータ型を超えると自動で拡張される

Byte、Integer、Long、Singleを格納している Variant に対して計算を行い、結果が元のデータ型の範囲を超えた場合、結果は Variant 内で次に大きいデータ型に昇格される。

• Byte → Integer
• Integer → Long
• Long または Single → Double
• Currency、Double → 実行時エラー

例1　Byte → Integer

Dim a, b, c
a = CByte(128)
b = CByte(128)
c = a + b

WScript.Echo TypeName(c)
' → Integer

例2　Integer → Long

Dim d, e, f
d = 32767   'Integerの最大値
e = 1
f = d + e

WScript.Echo TypeName(f)
' → Long

例3　Long → Double

Dim g, h, i
g = 2147483647  'Longの最大値
h = 1
i = g + h

WScript.Echo TypeName(i)
' → Double

例4　Single → Double

Dim j, k, l
j = CSng(340282350000000000000000000000000000000) 'Singleの最大値 3.4028235E+38
k = CSng(1)
l = j + k

WScript.Echo TypeName(l)
' → Double

例5　Double の計算でオーバーフロー

Dim m, n, o
m = 1.79769313486231E+308
n = 0.00000000000001E+308
o = m + n

WScript.Echo TypeName(o)
' → 実行時エラー #6 - オーバーフローしました。

例6　Currency の計算でオーバーフロー

Dim p, q, r
p = CCur(922337203685477)   'Currencyの最大値 922,337,203,685,477.5807
q = 1
r = p + q

WScript.Echo TypeName(r)
' → 実行時エラー #6 - オーバーフローしました。