Estava procurando uma forma de contar a quantidade de um determinado caracter no Visual Base, e não achei uma função interna no VB6 que fazia isso.
Então essa função faz isso muito fácil.
Private Function ContaCaracter(wString As String, wCaracter As String) As Integer
Dim I As Integer, wQtd As Integer
For I = 1 To Len(wString)
If Mid(wString, I, 1) = wCaracter Then
wQtd = wQtd + 1
End If
Next
ContaCaracter = wQtd
End Function
Exemplo que como chamar ela.
Dim dtTeste As String
Dim intgbs As Integer
dtTeste = “01/02/2012”
intgbs = ContaCaracter(dtTeste, “/”)
no final a variável “intgbs” ficara preenchido com “2”.
Jiraspiom 