Números e decimais

[Tales Ruan]

Pessoal, alguém conhece alguma forma eficiente de fazer isto?
Pesquisei os comandos transform() e não achei nada que pudesse servir..

Exibir um número em formato String, mas mostrando somente as casas decimais necessárias.

Por exemplo, se o número fosse 10, exibí-lo como "10"
se fosse 10.5000, exibí-lo como "10.5"
se fosse 10.2500, exibí-lo como "10.25"


Claro.. dá pra fazer uma função pra isso, com manipulação de strings e tudo mais, mas eu estava pensando se existe algo mais simples/elegante ou que o foxpro mesmo faça.
Ou que caiba em uma linha, pelo menos

Alguma idéia?

[alceu11]

STORE 12.5 TO gnPrice
? TRANSFORM(gnPrice, '9999.99') && Muestra $12.50

Resolveria?

[Tales Ruan]

Obrigado pela resposta Alceu!

Mas não é exatamente isto que estou procurando..

Seria algo que fizesse o processo contrário, exibindo o mínimo de casas decimais.

Entra: 12.50
Sai: 12.5 (String)

[Marcos Guedes]

Na época em que precisei fazer isto, tive que criar uma função.

Não sei se resolve em uma linha.

[alceu11]

se pegar assim a string
STRTRAN(RIGHT("12.50",5),"0","") && retorna 12,5
mas agora é com voce
é obvio que teria que tratar o numero com chrtran( para achar o ponto decimal, mais nao quis quebra a cabeca, e no right so pegaria 2 caracteres

[m@r<3|o]

isso tem como fazer em um commnado só mais deu branco !

nao lembro

[Tales Ruan]

Sem problema pessoal! Vou montar uma função aqui!

Mas se alguém se lembrar de um jeitinho simples, to curioso pra saber. Vlw!

[m@r<3|o]

lembrei era o int() .... mais no caso nao iria te retornar as outras duas casas
se fosse 10.250 iria retornar 10
mais acho que nao é seu caso

[Tales Ruan]

Pessoal, fiz uma funçãozinha que atendeu bem minha necessidade. Se alguém tiver interesse, aí está:

Código:

***************************************************
* NUM2STR
* Tales Ruan Software
* 14/05/2010
***************************************************
* -> Converte um número para uma string adequada
* Parâmetros:
* Número: Número que será convertido em string.
***************************************************

LPARAMETERS Numero

IF VARTYPE(Numero)<>"N" THEN
   RETURN "[ERRO]"
ENDIF

ninteiro=INT(Numero)
ndecimal=LTRIM(STR(Numero-nInteiro,10,6))
   
FOR n=LEN(nDecimal) TO 3 STEP -1
   IF SUBSTR(nDecimal,n,1)<>"0" Then
      EXIT
   ENDIF
NEXT
   
nDecimal=SUBSTR(nDecimal,3,n-2)
   
RETURN LTRIM(TRANSFORM(ninteiro,"999,999,999,999"))+IIF(!EMPTY(nDecimal),","+nDecimal,"")


[Marcos Guedes]

Desenrolado!
Obrigado por compartilhar, Tales!