Question

How to check whether a float number is even or odd in VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared Function float_even(f As Single) As Boolean
        Dim s As String = f.ToString()
 
        Dim n As Integer = Int(s(s.Length - 1)) - 48

        return n Mod 2 = 0
    End Function


    Public Shared Sub Main()
        Dim f As Single = 872.1459f
        
        If (float_even(f)) Then
            Console.WriteLine("even")
        Else
            Console.WriteLine("odd")
        End If     
             
        f = 23.8716f
       
        If (float_even(f)) Then
            Console.WriteLine("even")
        Else
            Console.WriteLine("odd")
        End If 
    End Sub
End Class



' run:
'
' odd
' even
'

 

70+ SQL courses for beginners and professionals