[Resolvido]digito verificador

Amigos,

Não consegui achar aqui no forum, e gostaria de saber se tem algum código para gerar o digito verificador de um número qualquer, e também para a validação do mesmo.

Qualquer ajuda é bem vinda.

Obrigado.

Procure por CPF ou CNPJ que tem alguns.

Obrigado por ajudar Criquio. Tem somente como validar. Estou procurando para gerar o digito verificador de um número, por exemplo, 2012/001-??

Criquio achei este código na internet, mas está em Csharp, como converto para vba?

private string modulo10(string str)
{
int digito=0;
int flag=2;
str=str.Substring(0,str.Length - 1);
for (int i = str.Length-1; i >= 0; i--)
{
int valor = Convert.ToInt32(str[i].ToString()) * flag;
int soma = 0;
if (valor.ToString().Length > 1)
{
string svalor = valor.ToString();
for (int j = 0; j < svalor.Length; j++)
{
soma += Convert.ToInt32(svalor[j].ToString());
}
}
else
{
soma = valor;
}
digito += soma;
flag = (flag == 2) ? 1 : 2;
}
digito = digito % 10;
digito = 10 - digito;
if (digito == 10)
{
digito = 0;
}
return digito.ToString();

}

Versão otimizada:

public static int Mod10(this string str)
{
int i = 2;
int sum = 0;
foreach (char c in str.ToCharArray())
{
int res = Convert.ToInt32(c.ToString()) * i;
sum += res > 9 ? (res - 10) + 1 : res;
i = i == 2 ? 1 : 2;
}
return 10 - (sum % 10);
}

Elaborei rapidamente aqui alguma coisa. Vamos considerar que você tenha o campo txtNumero aonde digitará os 9 números e o campo txtDigito aonde serão mostrados os dois dígitos verificadores:

Código:

Dim N As Integer, P As Integer, S As Integer, D As Double

For N = 1 To 9
    P = (P + Mid(Me.txtNumero, N, 1) * N) Mod 11
Next

If P < 3 Then
    P = 0
End If

D = Me.txtNumero & P

For N = 1 To 10
    S = (S + Mid(D, N, 1) * (N - 1)) Mod 11
Next

If S < 3 Then
    S = 0
End If

Me.txtDigito = P & S

Criquio, não sei como te agradecer. Funcionou perfeitamente!! Muito Obrigado.

Grato pelo retorno. O fórum agradece.