|
|
Postada em 09/05/2007 10:19 hs
Pessoal to precisando faser o seguinte. Tenho txtVolume, txtQuantidade, txtNumeroInicial, txtNumeroFinal, List1. txtVolume = 7 txtQuantidade = 750 txtNumeroInicial = 000.001 txtNumeroFinal = 005.000 Como faço para somar de 750 em 750 e jogar o resultado em um List. Ex.: 000.001 a 000.750 000.751 a 001.500 001.501 a 002.250 002.251 a 003.000 003.001 a 003.750 ... ir somando assim até chegar a 005.000 Alguém sabe como faço isso? |
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/05/2007 12:40 hs
Faça jogando assim: Dim sNUMERO As String Dim lNUMERO As Long lNUMERO = Val(Text1.Text) sNUMERO = "000000" & Trim(Str(Trim(lNUMERO + 750))) sNUMERO = Right(sNUMERO, 6) sNUMERO = Left(sNUMERO, 3) & "." & Right(sNUMERO, 3) Esta é a idéia, faça de acordo com sua necessidade. vlu// |
|
|
|
João Paulo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/05/2007 13:22 hs
não deu certo a numeração não esta em seguencia. ta saindo assim 000.751 000.751 000.751 000.751 000.751 Como faço para somar de 750 em 750 e jogar o resultado em um List. Ex.: 000.001 a 000.750 000.751 a 001.500 001.501 a 002.250 002.251 a 003.000 003.001 a 003.750 |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/05/2007 17:27 hs
Desculpe, fez algo errado, testei e funcionou, somando 750. Verifique, ele está somando 750 ao 000.001, então voce está pegando errado, o que tem pegar é o segundo numero: 000.750, senão vai somar: 1 + 750 = 751 Basta um pouco de atenção, e vai dar certo. vlu// |
|
|
|
