Página 1 de 1
Inserir ZEROS à esquerda de um número
Enviado: 20 Ago 2004 07:52
por janio
Olá a todos,
Como colocar ZEROS à esquerda de um número?
Exemplo: em vez de exibir "5", exibir "00005"
Um abraço,
Janio
Enviado: 20 Ago 2004 08:04
por rcalado
Olá,
Você pode usar a função, StrZero()
Ex:
var := 5
? StrZero(var,5)
obs: no caso o campo que vai receber a função, tem que ser caracter.
Até +
Roberto
Enviado: 20 Ago 2004 08:05
por dbsh
Utilize a funcao StrZero(Numero, nCaracter)
Enviado: 20 Ago 2004 09:48
por MARINI
Outra sugestão seria assim
var:=5
var:=PADL(var,tamanho,"0")
http://www.clipx.net/ng/53guide/ng8c0ed.php
A função STRZERO() era usada acho que no CLIPPER SUMMER
e foi abolida nas posteriores, mas ainda é mantida para
efeito de compatibilidade. Tanto que não consta mais nos
manuais ou no NG.
Enviado: 20 Ago 2004 11:09
por mvbrandao
Ola,
TESTE
Código: Selecionar todos
LOCAL nCodItem:=0
@ 02, 02 SAY "CODIGO ITEM :" GET nCodItem PICTURE "99999" ;
VALID EVAL( { || nCodItem:= STRZERO(nCodItem), 5), .T. } )
Read
Até +
Enviado: 20 Ago 2004 11:30
por janio
Valeu!
Obrigado a todos.
Janio
Enviado: 20 Ago 2004 12:05
por mvbrandao
Ola pessoal
Corrigindo meu codigo, fechei o parentese da funcão errado:
abaixo esta certo e testado.
Código: Selecionar todos
LOCAL nCodItem:=0
@ 02, 02 SAY "CODIGO ITEM :" GET nCodItem PICTURE "99999" ;
VALID EVAL( { || nCodItem:= STRZERO(nCodItem, 5), .T. } )
Read