StrZero

Ir para o final dos metadados

• 

Ir para o início dos metadados

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

Nome	Tipo	Descrição
cRet	caractere	Retorna uma string a partir do valor numérico e do tamanho informado no parâmetro.

Observações


Observe que <nTamanho> indica o número de caracteres que serão utilizados para representar o valor passado através de <nValor>.


Sempre que o número de caracteres passados em <nTamanho> não for suficiente para representar <nValor> juntamente de seu símbolo e casas decimais, a função retornará um conjunto de caracteres ("*") com o <nTamanho> definido.

Exemplos

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

#DEFINE CRLF Chr(13)+Chr(10) User Function Exemplo()   Local cMensagem := ""   //+----------------------------------------------------------------------------+   //|Exemplifica o uso da função StrZero                                         |   //+----------------------------------------------------------------------------+   cMensagem += "StrZero(98765432.1, 1, 8) = "  + StrZero(98765432.1, 1, 8)  + CRLF   cMensagem += "StrZero(9876543.21)       = "  + StrZero(9876543.21)        + CRLF   cMensagem += "StrZero(987654.321, 3, 6) = "  + StrZero(987654.321, 3, 6)  + CRLF   cMensagem += "StrZero(98765.4321) = "        + StrZero(98765.4321)        + CRLF   cMensagem += "StrZero(9876.54321, 5, 4) = "  + StrZero(9876.54321, 5, 4)  + CRLF   cMensagem += "StrZero(987.654321, 6 ,3) = "  + StrZero(987.654321, 6, 3)  + CRLF   cMensagem += "StrZero(98.7654321, 7, 2) = "  + StrZero(98.7654321, 7, 2)  + CRLF   cMensagem += "StrZero(9.87654321, 8, 1) = "  + StrZero(9.87654321, 8, 1)  + CRLF   cMensagem += "StrZero(0) = "                 + StrZero(0)                 + CRLF   cMensagem += "StrZero(-9.87654321, 5, 2) = " + StrZero(-9.87654321, 5, 2) + CRLF   cMensagem += "StrZero(-98.7654321, 4, 1) = " + StrZero(-98.7654321, 4, 1) + CRLF   cMensagem += "StrZero(-987.654321) = "       + StrZero(-987.654321)       + CRLF   cMensagem += "StrZero(-9876.54321, 2, 6) = " + StrZero(-9876.54321, 2, 6) + CRLF   cMensagem += "StrZero(-98765.4321, 1, 5) = " + StrZero(-98765.4321, 1, 5) + CRLF   cMensagem += "StrZero(-987654.321, 0, 0) = " + StrZero(-987654.321, 0, 0) + CRLF   cMensagem += "StrZero(-9876543.21, 5, 1) = " + StrZero(-9876543.21, 5, 1) + CRLF   cMensagem += "StrZero(-98765432.1, 4, 2) = " + StrZero(-98765432.1, 4, 2) + CRLF   //+----------------------------------------------------------------------------+   //|Apresenta uma mensagem com os resultados obtidos                            |   //+----------------------------------------------------------------------------+ Return MsgInfo(cMensagem, "Exemplo do StrZero")

Preview