Mega Code Archive
Type UnderlyingSystemType
<![CDATA[
Imports System.Reflection
Public Class MainClass
Public Shared Sub Main()
Dim A As Integer
Dim B As Double
Dim C As String = "Hello, world"
Dim D As DateTime = New DateTime(Now.Ticks)
Dim E As Byte
Dim F As Boolean
Console.WriteLine("Type Codes:")
Console.WriteLine("Integer: " & A.GetTypeCode() & _
" " & A.GetType().Name & " " & A.GetType().UnderlyingSystemType.ToString())
Console.WriteLine("Double: " & B.GetTypeCode() & _
" " & B.GetType().Name & " " & B.GetType().UnderlyingSystemType.ToString())
Console.WriteLine("String: " & C.GetTypeCode() & _
" " & C.GetType().Name & " " & C.GetType().UnderlyingSystemType.ToString())
Console.WriteLine("DateTime: " & D.GetTypeCode() & _
" " & D.GetType().Name & " " & D.GetType().UnderlyingSystemType.ToString())
Console.WriteLine("Byte: " & E.GetTypeCode() & _
" " & E.GetType().Name & " " & E.GetType().UnderlyingSystemType.ToString())
Console.WriteLine("Boolean: " & F.GetTypeCode() & _
" " & F.GetType().Name & " " & F.GetType().UnderlyingSystemType.ToString())
End Sub
End Class
]]>