Question

How to check if an integer include specific digits x times in VB.NET

Answer 1

Imports System

Class Program
	Public Shared Function IntegerIncludeDigitXTimes(ByVal n As Integer, ByVal xtims As Integer, ByVal digit As Integer) As Boolean
        Dim count As Integer = 0

        While n > 0
            If n Mod 10 = digit Then
                count += 1
            End If

            n = n \ 10
        End While

        Return count = xtims
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(IntegerIncludeDigitXTimes(7097175, 3, 7))
        Console.WriteLine(IntegerIncludeDigitXTimes(70975, 3, 7))
    End Sub
End Class


' run:
'
' True
' False
' 
 

 

70+ SQL courses for beginners and professionals