Retornar quantos ôn...
 
Notifications
Clear all

Retornar quantos ônibus conforme o nº de passageiros

5 Posts
3 Usuários
0 Reactions
1,500 Visualizações
(@afbergman)
Posts: 0
New Member
Topic starter
 

Boa tarde pessoal,

Gostaria e fazer a seguinte situação:

na textbox "nº de passageiros" ao inserir o valor ela auto completaria a outra texbox "onibus"

Esses sao os valores:

quando o nº de passageiros for menor ou igual a 60, completaria na textbox onibus com o nº 1, ou seja, em cada onibus cabem 60 passageiros.

Explicando melhor, exemplo:

ate 60 passageiros = 1 onibus
de 61 ate 120 = 2 onibus
121 ate 180 = 3 onibus e assim por diante

Me ajudem!!!

Abraços.

 
Postado : 25/10/2014 11:27 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

afbergman,

Boa Tarde!

Por gentileza atente, nas próximas postagens aqui no fórum, para a correta organização e regras do fórum. O título da sua mensagem não quer dizer nada. Utilize sempre algo claro e que defina claramente sua necessidade.

Veja se assim lhe atende.

 
Postado : 25/10/2014 12:27 pm
(@afbergman)
Posts: 0
New Member
Topic starter
 

Não funcionou!!!!

Se possivel, gostaria que me explicasse como foi a linha de raciocínio feita desse codigo.

Abraços.

 
Postado : 03/11/2014 10:18 pm
(@rlm)
Posts: 0
New Member
 

Aproveitando o excelente raciocínio do colega Wagner Morel,
altere assim:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Val(TextBox1.Text) Mod 60 = 0 Then
        TextBox2.Text = Int(Val(TextBox1.Text) / 60)
    Else
        TextBox2.Text = Int(Val(TextBox1.Text) / 60) + 1
    End If
End Sub

Se a divisão por 60 tiver resto Zero (função Mod retorna o resto da divisão), então o numero e a divisão.
Se houver um resto, adicione 1 a divisão

 
Postado : 04/11/2014 6:57 am
(@afbergman)
Posts: 0
New Member
Topic starter
 

Funcionou pessoal!!!

Muito obrigado.

 
Postado : 04/11/2014 9:00 am