.NET VB データ型変換（キャスト）

任意の変数 = データ型変換関数（変換の対象）

'基本的な使用方法 -----------------------------------------
 Dim bolA As Boolean
 Dim strB As String = "1"
 bolA = CBool(strB)
 Console.WriteLine("文字列型→boolean型     型変換:" & bolA)

 '---------------------------------------------------------
'文字列からboolean型へ変換
 Console.WriteLine("文字列 0→boolean型     型変換:" & CBool("0"))
 Console.WriteLine("文字列 1→boolean型     型変換:" & CBool("1"))
 Console.WriteLine("文字列 false→boolean型 型変換:" & CBool("false"))
 Console.WriteLine("文字列 true→boolean型  型変換:" & CBool("true"))

 '数字型からboolean型へ変換
 Console.WriteLine("数字　 0→boolean型     型変換:" & CBool(0))
 Console.WriteLine("数字　 1→boolean型     型変換:" & CBool(1))
 Console.WriteLine("数字　 2→boolean型     型変換:" & CBool(2))

 '浮動小数点数からboolean型変換
 Console.WriteLine("小数　 2→boolean型     型変換:" & CBool(1.2))

'例外パターン
 Console.WriteLine("文字列:" & CBool("test"))                  'FormatException発生
 Console.WriteLine("文字　:" & CBool("O"))                     'FormatException発生
 Dim strC As String = Nothing
 Console.WriteLine("Nothing :" & CBool(strC))                  'FormatException発生

'数字型からバイト型へ変換
 Console.WriteLine("数字型 10→バイト型      型変換:" & CByte(10))
 '小数点からバイト型へ変換
 Console.WriteLine("小数点型 1.1→バイト型   型変換:" & CByte(1.1)) '小数点部分が丸められる
 '文字列からバイト型へ変換
 Console.WriteLine("文字列型 1→バイト型     型変換:" & CByte("1"))
 'バイト型で扱えない数字の変換
 Console.WriteLine("数字型 256→バイト型     型変換:" & CByte(256)) 'byte型で表現できないエラーが発生

 Dim strA As String = "あ"
 Console.WriteLine("文字列型 あ→バイト型         型変換:" & CChar(strA))
 '数字型から文字型へ変換
 Console.WriteLine("数字型 10→バイト型           型変換:" & CChar(10))  'エラーが発生する
 '小数点から文字型へ変換
 Console.WriteLine("小数点型 1.1→バイト型        型変換:" & CChar(1.1)) 'エラーが発生する
 '文字列から文字型へ変換
 Console.WriteLine("文字列型 今日は→バイト型     型変換:" & CChar("今日は")) '二文字目以降が切り捨てられる

'基本的な使用方法
Dim strA As String = "2020/01/01"
Console.WriteLine("文字列型 2020/01/01→バイト型 型変換:" & CDate(strA).ToString())

Console.WriteLine("文字列型 2020/01/01 10:15:01→バイト型 型変換:" & CDate("2020/01/01 10:15:01").ToString())
Console.WriteLine("文字列型 21/03/02→バイト型     型変換:" & CDate("21/03/02").ToString())
Console.WriteLine("文字列型 S55.03.21→バイト型    型変換:" & CDate("S55.03.21").ToString())
Console.WriteLine("文字列型 2020/01/01→バイト型   型変換:" & CDate("20200101").ToString()) 
'System.InvalidCastException発生
'数字型から文字型へ変換
Console.WriteLine("数字型 20200101→バイト型      型変換:" & CDate(20200101).ToString())  'エラーが発生する
'小数点から文字型へ変換
Console.WriteLine("小数点型 1.1→バイト型     　  型変換:" & CDate(1.1).ToString())       'エラーが発生する
'文字列から文字型へ変換
Console.WriteLine("文字列型 今→バイト型          型変換:" & CDate("今").ToString())
'System.InvalidCastException発生

'基本的な使い方
Dim intA As Integer = 1
Console.WriteLine("数字型 1→倍精度浮動小数点数型 　　型変換:" & CDbl(intA))

'小数点から文字型へ変換
Console.WriteLine("小数点型 1.1→バイト型     　　　　型変換:" & CDbl(1.1))
'文字列から文字型へ変換
Console.WriteLine("文字列型 1.2は→バイト型   　　　　型変換:" & CDbl("1.2"))
'扱える数字を超えたへ変換
Console.WriteLine("浮動小数点型 超えた数字→バイト型  型変換:" & CDbl("4.94065645841246555")) '丸められる

'基本的な使い方
Dim intA As Integer = 1
Console.WriteLine("数字型 1→倍精度浮動小数点数型 　　型変換:" & CDec(intA))

