Formata Valor (Money)

Formata para que aparecen sempre com dois digitos apos a virgula

function fmoeda(d)
 
 if( (Len(d) <=0) ) then
  fmoeda = "0,00"
 else
  if(instr(d,",")) then
   d = d & 00
   dezena   = Left(d, instr(d,",") - 1)
   centavos = Mid(d, instr(d,","), 3)
   fmoeda = dezena & centavos
  else
   fmoeda = d & ",00"
  End If
 End If

End Function

 

Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...