Question

How to cast (convert) double or single to int in VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared Sub Main()
        Console.WriteLine(Int(29.9))
        Console.WriteLine(Fix(29.9))
        
        Console.WriteLine(Int(-29.9))
        Console.WriteLine(Fix(-29.9))
        
        Console.WriteLine(Int(29.2))
        Console.WriteLine(Fix(29.2))
        
        Console.WriteLine(Int(-29.2))
        Console.WriteLine(Fix(-29.2))
    End Sub
End Class



' run:
' 
' 29
' 29
' -30
' -29
' 29
' 29
' -30
' -29

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Test
    Public Shared Sub Main()
        Console.WriteLine(CInt(29.9))
        Console.WriteLine(CInt(-29.9))
        Console.WriteLine(CInt(29.2))
        Console.WriteLine(CInt(-29.2))
    End Sub
End Class



' run:
' 
' 30
' -30
' 29
' -29

 

70+ SQL courses for beginners and professionals

Answer 3

Public Class Test
    Public Shared Sub Main()
        Console.WriteLine(CInt(Int(29.9)))
        Console.WriteLine(CInt(Fix(29.9)))
        
        Console.WriteLine(CInt(Int(-29.9)))
        Console.WriteLine(CInt(Fix(-29.9)))
        
        Console.WriteLine(CInt(Int(29.2)))
        Console.WriteLine(CInt(Fix(29.2)))
        
        Console.WriteLine(CInt(Int(-29.2)))
        Console.WriteLine(CInt(Fix(-29.2)))
    End Sub
End Class



' run:
' 
' 29
' 29
' -30
' -29
' 29
' 29
' -30
' -29

 

70+ SQL courses for beginners and professionals

Answer 4

Imports System

Public Class Test
    Public Shared Sub Main()
        Console.WriteLine(CInt(Int(385.7638)))
        Console.WriteLine(CInt(Fix(385.7638)))
        
        Console.WriteLine(CInt(Int(-385.7638)))
        Console.WriteLine(CInt(Fix(-385.7638)))
        
        Console.WriteLine(Int(385.7638))
        Console.WriteLine(Fix(385.7638))
        
        Console.WriteLine(Int(-385.7638))
        Console.WriteLine(Fix(-385.7638))
    End Sub
End Class



' run:
' 
' 385
' 385
' -386
' -385
' 385
' 385
' -386
' -385

 

70+ SQL courses for beginners and professionals