Zork
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 05/09/2006 09:56 hs
Bom Dia amigos Precisei de uma ajuda para formatar uma data no MSHFlex e obtive ajuda e agradeço ao Forum... Agora to com o mesmo problema mas é com valor financeiro. Ja tentei o CCur, o CDBl o format(...,"currency") e o valor no Grid aparece assim ex.. Coloquei 1440,50 o certo 1.440,50 mas aparece no grid assim 14.405,00 Algum amigo do forum sabe onde esta o erro ?? |
|
|
|
|
|
|
|
Postada em 05/09/2006 09:59 hs
coloca 1440.50 no Format(x, "Currency") que vai funcionar... ou entao pra previnir isso faça: Format(CCur(x), "Currency") que vai funfar sempre... mas pra usar o CCur lembre-se de testar primeiro se x é numerico... If IsNumeric(x)... pq senao vai dar pau!!!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Zork
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 05/09/2006 10:08 hs
Elieser muito obrigado pela atenção olha meu codigo abaixo For i = 1 To MGrid1.Rows - 1
If IsNumeric(valor) = True Then
valor = MGrid1.TextMatrix(i, col2)
MGrid1.TextMatrix(i, col2) = Format(CCur(valor), "Currency") Antes fazia direto do TEXTMATRIX ai dava erro, agora pego o valor e ponho numa variavel mas mesmo assim ainda aparece no grid de forma errada |
|
|
|
|
|
Postada em 05/09/2006 10:15 hs
Sem a formatação qual o valor de X ? |
|
|
|
Zork
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 05/09/2006 10:18 hs
|
|
|
|
|
|
Postada em 05/09/2006 10:21 hs
tenta assim então: MGrid1.TextMatrix(i, col2) = Format(replace(CStr(valor),".",","), "Currency") |
|
|
|
