<!-- Begin
r=0
g=0
b=0

function pset(x,y,wi,he,i)
{
  document.write("<img src='images/1x1.gif' id='"+i+"' style=' position:absolute; left:"+x+";top:"+y+";width:"+wi+";height:"+he+";z-index:5;background:rgb("+r+","+g+","+b+")'>") 
}
function repset(y,i)
{
document.all[i].style.top=y
}


function raschet(){
err="Enter: "
if (m1.value==0){err=err+"month 1; "}
if (d1.value==0){err=err+"day 1; "}
if (y1.value==0){err=err+"year 1; "}
if (m2.value==0){err=err+"month 2; "}
if (d2.value==0){err=err+"day 2; "}
if (y2.value==0){err=err+"year 2; "}
if (y1.value>y2.value || y1.value==y2.value && m1.selectedIndex>m2.selectedIndex || y1.value==y2.value && m1.value==m2.value && d1.selectedIndex>d2.selectedIndex){err="Error: date of birth > report date  "}
if (err=="Enter: "){raschet2()}
else {alert (err.substring(0,(err.length*1-2))+".")}
}
function raschet2(){
if (u!=0){clearInterval(times)}
mon()
deys()
emo()
report()
}
f=0
week=""

function raschet3(m,d,y){
f=365*y+d*1+31*(m*1-1)
if (m>2){
f=f-Math.floor(0.4*m+2.3)+Math.floor(y/4)
f=f-Math.floor(3/4*(Math.floor(y/100)+1))
}
else{
f=f+Math.floor((y-1)/4)-Math.floor(3*(Math.floor((y-1)/100+1))/4)
}
w=f-(Math.floor(f/7)*7)
if (w==1){week="Sunday"}
if (w==2){week="Monday"}
if (w==3){week="Tuesday"}
if (w==4){week="Wednesday"}
if (w==5){week="Thursday"}
if (w==6){week="Friday"}
if (w==0){week="Saturday"}
}


dm=0
function mon(){
m=m2.value
if (m==1){mo="January"; dm=31}
if (m==2){mo="February"; dm=28; if (y==(Math.floor(y/4)*4)){dm=29}}
if (m==3){mo="March"; dm=31}
if (m==4){mo="April"; dm=30}
if (m==5){mo="May"; dm=31}
if (m==6){mo="June"; dm=30}
if (m==7){mo="July"; dm=31}
if (m==8){mo="August"; dm=31}
if (m==9){mo="September"; dm=30}
if (m==10){mo="October"; dm=31}
if (m==11){mo="November"; dm=30}
if (m==12){mo="December"; dm=31}
T3.value=mo+"  "+y2.value
}
function deys()
{
raschet3(m1.value,d1.value,y1.value)
f1=f
T1.value=week
T1.style.visibility="visible"

raschet3(m2.value,d2.value,y2.value)
T2.value=week
T2.style.visibility="visible"
days=f*1-f1*1

T4.value=days+"  days"

for (i=29; i<=31; i++){document.all["day"+i].style.visibility="visible"}
for (i=dm+1; i<=31; i++){document.all["day"+i].style.visibility="hidden"}
document.all["chkala"].style.left=(document.all["day"+d2.value].style.left)
document.all["chkala"].style.visibility="visible"
document.all["chkala2"].style.left=(document.all["day"+d2.value].style.left)
document.all["chkala2"].style.visibility="visible"

}
dm=31
days1=0
function emo(){
raschet3(m1.value,d1.value,y1.value)
f1=f

raschet3(m2.value,1,y2.value)
days1=f-f1
u=0

times=window.setInterval(("ras()"),2)

for (x=20*dm-2; x<31*20-2; x=x+2){
repset(229,"rb"+x)
repset(229,"re"+x)
repset(229,"b"+x)
repset(229,"g"+x)
}
}

u=0

function ras()
{
x=u;u=u+2
if (x>20*dm-6){clearInterval(times);u=0}
if(days1+x/20<0){k=0}else{k=1}
y=Math.sin(2*3.14159/28*(days1+x/20)*k)
g=255
repset(-y*99+229,"g"+x)

y=Math.sin(2*3.14159/33*(days1+x/20)*k)
b=255
g=0
repset(-y*99+229,"b"+x)

y=Math.sin(2*3.14159/23*(days1+x/20)*k)
r=255
b=0
repset(-y*99+229,"re"+x)

y=Math.sin(2*3.14159/38*(days1+x/20)*k)
b=255
repset(-y*99+229,"rb"+x)
}

function report()
{
raschet3(m1.value,d1.value,y1.value)
f1=f

raschet3(m2.value,d2.value,y2.value)
days=f-f1

y=Math.sin(2*3.14159/38*(days+0.5))
r4.value=Math.floor(y*100)+"%"

y=Math.sin(2*3.14159/23*(days+0.5))
r1.value=Math.floor(y*100)+"%"

y=Math.sin(2*3.14159/33*(days+0.5))
r3.value=Math.floor(y*100)+"%"

y=Math.sin(2*3.14159/28*(days+0.5))
r2.value=Math.floor(y*100)+"%"
}

function newday(day)
{
d2.selectedIndex=day
report()
deys()
}

function min()
{
if(m2.selectedIndex>1){m2.selectedIndex=m2.selectedIndex-1}
else{m2.selectedIndex=12
if (y2.selectedIndex<(y2.length-1)){y2.selectedIndex=y2.selectedIndex+1}
else {alert("Year = 1900. Stop.");m2.selectedIndex=1}
}
raschet()
}

function max()
{
if(m2.selectedIndex<12){m2.selectedIndex=m2.selectedIndex+1}
else{m2.selectedIndex=1;y2.selectedIndex=y2.selectedIndex-1}
raschet()
} 
function start()
{
for (i=0; i<=31*20-2;i=i+2)
{
r=255;b=0;g=0
pset((i+50),229,3,3,"re"+i)
b=255
pset((i+50),229,3,3,"rb"+i)
r=0
pset((i+50),229,3,3,"b"+i)
b=0;g=255
pset((i+50),229,3,3,"g"+i)
}
T3.value=""
T4.value=""
}

// End -->
