Inserir ZEROS à esquerda de um número

[janio]

Olá a todos,

Como colocar ZEROS à esquerda de um número?
Exemplo: em vez de exibir "5", exibir "00005"

Um abraço,

Janio

[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

[dbsh]

Utilize a funcao StrZero(Numero, nCaracter)

[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.

[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é +

[janio]

Valeu!

Obrigado a todos.



Janio

[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