[Resolvido] Criar Função Para Multiplicar Dígitos

Bom dia a todos,

Estou precisando criar uma função para multiplicar digitos e somar no final. São duas sequencias numericas, a primeira é de 21 digitos e a outra 4 dígitos (sempre em loop 3197). Exemplo:

SEQUENCIA1 = 123412345678911234567 <- Variavel numerica de 21 digitos
X
SEQUENCIA2 = 319731973197319731973 <- Sempre repetindo 3197 para cada bloco de 4 digitos
TOTAL ?

E armazenar o resultado da multiplicação. Seria isso 1x3=? 2x1=? 3x9=? 4x7=?... até 21 digitos

Alguem poderia me ajudar a construir? Um grande abraço e obrigado.

Edu

Olá,

Consegui fazer a função, obrigado.

FUNCTION NOMEFUNCAO(cadeia)
	mult =3
	total=0
	for pos=1 to len(cadeia)
		res=mid(cadeia, pos, 1) * mult
		total=total+res
		if mult=3 then
			mult=1
		elseif mult=1 then
			mult=9
		elseif mult=9 then
		    mult=7
		elseif mult=7 then
		    mult=3
		end if
	next
	NOMEFUNCAO=total
END FUNCTION

Edição feita por: Renan L. Queiroz, 08/03/2010, 11:33.
Inclusão da tag [ code ] para postagem de scripts

#1 Eduardo Fonseca

1 user(s) are reading this topic

[Resolvido] Criar Função Para Multiplicar Dígitos

#1 Eduardo Fonseca

1 user(s) are reading this topic

Entrar