SOMAR SEQUENCIA

MARCIOR 24/12/2009 18:00:28
#330447
preciso de uma função que some uma variável item por item. Essa variavel as vezes terá tamanhos diferentes, por exemplo

variavel : 10527 = têm que somar 1+0+5+2+7, sendo o total : 15

variavel : 530528 = 5+3+0+5+2+8 = 23

vi alguma coisa de array mas não sai do chão...
TECLA 24/12/2009 20:53:43
#330455 Resposta escolhida
Função:
Private Function SomarValor(v As String) As Double
Dim x As Byte, resultado As Double
For x = 1 To Len(v)
    resultado = resultado + CDbl(Mid(v, x, 1))
Next
SomarValor = resultado
End Function


Chamada à função:
MsgBox SomarValor([Ô]530528[Ô])
MARCIOR 24/12/2009 22:05:19
#330458
Obrigado Tecla
Feliz Natal
Tópico encerrado , respostas não são mais permitidas
Voltar