Select Code to Download

# Pad the number with a bunch of zeros
$strValue =~ s/^(\d*)\.?(\d*)$/${1}.${2}000000000/;
...
} else {
  $strValue =~ s/^(\d*\.\d{$strPrecision})\d*$/$1/;
}

function ConvertNumberToCurrency (strValue, strPrecision) {
  /* 
...
  return (strValue);
}