domingo, 7 de setembro de 2003

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...

0 comentários: