Código para gerar DV


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Código para gerar DV

J_BH

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 10/12/2010 12:23 hs

Ola pessoal, é seguinte to precisando de um códigopara gerar DV(digito verificador) de certos números, tenho um codigo que gera esses numeros e tb até até tenho a funcão para calcular o DV, mas não estou conseguindo que ele gere o DV de todos os números e salve em um txt. se algume puder me ajudar eu agradeço

sNniffer

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 12/12/2010 22:31 hs

Você pode detalhar o que é DV?

Boa sorte.

Feliz aquele que transfere o que sabe e aprende.

Mauricio
não registrado

ENUNCIADA !

Postada em 14/12/2010 12:24 hs

Creio que seja Dígito Verificador, se for, tem esse que uso para gerar código para produtos mas tbm serve para cálculo de DV de agência bancária.

Public Function ProdutoDigito()
Dim vSoma As Double
Dim vSomaMult As Double
    vSoma = 0
    vSoma = vSoma + (Val(Mid(TxtRef.Text, 1, 1)) * 5)
    vSoma = vSoma + (Val(Mid(TxtRef.Text, 2, 1)) * 4)
    vSoma = vSoma + (Val(Mid(TxtRef.Text, 3, 1)) * 3)
    vSoma = vSoma + (Val(Mid(TxtRef.Text, 4, 1)) * 2)

    vSomaMult = (vSoma * 10) Mod 11
    If Len(CStr(vSomaMult)) = 1 Then
        ProdutoDigito = vSomaMult
    Else
        ProdutoDigito = Mid(CStr(vSomaMult), 2, 1)
    End If
End Function

J_BH

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 17/12/2010 12:26 hs

é isso mesmo é DÍGITO VERIFICADOR,

muito obrigado pelo código

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR