Public Class MainClass
Public Shared Sub Main()
'Explicit Conversions
Dim shrShort As Short
Dim shrUInt16 As UInt16
Dim shrInt16 As Int16
Dim intInteger As Integer
Dim intUInt32 As UInt32
Dim intInt32 As Int32
Dim lngLong As Long
Dim lngInt64 As Int64
shrShort = 0
shrUInt16 = Convert.ToUInt16(shrShort)
shrInt16 = shrShort
intInteger = shrShort
intUInt32 = Convert.ToUInt32(shrShort)
intInt32 = shrShort
lngInt64 = shrShort
lngLong = Long.MaxValue
If lngLong < Short.MaxValue Then
shrShort = Convert.ToInt16(lngLong)
End If
'intInteger = CInt(lngLong)
Dim intMyShort As Integer = 200
Console.WriteLine(shrShort)
Console.WriteLine(shrUInt16)
Console.WriteLine(shrInt16)
Console.WriteLine(intInteger)
Console.WriteLine(intUInt32)
Console.WriteLine(intInt32)
Console.WriteLine(lngLong)
Console.WriteLine(lngInt64)
Console.WriteLine(Convert.ToInt32(intMyShort))
Console.WriteLine(Convert.ToDateTime("9/9/2001"))
End Sub
End Class