Quero um programa com esta função para inserir digito em um banco de dados que já tenho
CalculaDigitoMod11(Dado, NumDig, LimMult, X10)
'
' CJDinfo - Mai/2001~Out/2015
'
' Retorna o(s) NumDig Dígitos de Controle Módulo 11 do NumDado
' limitando o Valor de Multiplicação em LimMult,
' multiplicando a soma por 10, se indicado:
'
' Números Comuns: NumDig LimMult X10
' CPF 2 12 true
' CNPJ 2 9 true
' PIS,C/C,Age 1 9 true
' RG SSP-SP 1 9 false
'------------------------------------------------------------------
function CalculaDigitoMod11(NumDado, NumDig, LimMult, X10)
dim Dado, Mult, Soma, Dig, i, n
if X10 = false then
NumDig = 1
end if
Dado = NumDado
for n = 1 to NumDig
Soma = 0
Mult = 2
for i = Len(Dado) to 1 step -1
Soma = Soma + Mult * CInt(mid(Dado,i,1))
Mult = Mult + 1
if Mult > LimMult then Mult = 2
next
if X10 = true then
Dig = ((Soma * 10) mod 11) mod 10
else
Dig = Soma mod 11
if Dig = 10 then
Dig = "X"
end if
end if
Dado = Dado & CStr(Dig)
next
CalculaDigitoMod11 = right(Dado, NumDig)
end function
Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta experiência. Eu tenho esta e
Olá, eu sou novo neste portal e preciso começar alguns projetos pois ainda estou em branco.
Atualmente tenho desenvolvido muitos sistemas em .Net e Delphi, em ambientes Desktop e Web.
Meu atual emprego é das 13h as 23, assim tenho disponibilidade para este projeto em todos os dias da semana na parte da manhã.
Fico a disposição para maiores informações e dúvidas.
Olá, tudo bem?
Possuo bastante experiência com programação. Trabalho na área de desenvolvimento web a mais de 5 anos. Utilizo ASP.NET MVC, C#, Javascript entre outras linguagens.
Creio que o que você precisa é bem simples.
Podemos entrar em mais detalhes via inbox.
Obrigado.