function isNumberString (InString) {
	var virgula=0;
	var RefString="1234567890";
	for (Count=0; Count < InString.length; Count++) {
		TempChar= InString.substring (Count, Count+1);
		if (TempChar == ",")
			virgula = virgula + 1;
		else
		{
		if (RefString.indexOf (TempChar, 0)==-1 ||
               TempChar==" ")
			return (false);
		}
	}
		if (virgula > 1)
			return (false);
//		if (InString.length == 0 || InString == ",")
//			return (false);

	return (true);
}
function Valida(formulario){
	Testdez88 = isNumberString (formulario.dez88.value);
	Testabr90 = isNumberString (formulario.abr90.value);
	if (Testdez88 == 0 || Testabr90 == 0)
{
	alert ("Valores devem ter apenas dígitos numéricos e uma vírgula");
	return (false);
}
	else
		Calcula(formulario);
}
function formatDollar (Val, DollarSign)  {
	Val=""+Val;
	if (Val.indexOf (".", 0)!=-1) {
		Dollars = Val.substring(0, Val.indexOf (".", 0));
		Cents = Val.substring(Val.indexOf (".", 0)+1, Val.indexOf (".", 0)+3);
		if (Cents.length==0)
			Cents="00";
		if (Cents.length==1)
			Cents=Cents+"0";
	} else {
		Dollars = Val;
		Cents = "00";
	}
	OutString="";
	len=Dollars.length;
	if (len>=3) {
		while (len>0) {
			TempString=Dollars.substring(len-3, len)
			if (TempString.length==3) {
				OutString="."+TempString+OutString
				len=len-3;
			} else {
				OutString=TempString+OutString
				len=0
			}
		}
		if (OutString.substring(0, 1)==".")
			Dollars=OutString.substring (1, OutString.length)
		else
			Dollars=OutString
	}
	if (DollarSign)
		return ("$"+Dollars+","+Cents);
	else
		return (Dollars+","+Cents);
}

function padTextPrefix (InString, PadChar, DefLength)  {
	if (InString.length>=DefLength)
		return (InString);
	OutString=InString
	for (Count=InString.length; Count<DefLength; Count++)  {
		OutString=PadChar+OutString;
	}
	return (OutString);
}

function Calcula(formulario) {

if (formulario.dez88.value.length == 0 || formulario.dez88.value == ",")
	dez88_str = "0";
else
{
if (formulario.dez88.value.indexOf(",") == -1)
	dez88_str = formulario.dez88.value;
else
	{
	dez88_str = formulario.dez88.value.substring (0, 	formulario.dez88.value.indexOf(",")) + "." + 	formulario.dez88.value.substring (formulario.dez88.value.indexOf(",")+1, 	formulario.dez88.value.length);
	}
}
formulario.dez88.value = padTextPrefix(formatDollar(dez88_str, false), " ", 15);
dez88 = parseFloat(dez88_str);

if (formulario.abr90.value.length == 0 || formulario.abr90.value == ",")
	abr90_str = "0";
else
{
if (formulario.abr90.value.indexOf(",") == -1)
	abr90_str = formulario.abr90.value;
else
	{
	abr90_str = formulario.abr90.value.substring (0, 	formulario.abr90.value.indexOf(",")) + "." + 	formulario.abr90.value.substring (formulario.abr90.value.indexOf(",")+1, 	formulario.abr90.value.length);
	}
	}
formulario.abr90.value = padTextPrefix(formatDollar(abr90_str, false), " ", 15);
abr90 = parseFloat(abr90_str);

if (formulario.opcao[0].checked)
	{
	A = dez88 *  0.0019711478;  
	B = abr90 *  0.0307535147; 
	}
	else
	{
	A = dez88 *  0.0036863625;
	B = abr90 *  0.0553142910; 
	}

resultado = A + B;
resultado = formatDollar(""+resultado, false);
formulario.resultado.value = padTextPrefix(resultado, " ", 15);
} //fim Calcula