|
|
Postada em 07/10/2005 10:52 hs
bom dia tenho o seguinte problema: uma string com segue abaixo: 00000000154250000000001452000000000018700000000014780000000000698.... eu preciso do total da soma destes numeros,só que em intervalos de 13 digitos, por exemplo: 0000000015425+0000000001452+0000000000187...e assim por diante agradeço muito a colaboração luiz |
|
|
|
|
|
|
|
Postada em 07/10/2005 11:07 hs
Dim ART As String
Dim I As Integer
Dim VALOR As Double
Dim TOTAL As Double ART = "0000000154250000000001452000000000018700000000014780000000000698" For I = 1 To Len(ART) Step 13
VALOR = Val(Mid(ART, I, 13))
Debug.Print VALOR, Mid(ART, I, 13)
TOTAL = TOTAL + VALOR
Next I MsgBox "TOTAL DA STRING " & TOTAL
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
|
Postada em 07/10/2005 11:12 hs
A solução da Artsoft é boa , só aconselharia trocar a instrução: Valor = Val(Mid((ART,I,13)) Por Valor = Cdbl(MId((ART,I,13)) Caso tenha algum valor com casas decimais
dsmn
|
|
|
|
|
|
Postada em 07/10/2005 11:25 hs
Caro DSMN, se seguir a sua instrução ficara assim com o exemplo abaixo : c/ VAL c/ CDbl String 154,25 15425 0000000154.25 <==== Não considera a casa decimal !!!
1452 1452 0000000001452
187 187 0000000000187
1478 1478 0000000001478
698 698 0000000000698
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
|
Postada em 07/10/2005 11:54 hs
Deu certinho, valeu pessoal, voces são feras! |
|
|
|
|
|
Postada em 07/10/2005 13:21 hs
Voce tem razao art soft, só que se tiver no formato 000000154,25 com cdbl retorna 154.25 e com val retorna 154
dsmn
|
|
|
|
