Descrição:
A partir de um numérico esta função retorna uma string formatada, inserindo zeros à esquerda e/ou o símbolo decimal (“.”) em suas casas, de acordo com as informações do parâmetro.
Sintaxe:
StrZero( < nValor >, < nTamanho >, [ nDecimal ] )
Parâmetros
| Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
| nValor | numérico | Indica o valor numérico que será convertido para string. | X | |
| nTamanho | numérico | Indica o tamanho da string será gerada. | X | |
| nDecimal | numérico | Indica o número de casas após o símbolo decimal. |
Retorno
| cRet | caractere | Retorna uma string a partir do valor numérico e do tamanho informado no parâmetro. |
Exemplo
#Include "protheus.ch"
#Include "totvs.ch"
#Include "topconn.ch"
/*---------------------------------------------------------
Funcao : T_STRZERO | Autor: @andredoprotheus
-----------------------------------------------------------
Objetivo: STRZERO -- retorna uma string formatada, inserindo zeros à esquerda
---------------------------------------------------------*/
User Function T_STRZERO()
Local nNum := 0
For nNum := 1 To 10
MsgInfo("Passos percorridos: " + StrZero(nNum , 4))
Next nNum
Return()
Referencia
