Jump to content


Photo

Função Para Formatar Moeda.


  • Faça o login para participar
1 reply to this topic

#1 asp.net

asp.net

    Novato no fórum

  • Usuários
  • 13 posts
  • Sexo:Não informado

Posted 04/05/2004, 11:00

Galera eu tenho este script ai de baixo.

Function formata(valor)
Dim numero, tamanho, centavos, inteiro, virgula, texto
numero = ccur((valor))
texto = 0
tamanho = Len(numero)

if tamanho = 1 or tamanho = 2 then
inteiro = numero
centavos="00"
elseIf tamanho = 3 then
inteiro = left(numero,1)
centavos = Right(numero,2)
else
inteiro = left(numero,2)
centavos = Right(numero,2)
end if
formata = inteiro&","&centavos
end function

que tem a função de formatar um valor que vem do banco de dados para Tipo Moeda, até ai tudo bem. Mas o que acontece é que no decorrer de um outro script eu tenho que fazer uma soma de valores, e quando tento fazer isto não estou recebendo o resultado certo ele me retorna valores errados tipo Somando 12,00 + 16,00 ele me retorna 1216. Lembrando que os valores veem do banco no seguinte formato. 1200 e 1600. O que fazer?

#2 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 04/05/2004, 11:42

Faz a soma antes de formatar. Qualquer função de formatação de numero o transforma em string.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq