[内部処理形式から型変換をおこなう]

内部処理形式（バリアント型）を、指定した型に変換します。

【ソースコード】

[tips0037.vbs]
Option Explicit

Dim strValue    ' 変換する値
Dim dblValue    ' 変換する値

' ブール型（真偽チェック）
strValue = Array("同じ", "違う")
WScript.Echo "1 と 2 は" & strValue(CBool(1 = 2) + 1)
WScript.Echo "1 と 1 は" & strValue(CBool(1 = 1) + 1)

' π変換
dblValue = 4 * Atn(1)
WScript.Echo "π（" & dblValue & "）の"
WScript.Echo "　バイト型は" & CByte(dblValue)
WScript.Echo "　整数型は" & CInt(dblValue)
WScript.Echo "　長整数型は" & CLng(dblValue)
WScript.Echo "　通貨型は" & CCur(dblValue)
WScript.Echo "　単精度浮動小数点型は" & CSng(dblValue)
WScript.Echo "　倍精度浮動小数点型は" & CDbl(dblValue)

strValue = "Oct 25, 2000"
WScript.Echo strValue & "の"
WScript.Echo "　日付型は" & CDate(strValue)
WScript.Echo "　文字列型は" & CStr(strValue)

【実行結果】

C:\> cscript //NoLogo tips0037.vbs
1 と 2 は違う
1 と 1 は同じ
π（3.14159265358979）の
　バイト型は3
　整数型は3
　長整数型は3
　通貨型は3.1416
　単精度浮動小数点型は3.141593
　倍精度浮動小数点型は3.14159265358979
Oct 25, 2000の
　日付型は2000/10/25
　文字列型はOct 25, 2000