Converter parte de uma string em valor

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Mensagem por alaminojunior »

Maligno, esta função não troca os pontos "." ?
Preciso criar aquele bendito arquivo para a receita, e um dos campos do DBF, que guarda os totais, está no formato "C" e os registros contém virgulas e pontos. As virgulas consegui tirar, os pontos não.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Mensagem por alaminojunior »

Desculpa a vergonha que passei. Troca os pontos sim. É que estava usando a função na variavel errada.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

Não se preocupe. Isso acontece comigo o tempo todo. :)
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
vcatafesta
Usuário Nível 1
Usuário Nível 1
Mensagens: 27
Registrado em: 21 Fev 2015 00:22
Localização: Pimenta Bueno/RO
Contato:

Converter parte de uma string em valor

Mensagem por vcatafesta »

Código: Selecionar todos

nOldValor  := 101.22
cValor       := Tran( nOldValor, "@E 999,999.99")
nNewValor := StrToVal( cValor )

Function StrToVal( nParam )
********************************
Return(StrTran( nParam, ",","."))
Harbour, C, C++, Ruby, Python, Go, Delphi, Haskell, Html, PHP, mingw, gtwvg, multithread, dbfcdx, letodb
=================================================
Senhor, sem Ti, nada podemos fazer!
Responder