Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
20 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

FAF

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Alterar uma palavra num arquivo de texto
Ontem à(s) 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6962 usuários registrados
O último usuário registrado atende pelo nome de teklainfo

Os nossos membros postaram um total de 17118 mensagens em 2576 assuntos

Números e decimais

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Números e decimais

Mensagem por Tales Ruan em 13/5/2010, 15:16

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 Smile

Alguma idéia? bounce

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por alceu11 em 13/5/2010, 15:38

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

Resolveria?

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por Tales Ruan em 13/5/2010, 15:45

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)

study

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por Marcos Guedes em 13/5/2010, 16:23

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

Não sei se resolve em uma linha.

Sad

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por alceu11 em 13/5/2010, 17:24

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

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por m@r<3|o em 13/5/2010, 19:16

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

nao lembro

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por Tales Ruan em 13/5/2010, 19:59

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

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

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por m@r<3|o em 13/5/2010, 20:18

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

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por Tales Ruan em 14/5/2010, 20:30

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,"")


Última edição por Tales Ruan em 14/5/2010, 22:33, editado 1 vez(es)

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por Marcos Guedes em 14/5/2010, 22:25

Desenrolado!
Obrigado por compartilhar, Tales!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Números e decimais

Mensagem por Conteúdo patrocinado Hoje à(s) 18:54


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum