24/03/2006, 15:08
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
Con esta:
Código:
Function FormatoMoneda(cantidad)
strSimbolo$ = "$"
if cdbl(cantidad) > 0 then
strCantidad = formatNumber(cantidad, 2)
FormatoMoneda = strSimbolo$ & strCantidad
end if
FormatoMoneda = ""
End Function
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |