Jiraspiom

Blog Pessoal

Arquivos Mensais: fevereiro 2012

Contar carácter Visual Base 6

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”.

Anúncios