aantal keer 7

[thomassske]

Hallo,


ik zou een code moeten hebben die een getal splitst in cijfers en daarna telt hoe vaak een bepaald getal voorkomt bijvoorbeeld 6

hoe moet ik hieraan beginnen?

alvast bedankt!

 

[edmoor]

Je titel zegt 7 en in de post heb je het over 6. Wat moet het nu zijn? Het voorbeeld is er in ieder geval flexibel in.

Sub main()
    MsgBox ("Het cijfer 6 komt " & CijferAantal("1236546786", "6") & " keer voor")
End Sub

Function CijferAantal(ByVal Getal As String, ByVal Cijfer As String) As Integer
    Dim i As Integer
    
    For i = 1 To Len(Getal)
        If Mid(Getal, i, 1) = Cijfer Then CijferAantal = CijferAantal + 1
    Next i
End Function

 

[thomassske]

ok bedankt ik kan verder!