USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Localizar somente números em um TextBox
João Paulo
ARCOS
MG - BRASIL
Postada em 14/06/2007 15:59 hs            
Tenho um txtQuantidade = "2 Milh"
TEnho um txtValorUnitario = "500"
 
Quando mando Multiplicar:
 
txtResultado.text = txtQuantidade  * txtValorUnitario
 
Ele não calcula, so calcula quando eu deixo somente o número no campo Quantidade.
 
Alguém sabe como resolver isso?
     
JSFF
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 14/06/2007 16:01 hs            
João Paulo,
 
Use a função Val() para esse caso.
 
 
JSFF
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 14/06/2007 17:18 hs            
Só para reforçar: use Val desde que os números sempre venham antes de caracteres não-numéricos.
 
at+
   
JOM
BOM JESUS DA LAPA
BA - BRASIL
ENUNCIADA !
Postada em 14/06/2007 18:26 hs            

Teste o seguinte: Indique as variáveis( vquantidade e vvalorunit como currency), depois indique onde as variáveis se encontram (vquantidade em txtquantidade)(vvalorunit em txtvalorunitario), depois indique que na textbox txtresultado deve ser a multiplicação das variáveis, copie o código abaixo: 

 

Private Sub Command1_Click()
Dim vquantidade As Currency
Dim vvalorunit As Currency

vquantidade = CCur(Txtquantidade.Text)
vvalorunit = CCur(txtvalorunitario)

txtresultado.Text = vquantidade * vvalorunit

End Sub

   
João Paulo
não registrado
ENUNCIADA !
Postada em 14/06/2007 19:20 hs   
ok galera vou tentar essa dicas em casa hoje a noite.
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 15/06/2007 00:12 hs         
dim arrText
 
arrText=split(txtvalor)
for i=0 to ubound(arrText)-1
     if isnumeric arrText(i) then
         txtResultado.text = txtQuantidade  * txtValorUnitario
         exit for
next i
 
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página