COMO UTILIZAR O DIV
Pessoal, como eu utilizo o comando div?
Esse comando pelo menos em algoritmo serve para que uma divisão possa pegar o quociente inteiro da conta.
Ex:
Dim primeiro As Double
Dim segundo As Double
Dim resp As Double
primeiro = TXTPRIMEIRO
segundo = TXTSEGUNDO
resp = primeiro div segundo
MsgBox resp
Onde TXTPRIMEIRO = 10 e TXTSEGUNDO = 3; sendo que o resp é o resultado que deveria ser mostrado 3.
Como que eu faço para utilizar o div?
Esse comando pelo menos em algoritmo serve para que uma divisão possa pegar o quociente inteiro da conta.
Ex:
Dim primeiro As Double
Dim segundo As Double
Dim resp As Double
primeiro = TXTPRIMEIRO
segundo = TXTSEGUNDO
resp = primeiro div segundo
MsgBox resp
Onde TXTPRIMEIRO = 10 e TXTSEGUNDO = 3; sendo que o resp é o resultado que deveria ser mostrado 3.
Como que eu faço para utilizar o div?
Em vb é o MOD
FAz assim o
Dim primeiro As Double
Dim segundo As Double
Dim resp As Double
primeiro = TXTPRIMEIRO
segundo = TXTSEGUNDO
resp = (primeiro MOD segundo) 'Retorna a sobra da divisão
MsgBox resp
FAz assim o
Dim primeiro As Double
Dim segundo As Double
Dim resp As Double
primeiro = TXTPRIMEIRO
segundo = TXTSEGUNDO
resp = (primeiro MOD segundo) 'Retorna a sobra da divisão
MsgBox resp
Se não me engano, no VB você usa / para dividir e retornar um numero com casas decimais, e \ para dividir e pegar o valor inteiro apenas
10 / 3 = 3,333333...
10 \ 3 = 3
Mod retorna o que sobra
10 Mod 3 = 1
10 / 3 = 3,333333...
10 \ 3 = 3
Mod retorna o que sobra
10 Mod 3 = 1
So que eu quero é que retorne o quociente, não o resto da divisão.
O MOD retorna é o resto de uma divisão. E não é isto que quero mais sim a resposta da divisão, ou seja, o quociente de uma divisão.
Grato.
O MOD retorna é o resto de uma divisão. E não é isto que quero mais sim a resposta da divisão, ou seja, o quociente de uma divisão.
Grato.
vc qr so dividir e ter a respota?
faz isso ue
Dim primeiro As Double
Dim segundo As Double
Dim resp As Double
primeiro = TXTPRIMEIRO
segundo = TXTSEGUNDO
resp = (primeiro/segundo) 'Retorna o resultado da divisão
MsgBox resp
faz isso ue
Dim primeiro As Double
Dim segundo As Double
Dim resp As Double
primeiro = TXTPRIMEIRO
segundo = TXTSEGUNDO
resp = (primeiro/segundo) 'Retorna o resultado da divisão
MsgBox resp
e ce vc quiser ignorar valores com virgula a variavel resp pode ser integer
ou utiliza o val(primeiro/segundo)
ou utiliza o val(primeiro/segundo)
Tópico encerrado , respostas não são mais permitidas