'小数点から10進型へ変換
Console.WriteLine("小数点型 1.1→バイト型     　　　　型変換:" & CDec(4.9406564584124659)) '丸められる
'文字列から10進型へ変換
Console.WriteLine("文字列型 1.2は→バイト型   　　　　型変換:" & CDec("1.2"))
'扱える数字10進型へ変換
Console.WriteLine("文字列型 超えた数字→バイト型      型変換:" & CDec("4.9406564584124659"))
Console.WriteLine("文字列型 超えた数字→バイト型      型変換:" & CDec("7.9228162514264337593543950335"))
Console.WriteLine("文字列型 超えた数字→バイト型      型変換:" & CDec("7.9228162514264337593543950336")) '丸められる
Console.WriteLine("文字列型 超えた数字→バイト型      型変換:" & CDec("2021/04/01"))
'InvalidCastExceptionが発生

'基本的な使い方
Dim lonA As Long = 100000000
Console.WriteLine("数字型 1→整数型 　　            型変換:" & CInt(lonA).to)

'小数点から10進型へ変換
Console.WriteLine("小数点型 1.1→整数型     　　　　型変換:" & CInt(4.9406564584124659))   '丸められる
'文字列から10進型へ変換
Console.WriteLine("文字列型 1.2は→整数型   　　　　型変換:" & CInt("1.2"))                '丸められる
'扱える数字10進型へ変換
Console.WriteLine("文字列型 超えた数字→整数型      型変換:" & CInt("4.9406564584124659")) '丸められる
Console.WriteLine("文字列型 超えた数字→整数型    　型変換:" & CInt("2021/04/01"))       'InvalidCastExceptionが発生

 '基本的な使い方
 Dim intA As Integer = 100000000
 Console.WriteLine("数字型 1→長整数型 　　         型変換:" & CLng(intA).ToString())

 '小数点から10進型へ変換
 Console.WriteLine("小数点型 1.1→長整数型     　　 型変換:" & CLng(4.9406564584124659).ToString())   
 '丸められる

 '文字列から10進型へ変換
 Console.WriteLine("文字列型 1.2は→長整数型   　　 型変換:" & CLng("1.2").ToString())                
 '丸められる

 '扱える数字10進型へ変換
 Console.WriteLine("文字列型 超えた数字→長整数型   型変換:" & CLng("4.9406564584124659").ToString()) 
 '丸められる
 Console.WriteLine("文字列型 超えた数字→長整数型  型変換:" & CLng("2021/04/01").ToString())      'InvalidCastExceptionが発生

'基本的な使い方
 Dim intA As Integer = 1000
 Console.WriteLine("数字型 1            →短整数型へ変換:" & CShort(intA).ToString())

 '小数点から10進型へ変換
 Console.WriteLine("小数点型 1.1        →短整数型へ変換:" & CShort(4.9406564584124659).ToString()) '丸められる
 '文字列から10進型へ変換
 Console.WriteLine("文字列型 1.2は      →短整数型へ変換:" & CShort("1.2").ToString())                '丸められる
 '扱える数字10進型へ変換
 Console.WriteLine("文字列型 超えた数字  →短整数型へ変換:" & CShort("4.9406564584124659").ToString()) '丸められる

 '例外パターン
 Dim intB As Integer = 100000000
 Console.WriteLine("数字型 1            →短整数型へ変換:" & CShort(intB).ToString())      'OverflowException発生
 Console.WriteLine("文字列型 超えた数字  →短整数型へ変換:" & CShort("2021/04/01").ToString()) 
'InvalidCastException発生

'基本的な使い方
Dim intA As Integer = 1
Console.WriteLine("1（数値型）          →倍精度浮動小数点数型変換:" & CSng(intA).ToString())

'小数点から文字型へ変換
Console.WriteLine("1.1（小数型）        →倍精度浮動小数点数型変換:" & CSng(1.1).ToString())
'文字列から文字型へ変換
Console.WriteLine("1.2（文字列型）      →倍精度浮動小数点数型変換:" & CSng("1.2").ToString())
'扱える数字を超えたへ変換
Console.WriteLine("範囲外（文字列型）    →倍精度浮動小数点数型変換" & CSng("4.94065645841246555").ToString()) 
'丸められる
'例外パターン
Console.WriteLine("2021/04/01（文字列型）  →倍精度浮動小数点数型変換:" & CSng("2021/04/01").ToString().ToString()) 

'基本的な使い方
Dim intA As Integer = 1
Console.WriteLine("1（数値型）          →文字列へ変換:" & CStr(intA))

Dim bolB As Boolean = false
Console.WriteLine("false（boolean型）   →文字列へ変換:" & CStr(bolB ))

'小数点から文字型へ変換
Console.WriteLine("1.1（小数型）        →文字列へ変換:" & CStr(1.1))
'文字列から文字型へ変換
Console.WriteLine("1.2（文字列型）      →文字列へ変換:" & CStr("1.2"))

