| 主要データ型変換関数等の使用例 (16個） (SNo.002) CBool 式が 0 のときは、偽 (False) を返し、それ以外は真 (True) を返します。 CByte 式をバイト型 (Byte) に変換する CChar 文字列型 (String) の式の最初の文字を char 型 (Char) に変換する CDate 文字列を日付型 (Date) の値に変換する CDbl 式を倍精度浮動小数点型 (Double) に変換する CDec 数値を 10 進型 (Decimal) に変換する CInt 値を整数型 (Integer) に変換する CLng 値を長整数型 (Long) に変換する CObj 値をオブジェクト型 (Object) に変換する CShort 数値を短整数型 (Short) に変換する CSng 値を単精度浮動小数点数型 (Single) に変換する CStr 値を文字列型 (String) に変換する Hex 指定された値を 16 進数で表した文字列で返します Oct 指定された値を 8 進数で返します。 Space 指定された数のスペースから成る文字列を返します。 Val 指定した文字列に含まれる数値を適切なデータ型に変換して返します。 |
|
| 使用コントロール | Button1 〜 Button16 |
| その他条件 | WindowsXP Visual Basic .NET 2003 |
| CBool 関数 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'CBool 関数 '式が 0 のときは、CBool 関数は、偽 (False) を返し、それ以外は真 (True) を返します。 Debug.WriteLine(CBool(5 = 5)) '結果 True Debug.WriteLine(CBool(0)) '結果 False End Sub |
|
| CByte 関数 Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'CByte 関数 '式をバイト型 (Byte) に変換します Debug.WriteLine(CByte(125.5678)) '結果 126 End Sub |
|
| CChar 関数 Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'CChar 関数 '文字列型 (String) の式の最初の文字を char 型 (Char) に変換する Debug.WriteLine(CChar("BCD")) '結果 B End Sub |
|
| CDate 関数 Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click 'CDate 関数 '日付リテラル、時刻リテラル、および有効な日付の範囲に該当する '数値を引数として受け取ります。数値を日付に変更する場合、整数部が '日付に変換されます。小数点以下の値は、午前 0 時から始まる時刻に変換されます。 Debug.WriteLine(CDate("February 02, 2004")) '結果 2004/02/02 0:00:00 End Sub |
|
| CDbl 関数 Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click 'CDbl 関数 '式を倍精度浮動小数点型 (Double) に変換する Debug.WriteLine(CDbl(234.456784D * 8.2D * 0.01D)) '結果 19.225456288 End Sub |
|
| CDec 関数 Private Sub Button6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click 'CDec 関数 '数値を 10 進型 (Decimal) に変換する Debug.WriteLine(CDec(&HF)) '結果 15 End Sub |
|
| CInt 関数 Private Sub Button7_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button7.Click 'CInt 関数 '値を整数型 (Integer) に変換する Debug.WriteLine(CInt(1234.5)) '結果 1234 Debug.WriteLine(CInt(1235.5)) '結果 1236 End Sub |
|
| CLng 関数 Private Sub Button8_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button8.Click 'CLng 関数 '値を長整数型 (Long) に変換する Debug.WriteLine(CLng(12344.5)) '結果 12344 Debug.WriteLine(CLng(12345.5)) '結果 12346 End Sub |
|
| CObj 関数 Private Sub Button9_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button9.Click 'CObj 関数 '値をオブジェクト型 (Object) に変換する Dim MyDouble As Double = 2.7182818284 Dim MyObject As Object = CObj(MyDouble) Debug.WriteLine(MyObject) '結果 2.7182818284 End Sub |
|
| CShort 関数 Private Sub Button10_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button10.Click 'CShort 関数 '数値を短整数型 (Short) に変換する Debug.WriteLine(CShort(12344.5)) '結果 12344 Debug.WriteLine(CShort(12345.5)) '結果 12346 End Sub |
|
| CSng 関数 Private Sub Button11_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button11.Click 'CSng 関数 '値を単精度浮動小数点数型 (Single) に変換する Dim MyDouble As Double = 75.3421105 Debug.WriteLine(CSng(MyDouble)) '結果 75.34211 End Sub |
|
| CStr 関数 Private Sub Button12_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button12.Click 'CStr 関数 '値を文字列型 (String) に変換する Debug.WriteLine(CStr("00" & 123)) '結果 00123 End Sub |
|
| Hex 関数 Private Sub Button13_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button13.Click 'Hex 関数 [名前空間 : Microsoft.VisualBasic] '指定された値を 16 進数で表した文字列で返します。 Debug.WriteLine(Microsoft.VisualBasic.Hex(15)) '結果 F End Sub |
|
| Oct 関数 Private Sub Button14_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button14.Click 'Oct 関数 [名前空間 : Microsoft.VisualBasic] '指定された値を 8 進数で返します。 Debug.WriteLine(Microsoft.VisualBasic.Oct(15)) '結果 17 End Sub |
|
| Val 関数 Private Sub Button15_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button15.Click 'Val 関数 [名前空間 : Microsoft.VisualBasic] '指定した文字列に含まれる数値を適切なデータ型に変換して返します。 Debug.WriteLine(Microsoft.VisualBasic.Val("123 .45 67")) '結果 123.4567 End Sub |
|
| Space 関数 Private Sub Button16_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button16.Click 'Space 関数 [名前空間 : Microsoft.VisualBasic] '指定された数のスペースから成る文字列を返します。 Debug.WriteLine("[" & Microsoft.VisualBasic.Space(5) & "]") '結果 [ ] End Sub |
|