UDF para que substitui o LSCurrencyFormat

Para quem estava ficando louco com o bug do JVM que mostra R$ 677,9 ao invés de R$ 677,90 segue abaixo uma UDF criada pelo Fernando Segalla que soluciona esse pepino.

<cfscript>
/**
* Works like the built-in function lsCurrencyFormat, but do it right for Brazilian Currency (R$ – Real).
*
* @param value Number to format. (Required)
* @return Returns a string.
* @author Fernando Segalla ([email protected])
* @version 1, September 17, 2002
*/
function BRCurrencyFormat(valor) {
valor = DecimalFormat(valor);
valor = Replace(valor,’,’,’.’,’ALL’);
valor = Reverse(Replace(Reverse(valor),’.’,’,’,’ONE’));
if(valor LT 0) {
return (“(R$” & Right(valor,Len(valor)-1) & “)”);
} else {
return (“R$” & valor);
}
}
</cfscript>

Valeu Fernando!