ITEM POR ITEM

LINK 17/08/2010 16:58:06
#350548
função que some uma variável item por item. Essa variavel terá tamanhos diferentes, por exemplo:
var: 45678 = têm que somar 4+5+6+7+8, sendo o total :30
var: 530528 = 5+3+0+5+2+8 = 23
JAMESBOND007 17/08/2010 17:02:38
#350549 Resposta escolhida
teste isso talves possa te ajudar
Private Function SomarValor(v As String) As Double
Dim x As Byte, res As Double
For x = 1 To Len(v)
    res = res + CDbl(Mid(v, x, 1))
Next
val = res
End Function


o chamado

MsgBox val([Ô]530528[Ô])
LINK 17/08/2010 17:12:32
#350551
Boa cara!!!!!!!!!!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar