RE:Función que calcula digito vericador
Con esto te arreglas....
//arg_codigo es un string con los doce digitos para el calculo
string comprobacion = ''
int sum_pares = 0, sum_impares = 0, cont
if len(arg_codigo) <> 12 then
messagebox("ATENCION", "El codigo introducido debe ser de 12 digitos")
else
for cont = 1 to 12
if mod(cont, 2) = 0 then
sum_pares += long(mid(arg_codigo, cont, 1))
else
sum_impares += long(mid(arg_codigo, cont, 1))
end if
next
comprobacion = string(10 - mod(sum_impares + (sum_pares * 3), 10))
end if
return arg_codigo + comprobacion
Se puede resumir en:
DIGITO = 10-resto{ [Sum(impares) + (Sum(pares) x 3)]/10 }
Aleee..