quinta-feira, 17 de janeiro de 2002

Converter valor em Moeda com 2 casas decimais

O codigo abaixo converte um valor numerico em formato de moeda, separado por ponto
Ex.:
00,000 -> 00.00
0000 -> 0000.00
0,0 -> 0.00


<%
function convet(x)
dim pos, str, valor, decimal
pos = 0
str = ""
valor = ""
decimal = ""


 for n = 1 to len(x)
  str = mid(x, n, 1)
  if str = "," or str = "." then
   pos = n
   if n = 1 then
    valor = "0"
    decimal = mid(x, n + 1, len(x))
   else
    valor = mid(x, 1, n - 1)
    decimal = mid(x, n + 1, len(x))
   end if
  end if
 next


 if pos = 0 then
  valor = x
 end if


 valor = valor & "." & left(decimal & "00",2)
 response.write valor


end function


%>



Esta matéria foi postada originalmente no ASP4Developers por Danilo Freitas (site), que na época era "Desenvolvo páginas há dois anos, programador ASP (ha pouco tempo) e fanático em tecnologia de banco de dados". Hoje, vai saber...

1 comentários:

Anônimo disse...

[Enviado originalmente em 07/mai/2002 15:11:36]:

Pra que isso se a ASP.DLL tem esta função (FormatNumber) ???
Isso só consome máquina e ainda por cima, a função é redundante em dois pontos.