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

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

【ソースコード】
[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