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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Zeros a esquerda
FKNMALTA
FRANCA
SP - BRASIL
ENUNCIADA !
Postada em 16/04/2008 21:29 hs         
COMO FAÇO PARA QUE UM CAMPO DA TABELA SAIA COM ZEROS A ESQUERDA, O FORMATO DO CAMPO TEM QUE SAIR ###########.##, EX:
se for 100,00 ->  00000000100.00
se for 1000,00 -> 00000001000.00
 
estou usando assim para gerar:
Print #1, rdcli!nota;rdcli!valor;""
 
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 17/04/2008 00:32 hs         
faça o tipo do field como texto de tamanho limitado depois na operaçao salvar faça rdcli!valor=format$(strvalor,"00000000000.00") onde strvalor é do tipo string
   
JOM
BOM JESUS DA LAPA
BA - BRASIL
ENUNCIADA !
Postada em 18/04/2008 21:36 hs            
+ ou - , digamos que queira que o campo tenha sempre o tamanho 14, como vc colocou no exemplo, então escolha o evento e adapte o seguinte:

Do Until Len(Text1.Text) = 14 'enquanto o campo não tiver 14 caracteres
Text1.Text = "0" + Text1.Text  'insira zeros a esquerda até ficar com 14 caracteres
Loop
   
FKNMALTA
FRANCA
SP - BRASIL
ENUNCIADA !
Postada em 21/04/2008 23:49 hs         
Blz valew Ama e Jom os dois jeitos deram certo!!!
   
Página(s): 1/1    

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