'基本的な使い方
Dim strA As String = "VB .NET"
Console.WriteLine("VB .NET（文字列）          →オブジェクト型:" & CObj(strA ).toString())

任意の変数 = Convert.データ型変換メソッド（変換の対象）

変数 = Convert.ToByte(変換の対象)

Dim bytX As Byte = 0

'整数型宣言
Dim shoX As Short = 123
bytX = Convert.ToByte(shoX)
Console.WriteLine("Short   > Byte型の値:" & bytX.ToString())

Dim intX As Integer = 123
bytX = Convert.ToByte(intX)
Console.WriteLine("Integer > Byte型の値:" & bytX.ToString())

Dim lngX As Long = 123
bytX = Convert.ToByte(lngX)
Console.WriteLine("Long    > Byte型の値:" & bytX.ToString())

'文字列型宣言
Dim douX As Double = 123.254
bytX = Convert.ToByte(douX)
Console.WriteLine("Double  > Byte型の値:" & bytX.ToString())

'10進数型宣言
Dim decX As Decimal = 123
bytX = Convert.ToByte(decX)
Console.WriteLine("Decimal > Byte型の値:" & bytX.ToString())

'文字列型宣言
Dim strX As String = "123"
bytX = Convert.ToByte(strX)
Console.WriteLine("String  > Byte型の値:" & bytX.ToString())

'boolean型宣言
Dim bolX As Boolean = False
bytX = Convert.ToByte(bolX)
Console.WriteLine("Boolean> Byte型の値:" & bytX.ToString())

'例外パターン
Console.WriteLine("例外    > Byte型の値:" & Convert.ToByte(".NET").ToString)
Console.WriteLine("例外    > Byte型の値:" & Convert.ToByte("2020/04/01").ToString)
Console.WriteLine("例外    > Byte型の値:" & Convert.ToByte("１２３").ToString)
Console.WriteLine("例外    > Byte型の値:" & Convert.ToByte(256).ToString)

変数 = Convert.Toint16(変換の対象)

変数 = Convert.Toint32(変換の対象)

変数 = Convert.Toint64(変換の対象)

変数 = Convert.ToDecimal(変換の対象)

Dim decX As Decimal = 0

'整数型宣言
Dim intX As Integer = 123
decX = Convert.ToDecimal(intX)
Console.WriteLine("Integer > Decimal型の値:" & decX.ToString())

Dim lngX As Long = 123
decX = Convert.ToDecimal(lngX)
Console.WriteLine("Long    > Decimal型の値:" & decX.ToString())

'浮動小数点数型宣言
Dim douX As Double = 123.254
decX = Convert.ToDecimal(douX)
Console.WriteLine("Double  > Decimal型の値:" & decX.ToString())

'文字列型宣言
Dim strX As String = "123.5"
decX = Convert.ToDecimal(strX)
Console.WriteLine("String  > Decimal型の値:" & decX.ToString())

'boolean型宣言
Dim bolX As Boolean = False
decX = Convert.ToDecimal(bolX)
Console.WriteLine("boolean  > Decimal型の値:" & decX.ToString())

'例外パターン
'Console.WriteLine("例外 > Decimal型の値:" & Convert.ToDecimal(".NET").ToString)
'Console.WriteLine("例外 > Decimal型の値:" & Convert.ToDecimal("2020/04/01").ToString)
'Console.WriteLine("例外 > Decimal型の値:" & Convert.ToDecimal("１２３").ToString)
'Console.WriteLine("例外 > Decimal型の値:" & Convert.ToDecimal("79228162514264337593543950336").ToString)

変数 = Convert.Toint64(変換の対象)

Dim dblX As Double = 0

'整数型宣言
Dim intX As Integer = 123
dblX = Convert.ToDouble(intX)
Console.WriteLine("Integer > Double型の値:" & dblX.ToString())

'単精度浮動小数点数宣言
Dim douX As Single = 3.402823
dblX = Convert.ToDouble(douX)
Console.WriteLine("Single  > Double型の値:" & dblX.ToString())

'10進数型宣言
Dim decX As Decimal = 123
dblX = Convert.ToDouble(decX)
Console.WriteLine("Decimal > Double型の値:" & dblX.ToString())

'文字列型宣言
Dim strX As String = "123.5556"
dblX = Convert.ToDouble(strX)
Console.WriteLine("String  > Double型の値:" & dblX.ToString())

'boolean型宣言
Dim bolX As Boolean = False
dblX = Convert.ToDouble(bolX)
Console.WriteLine("Boolean > Double型の値:" & dblX.ToString())
'丸め
Console.WriteLine("丸め    > Double型の値:" & Convert.ToDouble("1.79769313486232333333").ToString)

