VERIFICAR NUMEROS

 Tópico anterior Próximo tópico Novo tópico

VERIFICAR NUMEROS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#497061 - 26/05/2021 17:26:43

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


   Olá a todos,
Para quem puder me ajudar!

    Tenho um Text1 com o Valor 1.500,00, e tenho outra text2 com o valor 2.500,00 e text3 com o valor de 2.000,00
      
     quero criar um botão que percorra entre os valores da text1 e text2 e se a text3 estiver dentro destes valor me retorne msgbox'Você acertou o valor na média'
    
      como faria? alguém pode me ajudar?

Atenciosamente,





#497062 - 26/05/2021 21:43:29

MARCELOKROL
REBOUCAS
Cadast. em:Julho/2004


creio que seria algo assim:

  'se o text2 for maior que o text1
If (CDbl(Text2.Text) > CDbl(Text1.Text)) Then
      If (CDbl(Text3.Text) > CDbl(Text1.Text)) And (CDbl(Text3.Text) < CDbl(Text2.Text)) Then
         MsgBox 'Você acertou o valor na média'
      End If
   End If
  
'caso text1 seja maior que o text2
   If (CDbl(Text2.Text) < CDbl(Text1.Text)) Then
      If (CDbl(Text3.Text) < CDbl(Text1.Text)) And (CDbl(Text3.Text) > CDbl(Text2.Text)) Then
         MsgBox 'Você acertou o valor na média'
      End If
   End If


talvez dê pra melhorar esse código mas foi mais ou menos assim que pensei.
Obs. estou sem o vb pra testar



#497066 - 27/05/2021 15:31:15

NOWLIGHTS
SUMARE
Cadast. em:Abril/2011


          private static bool VerificaIntervalo(int numero) => numero >= 1500 && numero <= 2500;

// para usar

bool result = VerificarIntervalo(2000)


__________________________________
- Everyone has a chance


Resposta escolhida #497071 - 27/05/2021 16:55:00

JOSE
CONGONHAS
Cadast. em:Dezembro/2003


MARCELOKROL, postou o código e tem um pequeno problema com < e >, corrigi abaixo:

Private Sub Command1_Click()
  'se o text2 for maior que o text1
If (CDbl(Text2.Text) > CDbl(Text1.Text)) Then
      If (CDbl(Text3.Text) > CDbl(Text1.Text)) And (CDbl(Text3.Text) > CDbl(Text2.Text)) Then
         MsgBox 'Você acertou o valor na média''
      End If
   End If
  
'caso text1 seja maior que o text2
   If (CDbl(Text2.Text) < CDbl(Text1.Text)) Then
      If (CDbl(Text3.Text) > CDbl(Text1.Text)) And (CDbl(Text3.Text) > CDbl(Text2.Text)) Then
         MsgBox ''Você acertou o valor na média''
      End If
   End If
End Sub



#497085 - 28/05/2021 14:14:44

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Muito Obrigado a todos!
Citação:
:
MARCELOKROL, postou o código e tem um pequeno problema com < e >, corrigi abaixo:

Private Sub Command1_Click()
  'se o text2 for maior que o text1
If (CDbl(Text2.Text) > CDbl(Text1.Text)) Then
      If (CDbl(Text3.Text) > CDbl(Text1.Text)) And (CDbl(Text3.Text) > CDbl(Text2.Text)) Then
         MsgBox 'Você acertou o valor na média''
      End If
   End If
  
'caso text1 seja maior que o text2
   If (CDbl(Text2.Text) < CDbl(Text1.Text)) Then
      If (CDbl(Text3.Text) > CDbl(Text1.Text)) And (CDbl(Text3.Text) > CDbl(Text2.Text)) Then
         MsgBox ''Você acertou o valor na média''
      End If
   End If
End Sub


Funcionou muito certo!

Atenciosamente,





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LUCS em 28/05/2021 14:15:01