ÿþvar rtime, rday, rmon, ryear, rdw, rntime;

var RPD = 0.01745329251994329577; /* radians per degree (pi/180) */

var TIMZ = 3.0;

var MINAGE = 13.5;

var SUNSET = 19.5; /*approximate */

var TIMDIF = (SUNSET-MINAGE) ;

var NMONTHS = (1405*12+1); 

h = {time: rtime, day: rday , mon: rmon , year: ryear , dw: rdw , nmtime: rntime }

dow = ["'D#-/", "'D'+FJF", "'D+D'+'!", "'D#1(9'!", "'D.EJ3", "'D,E9)", "'D3(*" ]

mname = ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" ]

hmname = [ "E-1E", "5A1", "1(J9 'D#HD", "1(J9 'D+'FJ", ",E'/J 'D#HDI", ",E'/ 'D+'FJ)", "1,(", "49('F", "1E6'F", "4H'D", "0H 'DB9/)", "0H 'D-,)"]

ehmname = ["E-1E", "5A1", "1(J9 'D#HD", "1(J9 'D+'FJ",",E'/ 'D#HDI", ",'/ 'D+'FJ)", "1,(", "49('F", "1E6'F", "4H'D", "0H 'DB9/)", "0H 'D-,)"]

edow = [ "'D#-/", "'D#+FJF", "'D+D'+'!", "'D#1(9'!","'D.EJ3", "'D,E9)", "'D3(*"]

tmname= ["JF'J1","A(1'J1","E'13","#(1JD","E'JH","JHFJH","JHDJH","#:373","3(*E(1","#C*H(1","FHAE(1","/J3E(1"]

g = {time: rtime, day: rday , mon: rmon , year: ryear , dw: rdw , nmtime: rntime } // new



var rjd;

var y, m, d;



function Int(x)

{

 if ( x < 0 )

 {

    	x = -x;

	x = Math.floor(x+(x < 0 ? 1 : 0))

	x = -x;

 }

 else

 {

 	x = Math.floor(x+(x < 0 ? 1 : 0))

 } 

 return x;

}



function tmoonphase( n, nph)

{

   nph = Int(nph);

	var jd, t, t2, t3, k, ma, sa, tf, xtra;

	k = n + nph/4.0;  t = k/1236.85;  t2 = t*t; t3 = t2*t;

	jd =  2415020.75933 + 29.53058868 * k - 1.178e-4 * t2 - 1.55e-7  * t3 + 3.3e-4 * Math.sin(RPD * (166.56 +132.87 * t - 0.009173 * t2)); 



	/* Sun's mean anomaly */

	sa =  RPD * (359.2242 + 29.10535608*k - 3.33e-5 * t2 - 3.47e-6 * t3);



	/* Moon's mean anomaly */

	ma =  RPD * (306.0253 + 385.81691806*k + 0.0107306*t2 +1.236e-5 *t3);



	/* Moon's argument of latitude */

	tf = RPD * 2.0 * (21.2964 + 390.67050646*k -0.0016528*t2

		      -2.39e-6 * t3);



	/* should reduce to interval 0-1.0 before calculating further */

	if (nph==0 || nph==2)

		/* Corrections for New and Full Moon */

		xtra = (0.1734 - 0.000393*t) * Math.sin(sa)

		      +0.0021*Math.sin(sa*2)

		      -0.4068*Math.sin(ma) +0.0161*Math.sin(2*ma) -0.0004*Math.sin(3*ma)

		      +0.0104*Math.sin(tf)

		      -0.0051*Math.sin(sa+ma) -0.0074*Math.sin(sa-ma)

		      +0.0004*Math.sin(tf+sa) -0.0004*Math.sin(tf-sa)

		      -0.0006*Math.sin(tf+ma) +0.0010*Math.sin(tf-ma)

		      +0.0005*Math.sin(sa+ 2*ma);

	else if (nph==1 || nph==3) {

		xtra = (0.1721 - 0.0004*t) * Math.sin(sa)

		      +0.0021*Math.sin(sa*2)

		      -0.6280*Math.sin(ma) +0.0089*Math.sin(2*ma) -0.0004*Math.sin(3*ma)

		      +0.0079*Math.sin(tf)

		      -0.0119*Math.sin(sa+ma) -0.0047*Math.sin(sa-ma)

		      +0.0003*Math.sin(tf+sa) -0.0004*Math.sin(tf-sa)

		      -0.0006*Math.sin(tf+ma) +0.0021*Math.sin(tf-ma)

		      +0.0003*Math.sin(sa+ 2*ma) +0.0004*Math.sin(sa-2*ma)

		      -0.0003*Math.sin(2*sa+ma);

		if (nph==1)

			xtra = xtra +0.0028 -0.0004*Math.cos(sa) +0.0003*Math.cos(ma);

		else

			xtra = xtra -0.0028 +0.0004*Math.cos(sa) -0.0003*Math.cos(ma);

	} else {

		printf("tmoonphase: illegal phase number\n");

		exit(1);

	}

	/* convert from Ephemeris Time (ET) to (approximate) 

	   Universal Time (UT) */

	jd += xtra - (0.41 +1.2053*t +0.4992*t2)/1440;

	return (jd);

}



function julianday( year, month, day, time)

{

	var jul;

	var m,y,ja;

	if (year<0) year++;

	if (month>2) {

		y = year; m =month;

	} else {

		y = year-1; m =month+12;

	}

	jul = y * 365.25;

	

	if (y<1) jul -= 0.75;

	

	jul = Int(jul) + (Int(30.6001*(m+1))) +day +time +1720994.5; 

   

	if (year +month*1e-2 +(day+time)*1e-4 >= 1582.1015) {

		/* cross-over to Gregorian calendar */

		ja = Int(0.01*y);

		jul = jul +2 -ja + (Int(0.25*ja));

	}

	return jul;

}





function visible(n, riy)

{

	var jd;

	var tf;

	var d;

    	n = Int(n);

	jd = tmoonphase(n,0);  rjd = jd;

	d = Int(jd);



	tf = (jd - d);

	if (tf<=0.5)  /*new moon starts in the afternoon */

		return(jd+1.0); 

	/* new moon starts before noon */

	tf = (tf-0.5)*24 +TIMZ;  /* local time */ 

	if (tf>TIMDIF) return(jd+1.0);  /*age at sunset < min for visiblity*/



	return(jd);

}



function hdate (y,m,d)

{

	var jd, mjd;

	var k, hm;

  

	jd = julianday(y,m,d,0.00); 

	/* obtain first approx. of how many new moons since the beginning

	   of the year 1900 */

	k = Int(0.6 + (y + (Int(m-0.5)) /12.0 + d/365.0 - 1900) *12.3685);

	do  {

	mjd = visible(k--, rjd); 

	} while (mjd > jd);  

	k++;

	/*first of the month is the following day*/

	hm = Int(k - 1048);  

	h.year = Int(1405 + Int(hm / 12));

	h.mon =  Int((hm % 12) +1); 

	if (hm !=0 && h.mon<=0) {h.mon +=12; h.year--; }

	if (h.year<=0) h.year--;

	h.day = Int(jd - mjd + 1.0);

	h.time = 0.5;

	h.dw = Int(Int(jd+1.5) % 7);

	return(h);

}

function caldate( julday )

{

	julday += 0.5; z = Int(julday); f = julday-z;

	if ( z < 2299161 )  

	{

		a = z;

	}

	else {

		alpha = Int((z-1867216.25) / 36524.25);

		a     = Int(z + 1 +alpha - Int(alpha / 4));

		}



	b = Int(a + 1524);  c = Int((b - 122.1) / 365.25); d = Int(365.25 * c);

	e = Int((b-d) / 30.6001);

	f += b -d - (Int(30.6001*e));

	

	g.day = Int(f);

	g.time = f - g.day;

	g.mon = (e>13) ? e-13 : e-1;

	g.year = (g.mon>2) ? c-4716 : c-4715;

	g.dw = Int((Int(julday - g.time + 1.1)) % 7);

	if ( g.year<=0) g.year--;

	return(g);

}



function gdate( y, m, d)

{

	if (y<0) y++;

	k = Int(m+ y*12 - NMONTHS);   /* # of months since 1/1/1405 */



	jd = visible(k+1048, rjd) +d;



	g = caldate(jd);

	g.nmtime = rjd;

	return (g);

	

}





function main()

{

	var 	d, m, y, hflag=0;



	var time= new Date();

	var m = time.getMonth() + 1;

	var d = time.getDate();

	var y = time.getYear();

	

	if (y < 2000){

	    y = y + 1900;

	}

   

	sd = hdate(y, m, d);

   hijri =  '<font size="2"><font size="2">'+dow[h.dw] + '</font> ' + h.day + '<font  size="2"> ' + hmname[h.mon - 1] + '</font> ' + h.year + ' <font  >DDG,1)</font size="2"></font>'





   return hijri;

}