'例外パターン
'Console.WriteLine("例外    > Double型の値:" & Convert.ToDouble(".NET").ToString)
'Console.WriteLine("例外    > Double型の値:" & Convert.ToDouble("2020/04/01").ToString)
'Console.WriteLine("例外    > Double型の値:" & Convert.ToDouble("１２３").ToString)

変数 = Convert.ToSingle(変換の対象)

変数 = Convert.ToDateTime(変換の対象)

Dim dtmX As DateTime = Nothing

'文字列型宣言
Dim strX As String = "2020/01/01"
dtmX = Convert.ToDateTime(strX)
Console.WriteLine("日付    > DateTime型の値:" & dtmX.ToString())


'文字列型宣言
Dim strX2 As String = "2020/01/01 10:15:01"
dtmX = Convert.ToDateTime(strX2)
Console.WriteLine("日時    > DateTime型の値:" & dtmX.ToString())


'文字列型宣言
Dim strX3 As String = "s55.01.02"
dtmX = Convert.ToDateTime(strX3)
Console.WriteLine("和暦    > DateTime型の値:" & dtmX.ToString())

'例外パターン
Console.WriteLine("例外    > DateTime型の値:" & Convert.ToDateTime(".NET").ToString)
Console.WriteLine("例外    > DateTime型の値:" & Convert.ToDateTime(2020101).ToString)

変数 = Convert.ToChar(変換の対象)

Dim chrX As Char = Nothing

'文字列型宣言
Dim strX As String = "1"
chrX = Convert.ToChar(strX)
Console.WriteLine("数字   > Char型の値:" & chrX.ToString())

'文字列型宣言
Dim strX2 As String = "Z"
chrX = Convert.ToChar(strX2)
Console.WriteLine("アルファベット > Char型の値:" & chrX.ToString())

'例外パターン
'Console.WriteLine("例外   > Char型の値:" & Convert.ToChar(".NET").ToString)
'Console.WriteLine("例外   > Char型の値:" & Convert.ToChar(2020101).ToString)

変数 = Convert.ToString(変換の対象)

Dim strX As String = ""

'整数型宣言
Dim shoX As Short = 123
strX = Convert.ToString(shoX)
Console.WriteLine("Short   > String型の値:" & strX)

Dim intX As Integer = 123
strX = Convert.ToString(intX)
Console.WriteLine("Integer > String型の値:" & strX)

Dim lngX As Long = 123
strX = Convert.ToString(lngX)
Console.WriteLine("Long    > String型の値:" & strX)

'浮動小数点型宣言
Dim douX As Double = 123.254
strX = Convert.ToString(douX)
Console.WriteLine("Double  > String型の値:" & strX)

'10進数型宣言
Dim decX As Decimal = 123
strX = Convert.ToString(decX)
Console.WriteLine("Decimal > String型の値:" & strX)

'boolean型宣言
Dim bolX As Boolean = False
strX = Convert.ToString(bolX)
Console.WriteLine("Boolean > String型の値:" & strX)

変数 = CType(式,変換先の型)

Dim intX As Integer
Dim objX As Object = 123.3

Try

   intX = CType(objX, Integer)

   Console.WriteLine("Integer型:" & intX.ToString)


Catch ex As Exception


End Try

変数 = DirectCast(式,変換先の型)

Sub ControlClicked(ByVal sender As Object, ByVal e As EventArgs)
  If TypeOf sender Is Button Then
    Dim b As Button = DirectCast(sender, Button)
  End If
End Sub

変数 = TryCast(式,変換先の型)

Sub ControlClicked(ByVal sender As Object, ByVal e As EventArgs)
Dim b As Button = TryCast(sender, Button)
End Sub

変数 = 変更後の型.Parse(文字列)
変更後の型.TryParse(文字列,変数)

Dim bytX As Byte
Dim shoX As Short
Dim intX As Integer
Dim lonX As Long
Dim douX As Double
Dim decX As Decimal
Dim bolX As Boolean
Dim datX As Date

Byte.TryParse("123", bytX)
Short.TryParse("1234", shoX)
Integer.TryParse("12345", intX)
Long.TryParse("123456", lonX)
Double.TryParse("123.12", douX)
Decimal.TryParse("123.2", decX)
Boolean.TryParse("true", bolX)
Date.TryParse("2020/01/01", datX)

Console.WriteLine("Byte型:" & bytX.ToString)
Console.WriteLine("Short型:" & shoX.ToString)
Console.WriteLine("Integer型:" & intX.ToString)
Console.WriteLine("Long型:" & lonX.ToString)
Console.WriteLine("Double型:" & douX.ToString)
Console.WriteLine("Decimal型:" & decX.ToString)
Console.WriteLine("Boolean型:" & bolX.ToString)
Console.WriteLine("Date型:" & datX.ToString)

Dim bytX As Byte
Try
    bytX = Byte.Parse("123")
    Console.WriteLine("Byte型:" & bytX.ToString)
Catch ex As Exception

End Try