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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Formato de Numeros
Valmir
não registrado
Postada em 20/01/2005 08:11 hs   
Galera.. Eu não posso colocar o valor do campo em uma variavel, pois o numero é variavel portanto uma hora contem 0000000-2,40 / 00000000-0,30 / 00000-350,20
podem observar que o sinal negativo muda de posição constantemente e se eu colocar o valor na variavel vai funcionar somente para aquela posição, preciso de uma forma que pegue o tamanho do campo  tipo o comando Mid e depois a transforme em numeros reais sem os zeros a esquerda. o sistema que trabalho é o seguinte.
tipo. ValorPagar esta na posição 123 com tamanho de 16 então.
ValorPagar = Trim(mid(Variavel, 123 , 16))
ValorPagar = Format(ValorPagar),"#.##0,00" so q desta forma qdo é numero negativo ele da erro pq não consegue identificar o formato.
Ficarei grato pela compreensão..
     
Valmir
não registrado
Postada em 20/01/2005 08:12 hs   
Galera.. Eu não posso colocar o valor do campo em uma variavel, pois o numero é variavel portanto uma hora contem 0000000-2,40 / 00000000-0,30 / 00000-350,20
podem observar que o sinal negativo muda de posição constantemente e se eu colocar o valor na variavel vai funcionar somente para aquela posição, preciso de uma forma que pegue o tamanho do campo  tipo o comando Mid e depois a transforme em numeros reais sem os zeros a esquerda. o sistema que trabalho é o seguinte.
tipo. ValorPagar esta na posição 123 com tamanho de 16 então.
ValorPagar = Trim(mid(Variavel, 123 , 16))
ValorPagar = Format(ValorPagar),"#.##0,00" so q desta forma qdo é numero negativo ele da erro pq não consegue identificar o formato.
Ficarei grato pela compreensão..
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 20/01/2005 13:43 hs            
Valmir, acho q vc deve usar a dica do Tekki; a única coisa é q se o seu sistema reconhece a vírgula como separador decimal vc só retira esta linha:
 
sValor = Replace(sValor, ",", ".")
 
pois se o seu sistema reconhece vírgula como separador decimal não precisará repor vírgula por ponto...
 
t+
     
Página(s): 2/2     « ANTERIOR  


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