/*
'Michael J. Williams
'mike@advantagetechnologies.us
'written : 7/31/2003
'for Spray Consultants Inc.
*/

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

function AddCommas(s)
{
var ctr=0,p2='';
for(a=s.length-1;a>=0;a--) {
	ctr++;
	if((ctr>3) && (s.substr(a,1)!='-')) {
		ctr=1;
		p2 = ',' + p2;
		}
	p2 = s.substr(a,1) + p2;
	}
return(p2);
}

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 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 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)
{
var t;
t = s.toString();
while(t.length<len) {
	t = "0" + t;
	}
return(t);
}


function f_fmt_date(s)
{
var dd,m,d,y;
dd = new Date();

ctr = f_elements(s,"/");
if(ctr==3) {
	m = GetNumRange(f_element(s,0,"/"),1,12,0,"",false);
	d = GetNumRange(f_element(s,1,"/"),1,31,0,"",false);
	y = GetNumRange(f_element(s,2,"/"),0,3000,0,"",false);
	if(y<50) y = 2000 + parseVal(y);
	//alert(ctr + ':' + m + ',' + d + ',' + y);
	s = f_pad_zeros(m,2) + "/" + f_pad_zeros(d,2) + "/" + f_pad_zeros(y,4);
	}
else if(ctr==2) {
	m = f_element(s,0,"/");
	d = f_element(s,1,"/");
	y = dd.getFullYear();
	//alert(ctr + ':' + m + ',' + d + ',' + y);
	s = f_pad_zeros(m,2) + "/" + f_pad_zeros(d,2) + "/" + f_pad_zeros(y,4);
	}
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 = parseVal(f_element(dd1,0,"/"))-1;
d1 = parseVal(f_element(dd1,1,"/"));
y1 = parseVal(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 = parseVal(f_element(dd1,0,"/"))-1;
d1 = parseVal(f_element(dd1,1,"/"));
y1 = parseVal(f_element(dd1,2,"/"));
m2 = parseVal(f_element(dd2,0,"/"))-1;
d2 = parseVal(f_element(dd2,1,"/"));
y2 = parseVal(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_get_radio_value(sName)
{
for(a=0;a<document.frmMain.elements[sName].length;a++) {
	if(document.frmMain.elements[sName][a].checked==true) 
		return( document.frmMain.elements[sName][a].value );
	}
return("");
}


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


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