Question

How to convert to Integer in VB.NET

Answer 1

Imports System.IO

Module Module1

    Sub Main()

        Try

            Dim s As Single = 3.2
            Dim i As Integer

            i = CType(s, Integer)
            Console.WriteLine(i) ' 3

            s = 3.5
            i = CType(s, Integer)
            Console.WriteLine(i) ' 4

            Dim d As Double = 3.2

            i = CType(d, Integer)
            Console.WriteLine(i) ' 3

            d = 3.5
            i = CType(d, Integer)
            Console.WriteLine(i) ' 4

            Dim str As String = "3.2"

            i = CType(str, Integer)
            Console.WriteLine(i) ' 3

            str = "3.5"
            i = CType(str, Integer)
            Console.WriteLine(i) ' 4

        Catch ex As Exception

            Console.WriteLine(ex.Message)

        End Try

    End Sub

    'run:
    ' 
    '3
    '4
    '3
    '4
    '3
    '4

End Module

 

70+ SQL courses for beginners and professionals