Jiraspiom

Blog Pessoal

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

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: