Conjungo

now = new Date(); var toD = now.getDate(); var toM = now.getMonth(); var soM=""; var CALdays=new Array('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); var CALmonths=new Array('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); var CALfmonths=new Array('January','February','March','April','May','June','July','August','September','October','November','December'); var CALmaster=new Array( new Array(1,8,22, 1,28,-1), new Array(1,8,29, 1,-1,-1), new Array(2,9,23, 2,29, 5), new Array(2,9,30, 2,-1, 5), new Array(0,2,23, 2,29,-1), new Array(30,2,23, 2,-1,-1), new Array(3,10,24, 3,30, 4), new Array(3,10,31, 3,-1, 4), new Array(0,3,24, 3,30,-1), new Array(31,3,24, 3,-1,-1), new Array(4,11,25, 4,-1, 3), new Array(0,4,25, 4,-1,-1), new Array(5,12,26, 5,-1, 2), new Array(0,5,26, 5,-1,-1), new Array(6,13,27, 6,-1, 1), new Array(0,6,27, 6,-1,-1), new Array(7,14,28, 7,-1, 0), new Array(0,7,28, 7,-1,-1) ); var CALbuff=''; function CALwriteln(txt) { CALbuff += txt + '\n'; } function CALwrite(txt) { CALbuff += txt; } function CALflush(doc) { doc.write(CALbuff); CALbuff = ''; } function CALgenMo(doc, start, end) { for (i=start; i' + (i+1) + ''); if (i'); if (CALmaster[i][0] != 0) { if(toD == CALmaster[i][0]){ CALwrite('' + CALmaster[i][0] + '
'); } else { CALwrite('' + CALmaster[i][0] + '
'); } } else { CALwriteln('
'); } for (j=CALmaster[i][1]; j<=CALmaster[i][2]; j+=7){ if(toD == j ){ CALwriteln('' + j + '
'); } else{ CALwriteln('' + j + '
'); } } CALwriteln(''); } } var CALwin=null; function CALgo (callback,posx,posy,sy,ey,yr,mo) { width=30; base=20; now=new Date(); if (!sy) sy=now.getYear(); if (!ey) ey=now.getYear(); if (yr) thisYear=yr; else thisYear=(now.getYear()); if (thisYear<999) thisYear+=1900; if (mo) thisMonth=mo-1; else thisMonth=(now.getMonth()); if (thisMonth>11) thisMonth=11; if (CALwin!=null && !CALwin.closed) CALwin.close(); CALwin=window.open("", "Calendar","menubar=no,toolbar=no,directories=no,width=240,height=150,left="+posx+",top="+posy); CALwin.focus(); doc=CALwin.document; doc.clear(); doc.open(); doc.writeln('Conjungo'); doc.writeln('<' + 'script language=javascript>'); doc.writeln('var width=' + width + '; var base=' + base + '; var curr=new Array("","","","","","","");' + mstr); doc.writeln('var mdays=new Array(31,28,31,30,31,30,31,31,30,31,30,31);'); if (navigator.appName == "Netscape") { if (!document.layers) { doc.writeln('function vis(l,v) {document.getElementById(l).style.visibility=v;}'); doc.writeln('function xloc(l,x) {document.getElementById(l).style.left=x;}'); } else { doc.writeln('function vis(l,v) {document.layers[l].visibility=v;}'); doc.writeln('function xloc(l,x) {document.layers[l].left=x;}'); } } else { doc.writeln('function vis(l,v) {document.all[l].style.visibility=v;}'); doc.writeln('function xloc(l,x) {document.all[l].style.left=x;}'); } doc.writeln('function getDays(y,m) {ret=mdays[m];if(m==1&&y%4==0) return 29;return ret;}'); doc.writeln('function done(d){f=document.forms[0];y=f.year.options[f.year.selectedIndex].text;m=f.month.selectedIndex+1;window.opener.' + callback + '(y,m,d);window.close();}'); doc.writeln('function yearChange(delta) {f=document.forms[0];optl=f.year.options.length;seli=f.year.selectedIndex;newi=seli+delta;if (newi>0 && newi=150) f.year.selectedIndex = 150; \ if(f.month.selectedIndex >= 11) {f.month.selectedIndex = 0; f.year.selectedIndex = f.year.selectedIndex + 1; } \ else { f.month.selectedIndex = f.month.selectedIndex + 1; } \ } \ r(); \ }'); doc.writeln('function r() { \ f=document.forms[0];y=f.year.options[f.year.selectedIndex].text;m=f.month.selectedIndex; \ dt=new Date(y,m,1);start=dt.getDay();nodays=getDays(y,m); \ clear(); \ for (i=0,d=1;d<=7;d++) { \ pos=(d+start-1)%7; \ for (;i'); CALwriteln('

'); CALwriteln(''); CALwriteln(''); sely=-1; selm=-1; selyl=''; //CALwriteln('

$\"Clear$

'); CALwrite('

Previous Year

'); CALwriteln('

Next Year

'); CALwriteln(' '); CALwriteln(''); CALwriteln('

' + CALdays[0] + '

'); for (i=1; i<7; i++) CALwriteln('

' + CALdays[i] + '

'); CALgen(doc); CALwriteln(''); CALwriteln(''); CALflush(doc); doc.close(); } var CALentry=null; var CALformatstr=''; var compareToDayDate; var compareMonth; var compareYear; var yFormat; function CALparse(string, format) { delims=new Array('/','-',' '); for (i=0;i 0) break; } if (i==delims.length) return null; ftoks=format.split(delims[i]); stoks=string.split(delims[i]); for (i=0; i1 && stoks[i].charAt(0)=='0') stoks[i]=stoks[i].substring(1,stoks[i].length); } y=-1; m=-1; d=1; for (i=0; i=1 || m<=12) m -= 1; else m=-1; } else if (ftoks[i].charAt(0).toLowerCase()=='y' && i31) d=-1; } } if (d==-1 || m==-1 || y==-1) return null; return (new Date(y,m,d)); } function CALformat(y,m,d,format) { ret=''; if (m<1 || m>12) return ret; delims=new Array('/','-',' '); for (i=0;i 0) break; } if (i==delims.length) { ftoks=new Array(format); delim=' '; } else { delim=delims[i]; ftoks=format.split(delim); } for (i=0;i600) sx = 650; else sx=sx+50; if (event) sy=event.screenY; if (sy==0) sy=100; else sy += 5; if (sy>150) sy=sy-180; if (dt==null) CALgo('CALcallback',sx,sy,yfrom,yto); else CALgo('CALcallback',sx,sy,yfrom,yto,dt.getYear(),dt.getMonth()+1); } function CALcallback (y,m,d) { d = (d < 10) ? '0' + d : d; m = (m < 10) ? '0' + m : m; if (CALentry) { CALentry.value=CALformat(y,m,d,CALformatstr); CALentry.focus(); } }