function FmtNum(n,dec_places,commas)
{
s = Math.round(n * Math.pow(10,dec_places)).toString();
if(s=='NaN') {
	p='0';
	}
else {
	p1 = s.substr(0,s.length-dec_places);
	if(commas==true)	p1c = AddCommas(p1);
	else				p1c = p1;
	p2 = s.substr(s.length-dec_places,dec_places);
	if(dec_places==0) p=p1c;
	else	p = p1c + '.' + p2;
	}
return(p);
}

function FmtNum2(n,dec_places)
{
var pos=0,t="",c=0,f1=0;
var p1="",p2="",n1="",e1="";
if(isNaN(n)) {
	t = "0";
	}
else {
	n1 = n.toString();
	pose = n1.indexOf("e");
	if(pose>-1) {
		e1 = n1.substr(pose,n1.length-pose);
		n1 = n1.substr(0,pose);
		}
	pos = n1.indexOf(".");
	if(pos>-1) {
		p1 = n1.substr(0,pos);
		//alert(p1 + "," + n1.length-pos-1);
		p2 = n1.substr(pos+1,n1.length-pos-1);
		//alert(p1 + "," + p2);
		if(p2.length > dec_places) {
			p2 = p2.substr(0,dec_places+1);
			if(parseInt(p2.substr(dec_places,1)) < 5) {
				p2 = p2.substr(0,dec_places);
				}
			else {
				f1 = parseFloat("1." + p2);				
				p2 = Math.round(f1 * Math.pow(10,dec_places)).toString();
				//p2 = Math.round(Math.pow(10,dec_places) + p2 * Math.pow(10,dec_places)).toString();
				p2 = p2.substr(p2.length-dec_places,dec_places);
				}			
			}
		t = "" + p1 + "." + p2 + e1;
		}
	else {
		t = "" + n + ".0" + e1;
		}
	}
return(t);
}

function FmtNum3(n,dec_places)
{
var temp;
var n1="",e1="",s="";
n1 = n.toString();
pose = n1.indexOf("e");
if(pose>-1) {
	e1 = n1.substr(pose,n1.length-pose);
	n = n1.substr(0,pose);
	}
temp=Math.round(n*Math.pow(10,dec_places))/Math.pow(10,dec_places);
s = temp.toString() + e1;	
return( s );
}

function GetNumRange(n,min,max,dec_places,def,commas)
{
if((n>=min) && (n<=max))  p=FmtNum(n,dec_places,commas);
else	p = def;
return(p);
}

function parseVal(s)
{
var ctr=0;
do {
	c = s.substr(0,1);
	if(c=='0')  s=s.substr(1,s.length-1);
	if(s.length<=1) break;
	ctr++;
	} while(ctr<50);
return(parseInt(s));
}
function f_elements(s,sep)
{
var ctr=1;
for(a=0;a<s.length;a++) {
	if(s.substr(a,1)==sep) ctr++;
	}
return(ctr);
}

function f_element(s,num,sep)
{
var pos1,pos2;
var sTemp='';
s+=sep;
pos1=-1;
for(a=0;a<num;a++) {
	pos1 = s.indexOf(sep,pos1+1);
	}
pos2 = s.indexOf(sep,pos1+1);
if(pos2>pos1)	
	sTemp = s.substr(pos1+1,pos2-pos1-1);
return(sTemp);
}

function f_pad_zeros(s,len)
{
while(s.length<len) {
	s = "0" + s;
	}
}


function f_fmt_date(s)
{
var dd;
dd = new Date();

ctr = f_elements(s,"/");
if(ctr==3) {
	m = f_element(s,0,"/");
	d = f_element(s,1,"/");
	y = f_element(s,2,"/");
	//alert(ctr + ':' + m + ',' + d + ',' + y);
	s = m + "/" + d + "/" + y;
	}
else if(ctr==2) {
	m = f_element(s,0,"/");
	d = f_element(s,1,"/");
	y = dd.getFullYear();
	//alert(ctr + ':' + m + ',' + d + ',' + y);
	s = m + "/" + d + "/" + y;
	}
else {
	s = "";
	}
if(!isNaN(m) && (m>=1) && (m<=12) && !isNaN(d) && (d>=1) && (d<=31) && !isNaN(y) ) {}
else s="";	
return(s);
}

function f_datediff_today(dd1)
{
var d;
d = new Date();
m1 = parseInt(f_element(dd1,0,"/"))-1;
d1 = parseInt(f_element(dd1,1,"/"));
y1 = parseInt(f_element(dd1,2,"/"));
dd_1 = new Date(y1,m1,d1);
diff = (dd_1 - d) / 86400000;
i = Math.ceil(diff);
return(i);
}

function f_datediff(dd1,dd2)
{
var y1,y2,d1,d2,m1,m2;
var dd_1,dd_2;
m1 = parseInt(f_element(dd1,0,"/"))-1;
d1 = parseInt(f_element(dd1,1,"/"));
y1 = parseInt(f_element(dd1,2,"/"));
m2 = parseInt(f_element(dd2,0,"/"))-1;
d2 = parseInt(f_element(dd2,1,"/"));
y2 = parseInt(f_element(dd2,2,"/"));
dd_1 = new Date(y1,m1,d1);
dd_2 = new Date(y2,m2,d2);
diff = (dd_2 - dd_1) / 86400000;
i = parseInt(diff);
//alert(m1 + ',' + d1 + ',' + y1);
//alert(m2 + ',' + d2 + ',' + y2);
//alert(dd1 + "," + dd2 + "," + i);
return(i);
}


function f_listbox_count(sName)
{
var ctr=0;
for(a=0;a<document.forms[0].elements[sName].options.length;a++) {
	if(document.forms[0].elements[sName].options[a].selected==true) 
		ctr++;
	}
return(ctr);
}

//document.forms[0].elements[sName]

function f_get_radio_value(obj)
{
var a=0;
if(isNaN(obj.length)) {
	return( obj.value );
	}
else {
	for(a=0;a<obj.length;a++) {
		if(obj[a].checked==true) 
			return( obj[a].value );
		}
	}
return("");
}


function f_is_radio_checked(sName)
{
for(a=0;a<document.forms[0].elements[sName].length;a++) {
	if(document.forms[0].elements[sName][a].checked==true) return(true);
	}
return(false);
}


function f_validate_email(sName)
{
sEmail = document.forms[0].elements[sName].value;
pos1 = sEmail.indexOf("@");
if(pos1>-1) {
	pos2 = sEmail.indexOf(".",pos1);
	if((pos2>-1) && (pos2<(sEmail.length-1))) {
		return(true);
		}
	}
return(false);
}


function f_show(c)
{
document.getElementById(c).style.visibility = "visible";
document.getElementById(c).style.display = "inline";
}

function f_hide(c)
{
document.getElementById(c).style.visibility = "hidden";
document.getElementById(c).style.display = "none";
}