var viikonPaiva = new Array ("Sunnuntai","Maanantai","Tiistai","Keskiviikko","Torstai","Perjantai","Lauantai");
 
 function Calendar()
{

  thisdate = new Date();
  currentyear = thisdate.getYear();
  month = thisdate.getMonth();
  date = thisdate.getDate();
  day = thisdate.getDay();
  leap_year = false;

  if (currentyear < 1000) currentyear+=1900
  //currentyear += ((currentyear < 97) ? 2000 : 1900);
 
  if (currentyear % 400 == 0)
    leap_year = true;    // on karkausvuosi
  else if (currentyear % 100 == 0)
    leap_year = false;    // ei ole karkausvuosi
  else if (currentyear % 4 == 0)
    leap_year = true;    // on karkausvuosi
          
  cent = parseInt(currentyear/100);
  g = currentyear % 19;
  k = parseInt((cent - 17)/25);
  i = (cent - parseInt(cent/4) - parseInt((cent - k)/3) + 19*g + 15) % 30;
  i = i - parseInt(i/28)*(1 - parseInt(i/28)*parseInt(29/(i+1))*parseInt((21-g)/11));
  j = (currentyear + parseInt(currentyear/4) + i + 2 - cent + parseInt(cent/4)) % 7;
  l = i - j;
  estermonth = 3 + parseInt((l + 40)/44);
  esterdate = l + 28 - 31*parseInt((estermonth/4));
  estermonth--;
 
  document.write("<font color=000000 size=2>&nbsp;" + viikonPaiva[day] + " ");
  if (date < 10) document.write("<font size=2>0" + date + ".");
    else document.write(date + ".");
  num_month = month + 1;
  if (month < 9) document.write("0" + num_month + ".");
    else document.write(num_month + ".");
	
  document.write(currentyear + "</font>&nbsp;&nbsp;&nbsp;&nbsp;<font color=00aa00 size=2>");
  setYearMonth(currentyear, month, date, day, estermonth, esterdate, leap_year);
  setDateNames(month, date, leap_year);
}

function setYearMonth(year, month, date, day, estMonth, estDate, leap_year)
{
	
  emonth = estMonth;
  edate = estDate;
  liputusPaiva = false;

  // Itsenäisyyspäivien vuodet laskettuina
  usa = 0;  if ( year > 1776) usa = year - 1776;
  mexico = 0; if ( year > 1810) mexico = year - 1810;
  Brazil = 0; if ( year > 1822) brazil = year - 1822;
  canada = 0; if ( year > 1867) canada = year - 1867;
  australia = 0; if ( year > 1901) australia = year - 1901;
  norja = 0; if ( year > 1905) norja = year - 1905;
  suomi = 0;  if ( year > 1917) suomi = year - 1917;
  egypt = 0; if ( year > 1922) egypt = year - 1922;
  intia = 0; if ( year > 1947) intia = year - 1947;
  senegal = 0; if ( year > 1960) senegal = year - 1960;
  serbia = 0; if ( year > 2006) serbia = year - 2006;
  kosovo = 0; if ( year > 2008) kosovo = year - 2008;

  //Syntymäpäivät 
  jeansibelius = 0;  if (year > 1865) jeansibelius = year - 1865;
  jlruneberg = 0; if (year > 1804) jlruneberg = year - 1804;
  mcanth = 0; if (year > 1844) mcanth = year - 1844;
  macrigola = 0; if (year > 1557) macrigola = year - 1557;
  einoleino = 0; if (year > 1878) einoleino = year - 1878;
  aleksiskivi = 0; if (year > 1834) aleksiskivi = year - 1834;
  cgemannerheim = 0; if (year > 1867) cgemannerheim = year - 1867;
  jvsnellmann = 0; if (year > 1806) jvsnellmann = year - 1806;
  wolfgang = 0;if (year > 1756) wolfgang = year - 1756;
  verne = 0;if (year > 1828) verne = year - 1828;
  galilei = 0;if (year > 1564) galilei = year - 1564;
  king = 0;if (year > 1929) king = year - 1929;
  bach = 0; if (year > 1685) bach = year - 1685;
  vinci = 0;if (year > 1452) vinci = year - 1452;
 
  // Pääsiäisen päivät (Länsi)

  // Not known mariamonth or mariadate
  mariadate = 99;
  mariamonth = 99;

if (emonth == 3)  // If emonth PÄÄSIÄINEN HUHTIKUUSSA
{ 
  mariamonth = 2; // maaliskuu
	// Marian päivä Pääsiäispäivän ero = -2 week
	// Yleisin on Marianpäivä Pääsiäispäivän ero = -2 week  
  // esim. 1991, 1993, 1994, 1997, 1999, 2002, 2005, 2007, 2008, 2010, ..
  if (edate <= 11)
	  mariadate = 31 + edate - 14;

	// Marian päivä Pääsiäispäivän ero = -3 week
	// Esim vuosi 2009 Marianpäivä 22.3. ja Pääsiäispäivä 12.4.
  // Esim vuosi 2006 Marianpäivä 26.3. ja Pääsiäispäivä 16.4.
  // Esim vuosi 2001 Marianpäivä 25.3. ja Pääsiäispäivä 15.4.
  // Esim vuosi 1998 Marianpäivä 22.3. ja Pääsiäispäivä  4.4.
  // Esim vuosi 1995 Marianpäivä 26.3. ja Pääsiäispäivä 16.4.
  if ((edate >= 12 ) && (edate <= 16)) // Vuodet 1995, 1998, 2001, 2006
      mariadate = 31 + edate - 21;
      
  // Marian päivä Pääsiäispäivän ero = -4 week
  // Esim vuosi 2011 Marianpäivä 27.3. ja Pääsiäispäivä 24.4.
  // Esim vuosi 2003 Marianpäivä 23.3. ja Pääsiäispäivä 20.4.
  // Esim vuosi 2000 Marianpäivä 26.3. ja Pääsiäispäivä 23.4.
  // Esim vuosi 1992 Marianpäivä 22.3. ja Pääsiäispäivä 19.4.
  if ((edate >= 17 ) && (edate <= 24 )) // Vuodet  1992, 2000, 2003, 2011
  	  mariadate = 31 + edate - 28;
}
else // else emonth PÄÄSIÄINEN MAALISKUUSSA
{
  if ((emonth == 2) && (edate >= 14))
  {
    mariadate = edate - 14;
	mariamonth = 3; // huhtikuu
  }
}
// Marian ilmestyspäivä aina sunnuntaina tiettynä ajankohtana
if ((month == mariamonth) && (date == mariadate) && (day==0)) document.write("Marian ilmestysp&auml;iv&auml;");

// Common for all years
// Palmusunnuntai päivä Pääsiäispäivän ero = -1 week
if (edate >= 8){
	palmonth = emonth;
  paldate = edate - 7;
  malmonth = emonth;
  maldate = edate - 6;
  tikmonth = emonth;
  tikdate = edate - 5;
  kelmonth = emonth;
  keldate = edate - 4;
  kiimonth = emonth;
  kiidate = edate - 3;
  pitmonth = emonth;
  pitdate = edate - 2;
  lanmonth = emonth;
  landate = edate - 1;
} 
if (edate == 7){
  palmonth = emonth - 1;
  paldate = 31 + edate - 7;
  malmonth = emonth;
  maldate = edate - 6;
  tikmonth = emonth;
  tikdate = edate - 5;
  kelmonth = emonth;
  keldate = edate - 4;
  kiimonth = emonth;
  kiidate = edate - 3;
  pitmonth = emonth;
  pitdate = edate - 2;
  lanmonth = emonth;
  landate = edate - 1;
}
if (edate == 6){
  palmonth = emonth - 1;
  paldate = 31 + edate - 7;
  malmonth = emonth - 1;
  maldate = 31 + edate - 6;
  tikmonth = emonth;
  tikdate = edate - 5;
  kelmonth = emonth;
  keldate = edate - 4;
  kiimonth = emonth;
  kiidate = edate - 3;
  pitmonth = emonth;
  pitdate = edate - 2;
  lanmonth = emonth;
  landate = edate - 1;
}
if (edate == 5){
  palmonth = emonth - 1;
  paldate = 31 + edate - 7;
  malmonth = emonth - 1;
  maldate = 31 + edate - 6;
  tikmonth = emonth - 1;
  tikdate = 31 + edate - 5;
  kelmonth = emonth;
  keldate = edate - 4;
  kiimonth = emonth;
  kiidate = edate - 3;
  pitmonth = emonth;
  pitdate = edate - 2;
  lanmonth = emonth;
  landate = edate - 1;
} 
if (edate == 4){
  palmonth = emonth - 1;
  paldate = 31 + edate - 7;
  malmonth = emonth - 1;
  maldate = 31 + edate - 6;
  tikmonth = emonth - 1;
  tikdate = 31 + edate - 5;
  kelmonth = emonth - 1;
  keldate = 31 + edate - 4;
  kiimonth = emonth;
  kiidate = edate - 3;
  pitmonth = emonth;
  pitdate = edate - 2;
  lanmonth = emonth;
  landate = edate - 1;
} 
if (edate == 3){
  palmonth = emonth - 1;
  paldate = 31 + edate - 7;
  malmonth = emonth - 1;
  maldate = 31 + edate - 6;
  tikmonth = emonth - 1;
  tikdate = 31 + edate - 5;
  kelmonth = emonth - 1;
  keldate = 31 + edate - 4;
  kiimonth = emonth - 1;
  kiidate = 31 + edate - 3;
  pitmonth = emonth;
  pitdate = edate - 2;
  lanmonth = emonth;
  landate = edate - 1;
} 
if (edate == 2){
  palmonth = emonth - 1;
  paldate = 31 + edate - 7;
  malmonth = emonth - 1;
  maldate = 31 + edate - 6;
  tikmonth = emonth - 1;
  tikdate = 31 + edate - 5;
  kelmonth = emonth - 1;
  keldate = 31 + edate - 4;
  kiimonth = emonth - 1;
  kiidate = 31 + edate - 3;
  pitmonth = emonth - 1;
  pitdate = 31 + edate - 2;
  lanmonth = emonth;
  landate = edate - 1;
}
if (edate == 1){
  palmonth = emonth - 1;
  paldate = 31 + edate - 7;
  malmonth = emonth - 1;
  maldate = 31 + edate - 6;
  tikmonth = emonth - 1;
  tikdate = 31 + edate - 5;
  kelmonth = emonth - 1;
  keldate = 31 + edate - 4;
  kiimonth = emonth - 1;
  kiidate = 31 + edate - 3;
  pitmonth = emonth - 1;
  pitdate = 31 + edate - 2;
  lanmonth = emonth -1 ;
  landate = 31 + edate - 1;
}

if ((month == palmonth) && (date == paldate) && (day==0)) document.write("<font color=ff0000 size=2>Palmusunnuntai&nbsp;(virposunnuntai)	 ");
if ((month == malmonth) && (date == maldate) && (day==1)) document.write("<font size=2>(malkamaanantai)&nbsp;	 ");
if ((month == tikmonth) && (date == tikdate) && (day==2)) document.write("<font size=2>(tikkutiistai)&nbsp;	 ");
if ((month == kelmonth) && (date == keldate) && (day==3)) document.write("<font size=2>(kellokeskiviikko)&nbsp;	 ");
if ((month == kiimonth) && (date == kiidate) && (day==4)) document.write("<font size=2>(kiirastorstai)&nbsp;	 ");
if ((month == pitmonth) && (date == pitdate) && (day==5)) document.write("<font color=ff0000 size=2>Pitk&auml;perjantai&nbsp;	 ");
if ((month == lanmonth) && (date == landate) && (day==6)) document.write("<font size=2>p&auml;&auml;si&auml;islauantai, lankalauantai eli hiljainen lauantai&nbsp;	 ");

if ((month == emonth) && (date == edate) && (day==0)) document.write("<font color=ff0000 size=2>P&auml;&auml;si&auml;isp&auml;iv&auml; (sukkasunnuntai)	 ");
if ((month == emonth) && (date == edate+1) && (day==1)) document.write("<font color=ff0000 size=2>2. P&auml;&auml;si&auml;isp&auml;iv&auml;	 ");

//Laskiaissunnuntai 7 week before edate (=49 days)
if (emonth == 3) // If emonth PÄÄSIÄINEN HUHTIKUUSSA
{
	if (leap_year) // Karkausvuosi 2000, 2004, 2008, 2012, 2016 ...
	  laskiainen = 29-(49-31-edate);
	else 	
      laskiainen = 28-(49-31-edate);

	if (laskiainen > 28)
	{
      laskiainen -= 28;
      if ((month == emonth-1) && (date == laskiainen) && (day==0)) document.write("<font color=ff0000 size=2>Laskiaissunnuntai&nbsp;&nbsp;");
      if ((month == emonth-1) && (date == laskiainen+2) && (day==2)) document.write("<font color=00aa00 size=2>Laskiaistiistai&nbsp;&nbsp;");
	}
	else
  {
      if ((month == emonth-2) && (date == laskiainen) && (day==0)) document.write("<font color=ff0000 size=2>Laskiaissunnuntai&nbsp;&nbsp;");
      if ((month == emonth-2) && (date == laskiainen+2) && (day==2)) document.write("<font color=00aa00 size=2>Laskiaistiistai&nbsp;&nbsp;");
	}
}
else if (emonth == 2) // else emonth PÄÄSIÄINEN MAALISKUUSSA
{
	if (leap_year) // Karkausvuosi 2000, 2008, 2012, 2016 ...
      laskiainen = 29-(49-edate);
	else 
      laskiainen = 28-(49-edate);
	
	if ((month == emonth-1) && (date == laskiainen) && (day==0)) document.write("<font color=ff0000 size=2>&nbsp;Laskiaissunnuntai&nbsp;&nbsp;");
	if ((month == emonth-1) && (date == laskiainen+2) && (day==2)) document.write("<font color=00aa00 size=2>Laskiaistiistai&nbsp;&nbsp;");
}

// Tammikuu 0
if (month == 0)
{
  if (date == 1) document.write("<font color=ff0000 size=2>Uudenvuodenp&auml;iv&auml;");
  if (date == 6) document.write("<font color=ff0000 size=2>Loppiainen");
  if (date == 15) document.write("<font color=00aa00 size=1>Martin Luther King syntym&auml;st&auml; (1929) " + king + " vuotta.  ");
  if ((year == 2012) && (date == 22)) { document.write("<font color=00aa00 size=1>Presidentin vaalit"); liputusPaiva = true; }
  if (date == 23) document.write("<font color=00aa00 size=1>Kiinalainen Uusi Vuosi<br>");
  // 1.1.1901 ??? 
  if (date == 26) document.write("<font color=00aa00 size=1>" + australia + ". Australian (1901) itsen&auml;isyysp&auml;iv&auml;"); //26. tammikuuta
  if (date == 27) document.write("<font color=00aa00 size=1>Wolfgang Amadeus Mozart (1756) " + wolfgang + " vuotta. ");
  if (date == 27) document.write("<font color=00aa00 size=1>Vainojen uhrien muistop.");
} else if (month == 1)
{
  // Helmikuu 1
  if ((year == 2012) && (date == 1)) { document.write("<font color=00aa00 size=1>Presidentin virkaanastuminen (jos valinta 1. vaalilla)"); liputusPaiva = true; }
  if ((year >= 2009) && (day == 0) && (date > 0) && (date < 9)) document.write("Kynttil&auml;np&auml;iv&auml;&nbsp;&nbsp;"); // 2009 ?, 2010 ?, 2011 ?
  if ((year== 2012) && (day == 0) && (date == 5)) document.write(",&nbsp;&nbsp;");
  if ((year == 2012) && (date == 5)) { document.write("<font color=00aa00 size=1>Presidentin 2. vaalit,&nbsp;&nbsp;"); liputusPaiva = true; }
  if (date == 5) { document.write("Runebergin p&auml;iv&auml;&nbsp;, syntym&auml;st&auml; (1804) " + jlruneberg +" vuotta. "); liputusPaiva = true;}
  if (date == 6) document.write("Saamelaisten  kansallisp&auml;iv&auml;"); //2007
  if (date == 8) document.write("<font color=00aa00 size=1>Jules Verne (1828) syntym&auml;st&auml; " + verne + " vuotta.    ");
  if (date == 12) document.write("<font color=00aa00 size=1>Lincolnin syntym&auml;p&auml;iv&auml;");
  if (date == 14) document.write("<font color=00aa00 size=2>Yst&auml;v&auml;np&auml;iv&auml;");
  if (date == 15) document.write("<font color=00aa00 size=1>Galileo Galilei (1564) syntym&auml;st&auml; " + galilei + " vuotta.  ");
  if (date == 15) document.write("<font color=00aa00 size=1>" + serbia + ".&nbsp;Serbian (2006) itsen&auml;isyysp&auml;iv&auml;"); //15. helmikuuta 2006
  if (date == 17) document.write("<font color=00aa00 size=1>" + kosovo + ".&nbsp; Kosovon (2008) itsen&auml;isyysp&auml;iv&auml;"); //17. helmikuuta 2008
  if (date == 22) document.write("<font color=00aa00 size=1>Washingtonin syntym&auml;p&auml;iv&auml;");
  if (date == 28) { document.write("<font color=00aa00 size=1>Kalevalanp&auml;iv&auml;"); liputusPaiva = true;}
  if (date == 29) document.write("<font color=aa00aa size=1>(Karkausp&auml;iv&auml;)");

// Maaliskuu 2
} else if (month == 2)
{
  if ((year == 2012) && (date == 1)) { document.write("<font color=00aa00 size=1>Presidentin virkaanastuminen (jos valinta 2. vaalilla)"); liputusPaiva = true; }
  if (date == 8) document.write("Naistenp&auml;iv&auml;");
  if (date == 19) { document.write("Minna Canthin p&auml;iv&auml;&nbsp;, syntym&auml;st&auml; (1844) " + mcanth +" vuotta");  liputusPaiva = true;}//2007
  if ((year == 2008) && (date == 21)) document.write("<font color=00aa00 size=2>Kev&auml;tp&auml;iv&auml;ntasaus, ");  // 2008 
  if ((year == 2009) && (date == 20)) document.write("<font color=00aa00 size=2>Kev&auml;tp&auml;iv&auml;ntasaus");  // 2009 
  if ((year == 2010) && (date == 20)) document.write("<font color=00aa00 size=2>Kev&auml;tp&auml;iv&auml;ntasaus");  // 2010 
  if ((year == 2011) && (date == 21)) document.write("<font color=00aa00 size=2>Kev&auml;tp&auml;iv&auml;ntasaus, ");  // 2011 
  if ((year == 2012) && (date == 20)) document.write("<font color=00aa00 size=2>Kev&auml;tp&auml;iv&auml;ntasaus");  // 2012 ?
  if (date == 21) document.write("<font color=00aa00 size=1>J.S. Bach (1685) syntym&auml;st&auml; " + bach + " vuotta. ");
  if ((day == 0) && (date > 24) && (date <= 31)) document.write("<font color=00aa00 size=2>&nbsp;&nbsp;Kes&auml;aika alkaa ");

// Huhtikuu 3
} else if (month == 3)
{
  if (date == 1) document.write("<font color=00aa00 size=1>Aprilli p&auml;iv&auml;");
  if (date == 4) document.write("<font color=00aa00 size=1>" + senegal + ".&nbsp;Senegalin (1960) itsen&auml;isyysp&auml;iv&auml;");
  if (date == 9) { document.write("<font color=00aa00 size=1>M. Agricolan p&auml;iv&auml;, kuolemasta (1557) " + macrigola + " vuotta");  liputusPaiva = true;}
  if (date == 15) document.write("<br><font color=00aa00 size=1>Leonardo da Vinci (1452) syntym&auml;st&auml; " + vinci + " vuotta. ");
  if ((year == 2011) && (date == 17)) { document.write("<font color=00aa00 size=1>Eduskuntavaalit ");  liputusPaiva = true;} // 2011 vaalit
  if (date == 27) { document.write("<font color=00aa00 size=1>kansallinen veteraanip&auml;iv&auml;");  liputusPaiva = true;}

// Toukokuu 4
} else if (month == 4)
{
  if (date == 1) document.write("<font color=00aa00 size=1>Itsen&auml;isyysp&auml;iv&auml; Englanti, ");
  if (date == 1) { document.write("Vapunp&auml;iv&auml;,&nbsp;<font color=00aa00 size=1>Suomal.ty&ouml;n p.");  liputusPaiva = true;}
  if ((year >= 2005) && (date == 9)) { document.write("<font color=00aa00 size=1>Eurooppa-p&auml;iv&auml;"); liputusPaiva = true;}
  if ((year >= 2006) && (date == 12)) { document.write("<font color=00aa00 size=1>J.V. Snellmannin p., suomalaisuden p. (1806) " + jvsnellmann + " vuotta"); liputusPaiva = true;}
  if ((year == 2005) && (date == 5)) document.write(", Helatorstai");
  
  // Torstaina
  if (day == 4)
  {
    if ((year == 2006) && (date == 25)) document.write("Helatorstai")
    if ((year == 2007) && (date == 17)) document.write("Helatorstai");;
    if ((year == 2008) && (date == 1)) document.write("<font color=ff0000 size=1>&nbsp;Helatorstai&nbsp;");
    if ((year == 2009) && (date == 21)) document.write("<font color=ff0000 size=1>&nbsp;Helatorstai&nbsp;");
    if ((year == 2012) && (date == 21)) document.write("<font color=ff0000 size=1>&nbsp;Helatorstai&nbsp;"); // 2012 ?
  }
  
  // Sunnuntaina
  if (day == 0)
  {
    if ((date > 7) && (date < 15)) { document.write("<font color=ff0000 size=1>&Auml;itienp&auml;iv&auml;"); liputusPaiva = true;}
    if ((date > 14) && (date < 22)) { document.write("<font color=00aa00 size=1>Kaat. muistop&auml;iv&auml;"); liputusPaiva = true;}
	if ((year == 2005)&& (date > 16) && (date < 23)) document.write("Pyh&auml;n Kolminaisuuden p&auml;iv&auml;");
    if ((year == 2007) && (date == 27)) document.write("Helluntaip&auml;iv&auml;&nbsp;"); //2007
    if ((year == 2008) && (date == 11)) document.write("<font color=ff0000 size=1>&nbsp;Helluntaip&auml;iv&auml;&nbsp;"); //2008
    if ((year == 2009) && (date == 31)) document.write("<font color=ff0000 size=1>&nbsp;Helluntaip&auml;iv&auml;&nbsp;"); //2009
    if ((year == 2012) && (date == 27)) document.write("<font color=ff0000 size=1>&nbsp;Helluntaip&auml;iv&auml;&nbsp;"); //2012 ?
  }

// Kesäkuu 5
} else if (month == 5)
{
  // Sunnuntaina
  if (day == 0)
  {
    if ((year == 2006) && (date == 4)) document.write("Helluntaip&auml;iv&auml;&nbsp;"); //2006
    if ((year == 2011) && (date == 12)) document.write("<font color=ff0000 size=1>&nbsp;Helluntaip&auml;iv&auml;&nbsp;"); //2011
    if ((year == 2006) && (date > 5) && (date < 15)) document.write("Pyh&auml;n Kolminaisuuden p&auml;iv&auml;");
    if ((year == 2009) && (date > 6) && (date < 13)) document.write("Pyh&auml;n Kolminaisuuden p&auml;iv&auml;");
    if ((year == 2011) && (date == 19)) document.write("Pyh&auml;n Kolminaisuuden p&auml;iv&auml;"); // 2011
    if ((year == 2012) && (date == 3)) document.write("Pyh&auml;n Kolminaisuuden p&auml;iv&auml;"); // 2012 ?
  }
  
  if ((year == 2011) && (day==4) && (date == 2)) document.write("<font color=ff0000 size=1>&nbsp;Helatorstai&nbsp;"); // 2011
  if (date == 6) document.write("<font color=00aa00 size=1>Itsen&auml;isyysp&auml;iv&auml; Ruotsi"); //6. kesäkuuta
  
  if (date == 7) document.write("<font color=00aa00 size=1>&nbsp;" + norja + ". &nbsp;Norjan (1905) itsen&auml;isyysp&auml;iv&auml;");
  if (date == 4) { document.write("<font color=00aa00 size=1>Puolustusvoimain lippujuhlan p., Suomen marsalkka C.G.E. Mannerheimin syntym&auml;st&auml; (1867) "+ cgemannerheim +" vuotta. "); liputusPaiva = true;}
  if ((year >= 2005) && (year <= 2007) && (date == 5)) document.write("<font color=00aa00 size=1>Maailman ymp&auml;rist&ouml;p&auml;iv&auml;");
  if (date == 21) document.write("<font color=00aa00 size=1>Kes&auml;p&auml;iv&auml;nseisaus"); // 2011, 2012 ?
  if ((day == 5) && (date > 19) && (date < 26)) document.write("<font color=00aa00 size=1>Juhannusaatto");
  if ((day == 6) && (date >= 20) && (date < 27)) { document.write("<font color=ff0000 size=1>Juhannusp&auml;iv&auml;<font color=00aa00 size=1>&nbsp;Suomen lipun p."); liputusPaiva = true;}
  if ((year == 2005)  && (date == 26)) document.write("<font color=ff0000 size=1>Apostolien p&auml;iv&auml;");
  if ((year == 2008) && (month == 5) && (date == 22)) document.write("<font color=ff0000 size=1>Apostolien p&auml;iv&auml;");

// Heinäkuu 6
} else if (month == 6)
{
  // Sunnuntaina
  if (day == 0)
  {
    if ((year == 2011) && (date == 24)) document.write("<font color=ff0000 size=1>Apostolien p&auml;iv&auml;"); // 2011
    if ((year == 2012) && (date == 8)) document.write("<font color=ff0000 size=1>Apostolien p&auml;iv&auml;"); // 2012 ?
    if ((year <= 2007) && (date >= 21) && (date <= 31)) document.write("<font color=ff0000 size=1>Kirkastussunnuntai");
    if ((year == 2008) && (date >= 6) && (date < 21)) document.write("<font color=ff0000 size=1>Kirkastussunnuntai");
    if ((year == 2009) && (date == 26)) document.write("<font color=ff0000 size=1>Kirkastussunnuntai");
    if ((year == 2012) && (date == 22)) document.write("<font color=ff0000 size=1>Kirkastussunnuntai"); // 2012 ?
  }
  
  if (date == 1) document.write("<font color=00aa00 size=1>" + canada + ".&nbsp;Itsen&auml;isyysp&auml;iv&auml; Canada (1867)");
  if (date == 4) document.write("<font color=00aa00 size=1>" + usa + ".&nbsp;USA (1776) itsen&auml;isyysp&auml;iv&auml; ");
  if (date == 6) { document.write("<font color=00aa00 size=1>Eino Leinon p&auml;iv&auml;, syntym&auml;st&auml; (1878) " + einoleino +" vuotta,&nbsp;&nbsp;runon ja suven p."); liputusPaiva = true;}
  if ((year == 2006) && (date == 16)) document.write("<font color=ff0000 size=1>Apostolien p&auml;iv&auml;");
  if ((year == 2007) && (date == 8)) document.write("<font color=ff0000 size=1>Apostolien p&auml;iv&auml;");
  if ((year == 2009) && (date == 12)) document.write("<font color=ff0000 size=1>Apostolien p&auml;iv&auml;");

  if (date == 27) document.write("<font color=00aa00 size=1>Unikeonp&auml;iv&auml;");
  if (date == 23) document.write("<font color=00aa00 size=1>" + egypt + ".&nbsp;Egyptin (1922) itsen&auml;isyysp&auml;iv&auml;");

// Elokuu 7
} else if (month == 7)
{
  if ((year == 2011) && (day == 0) && (date == 7)) document.write("<font color=ff0000 size=1>Kirkastussunnuntai"); // 2011
  if (date == 1) document.write("<font color=00aa00 size=1>Liittop&auml;iv&auml; (Switzerland)");
  if (date == 15) document.write("<font color=00aa00 size=1>" + intia + ".&nbsp;Intian (1947) itsen&auml;isyysp&auml;iv&auml;");

// Syyskuu 8
} else if (month == 8)
{
  if ((year >= 2011) && (year <= 2012) && (date == 5)) document.write("<font color=00aa00 size=2>Yritt&auml;j&auml;n p&auml;iv&auml;"); // 2011, 2012 ?
  if (date == 7) document.write("<font color=00aa00 size=1>" + brazil + ".&nbsp;Brazilian (1822) itsen&auml;isyysp&auml;iv&auml; ");
  if (date == 16) document.write("<font color=00aa00 size=1>" + mexico + ".&nbsp;Mexicon (1810) itsen&auml;isyysp&auml;iv&auml;");
  if (leap_year)
  {
    if (date == 22) document.write("<font color=00aa00 size=2>Syysp&auml;iv&auml;ntasaus"); // 2008, 2012, 2016 ?
  }
  else
  {
    if (date == 23) document.write("<font color=00aa00 size=2>Syysp&auml;iv&auml;ntasaus"); // 2009, 2010, 2011
  }
  // Sunnuntaina
  if (day == 0)
  {
    if ((year == 2007) && (date == 30)) document.write("<font color=00aa00 size=1>Mikkelinp&auml;iv&auml;"); //2007
    if ((year == 2012) && (date == 30)) document.write("<font color=00aa00 size=1>Mikkelinp&auml;iv&auml;"); //2012 ?
  }

// Lokakuu 9
} else if (month == 9)
{
  // Sunnuntaina
  if (day == 0)
  {
    if ((year == 2006) && (date >= 1) && (date <= 5)) document.write("<font color=00aa00 size=1>Mikkelinp&auml;iv&auml;"); // 2006 ?
	if ((year == 2005) && (date >9) && (date < 17)) document.write("Uskonpuhdistuksen muistop."); //2005 ?
    if ((year == 2007) && (date == 28)) document.write("Uskonpuhdistuksen muistop."); //2007 
    if ((year == 2008) && (date == 12)) document.write("Uskonpuhdistuksen muistop."); //2008 
    if ((year == 2010) && (date == 24)) document.write("Uskonpuhdistuksen muistop."); //2010
    if ((year == 2012) && (date == 28)) document.write("Uskonpuhdistuksen muistop."); //2012 ?
	if ((year == 2012) && (date == 28)) { document.write("&nbsp;&nbsp;,kunnallisvaalit"); liputusPaiva = true; } //2012 ?
    if ((year >= 2008) && (year <= 2011) && (date >= 1) && (date <= 5)) document.write("<font color=00aa00 size=1>Mikkelinp&auml;iv&auml;"); // 2008, 2009, 2010, 2011
	if ((date > 24) && (date < 31)) document.write("<font color=00aa00 size=2>Kes&auml;aika p&auml;&auml;ttyy");
  }
  
  if ((year == 2002) && (date == 1)) document.write("Kans.v&auml;l. lastenp&auml;iv&auml;"); //2005 ?

  if (date == 10) { document.write ("<font size=1> Aleksis Kiven p&auml;iv&auml;, syntym&auml;st&auml; (1834) " + aleksiskivi +" vuotta. </font>"); liputusPaiva = true;}
  if (date == 24) { document.write("<font color=00aa00 size=2>YK:n p&auml;iv&auml;"); liputusPaiva = true;}
  if (date == 31) document.write("<font color=00aa00 size=1>Halloween");
  if ((year == 2009) && (day==6) && (date == 31)) document.write("<font color=ff0000 size=1>&nbsp;Pyh&auml;inp&auml;iv&auml;"); //2009 ?

// Marraskuu 10
} else if (month == 10)
{
  // Lauantai
  if (day == 6)
  {
    if ((year <= 2008) && (date >= 1) && (date < 6)) document.write("<font color=ff0000 size=1>&nbsp;Pyh&auml;inp&auml;iv&auml;"); //2005, 2006, 2007 2008
    if ((year >= 2010) && (year <= 2011) && (date >= 5) && (date <= 6)) document.write("<font color=ff0000 size=1>&nbsp;Pyh&auml;inp&auml;iv&auml;"); //2010 , 2011
    if ((year >= 2012) && (date >= 1) && (date <= 6)) document.write("<font color=ff0000 size=1>&nbsp;Pyh&auml;inp&auml;iv&auml;"); //2012 ?
  }
    
  // Sunnuntaina
  if (day == 0)
  {
    if ((year == 2006) && (date == 5)) document.write("Uskonpuhdistuksen muistop."); //2006
    if ((year == 2009) && (date == 1)) document.write("Uskonpuhdistuksen muistop."); //2009 ?
    if ((year == 2011) && (date == 13)) document.write("<font color=ff0000 size=1>&nbsp;Uskonpuhdistuksen muistop."); //2011
	if ((date > 6) && (date < 14)) { document.write("<font color=00aa00 size=2>Is&auml;np&auml;iv&auml; "); liputusPaiva = true;}
    if ((date > 12) && (date <= 20)) document.write("<font color=ff0000 size=2>Valvomisen sunnuntai");
	if ((date >= 19) && (date <= 26)) document.write("<font color=ff0000 size=1>&nbsp;Tuomiosunnuntai"); //2005, 2006, 2007, 2008, 2009, 2011, 2012 ?
  }
  
  if (date == 6) { document.write("<font color=00aa00 size=1>Ruotsal. p&auml;iv&auml;"); liputusPaiva = true;}
  if (date == 20) document.write("<font color=00aa00 size=2>Lapsen oikeuksien p&auml;iv&auml;");

// Joulukuu 11
} else if (month == 11)
{
  if (date == 6) { document.write("<font color=00aa00 size=1>&nbsp;ITSEN&Auml;ISYYSP&Auml;IV&Auml; (" + suomi +" v.)"); liputusPaiva = true;}
  if (date == 8) { document.write("<font color=00aa00 size=1>Jean Sibeliuksen p., syntym&auml;st&auml; (1865) " + jeansibelius +" vuotta, suomalaisen musiikin p&auml;iv&auml;"); liputusPaiva = true;}
  if ((year >= 2006) && (year <= 2007) && (date == 22)) document.write("<font color=00aa00 size=1>Talvip&auml;iv&auml;nseisaus"); //2006, 2007
  if ((year >= 2008) && (year <= 2009) && (date == 21)) document.write("<font color=00aa00 size=1>Talvip&auml;iv&auml;nseisaus"); //2008, 2009 
  if ((year >= 2010) && (year <= 2011) && (date == 22)) document.write("<font color=00aa00 size=1>Talvip&auml;iv&auml;nseisaus"); //2010, 2011
  if ((year >= 2012) && (date == 21)) document.write("<font color=00aa00 size=1>Talvip&auml;iv&auml;nseisaus"); //2012, 2013 ?
  if (date == 24) document.write("<font color=00aa00 size=1>Jouluaatto");
  if (date == 25) document.write("<font color=ff0000 size=2>Joulup&auml;iv&auml;");
  if (date == 26) document.write("<font color=ff0000 size=2>Tapaninp&auml;iv&auml;");
  if (date == 28) document.write("<font color=00aa00 size=1>Viattomien lasten p&auml;iv&auml;");
  if (date == 31) document.write("<font color=00aa00 size=1>Uudenvuodenaatto");
}

  if (liputusPaiva)  // liputuspäivät
  {
    var msg="<img width=12 height=12 src=pics/lippu.png>";
    document.write(" " + msg + " ");
  }

  document.write("<br><\/font>");
}

function initArray() 
{
  this.length = initArray.arguments.length
  for (var i = 0; i < this.length; i++)
  this[i+1] = initArray.arguments[i]
}

function nimiListat(month, date, leap_year) 
{

if (month == 1)
{ 
  var nimiPaiva = new initArray("-","Aapeli","Elmeri, Elmo, Elmer","Ruut",
"Lea, Leea","Harri","Aku, Aukusti, August","Titta, Hilppa","Veikko, Veli, Veijo, Veikka",
"Nyyrikki","Kari, Karri","Toini","Nuutti","Sakari, Saku","Solja",
"Ilmari, Ilmo","Toni, Anton, Anttoni, Antto","Laura","Heikki, Henrik, Henri, Henrikki, Henna, Henni, Henriikka",
"Sebastian","Aune, Oona, Netta, Auni","Visa","Enni, Eine, Eini","Senja",
"Paavo, Pauli, Paul, Paavali","Joonatan","Viljo","Kalle, Kaarlo, Kaarle, Mies","Valtteri","Irja","Alli","Riitta") }
if (month ==2)
{
  if (leap_year) // Karkausvuosi (2000, 2004, 2008, 2012, 2016, 2020, 2024 etc.
  { 
    var nimiPaiva=new initArray("Riitta","Jemina, Lumi, Aamu","Valo","Armi, Ronja","Asser",
    "Terhi, Teija, Tiia, Tea, Terhikki","Riku, Rikhard","Laina","Raija, Raisa","Elina, Ella, Ellen, Elna",
    "Talvikki","Elma, Elmi","Sulo, Sulho","Voitto, Valentin, Tino",
    "Sipi, Sippo","Kai","V&auml;in&ouml;, Karita, Rita, V&auml;in&auml;m&ouml;","Kaino","Eija",
    "Heli, Helin&auml;, Helj&auml;, Hely","Keijo","Tuulikki, Tuuli, Hilda, Tuulia","Aslak",
    "Matti, Matias","Tuija, Tuire","Nestori","Torsti","Onni",
    "Karkausp&auml;iv&auml;","Alpo, Alvi, Alpi") }
  else // Ei karkausvuosi
  { 
    var nimiPaiva=new initArray("Riitta","Jemina, Lumi, Aamu","Valo","Armi, Ronja","Asser",
    "Terhi, Teija, Tiia, Tea, Terhikki","Riku, Rikhard","Laina","Raija, Raisa","Elina, Ella, Ellen, Elna",
    "Talvikki","Elma, Elmi","Sulo, Sulho","Voitto, Valentin, Tino",
    "Sipi, Sippo","Kai","V&auml;in&ouml;, Karita, Rita, V&auml;in&auml;m&ouml;","Kaino","Eija",
    "Heli, Helin&auml;, Helj&auml;, Hely","Keijo","Tuulikki, Tuuli, Hilda, Tuulia","Aslak",
    "Matti, Matias","Tuija, Tuire","Nestori","Torsti","Onni","Alpo, Alvi, Alpi","") } 
}
if (month ==3)
{ 
  var nimiPaiva=new initArray("Alpo, Alvi, Alpi","Virve, Virva, Fanni","Kauko","Ari, Arsi, Atro",
"Leila, Laila","Tarmo","Tarja, Taru","Vilppu","Auvo","Aurora, Aura, Auri","Kalervo",
"Reijo, Reko","Erno, Ernesti, Tarvo","Matilda, Tilda, Mette","Risto",
"Ilkka","Kerttu, Kerttuli","Eetu, Edvard","Juuso, Josefiina, Jooseppi, Joosef",
"Aki, Kim, Joakim, Jaakkima","Pentti","Vihtori","Akseli",
"Gabriel,Kaapo, Kaapro, Kaappo","Aija",
"Manu, Manne, Immanuel, Immo","Sauli, Saul","Armas","Jouni, Joni, Joonas, Joona, Jonne, Jonni","Usko",
"Irma, Irmeli","Peppi, Raita, Pulmu <font color=00aa00 size=1>(Aprilli p&auml;iv&auml;)</font>" ) }
if (month ==4)
{ 
  var nimiPaiva=new initArray("Peppi, Raita, Pulmu","Pellervo","Sampo, Veeti","Ukko","Irene, Irina, Ira, Iro",
"Ville, Vilho, Vili, Jami, Vilhem, Viljami","Allan, Ahvo","Suoma, Suometar",
"Elias, Eelis, Eeli, Eljas","Tero","Verna, Minea","Julia, Julius, Janna, Juliaana","Tellervo","Taito","Linda, Tuomi",
"Jalo, Patrik","Otto","Valto, Valdemar","Pilvi, P&auml;lvi","Nella, Lauha","Anssi, Anselmi",
"Alina","Yrj&ouml;, Jyrki, Jyri, Jori, Jiri, Yrj&auml;n&auml;","Pertti, Albert, Altti","Markku, Marko, Markus","Terttu, Teresa, Tessa",
"Merja","Ilpo, Tuure, Ilppo","Teijo","Mirja, Miia, Mira, Mirva, Mirka, Mirjami, Mirkka","Vappu, Valpuri" )}
if (month ==5)
{ 
  var nimiPaiva=new initArray("Vappu, Valpuri","Vuokko, Viivi","Outi","Roosa, Rosa, Ruusu",
"Melina, Maini","Ylermi","Helmi, Kastehelmi","Heino","Timo, Timi","Aino, Aini, Aina, Ainikki",
"Osmo","Lotta","Kukka, Floora","Tuula","Sofia, Sonja, Sohvi",
"Esteri, Essi, Ester","Maila, Mailis, Maili, Maisa, Rebekka","Erkki, Eero, Eerik, Eerika, Erkka, Eerikki",
"Emilia, Emma, Emmi, Milla, Milja, Milka, Mila, Amalia","Lilja, Karoliina, Lilli","Kosti, Konsta, Konstantin",
"Hemminki, Hemmo","Lyydia, Lyyli","Tuukka, Touko","Urpo","Minna, Vilma, Vilhelmiina, Miina, Mimmi",
"Ritva","Alma","Oiva, Oliver, Olivia, Oivi","Pasi","Helka, Helga","Teemu, Nikodemus" )}
if (month ==6)
{ 
  var nimiPaiva=new initArray("Teemu, Nikodemus","Venla","Orvokki, Viola","Toivo","Sulevi","Kustaa, Ky&ouml;sti, Kustavi",
"Suvi, Roope, Robert","Salomon, Salomo","Ensio","Seppo","Impi, Immi",
"Esko","Raili, Raila","Kielo, Pihla","Vieno, Moona, Viena","P&auml;ivi, P&auml;ivikki, P&auml;iv&auml;","Urho","Tapio","Siiri",
"Into","Ahti, Ahto","Paula, Pauliina, Liina","Aatu, Aatto, Aadolf",
"Johannes, Juhani, Juha, Jukka, Janne, Juho, Jani, Jussi, Juhana,","Uuno",
"Jorma, Jarmo, Jarkko, Jarno, Jere, Jeremias","Elviira, Elvi","Leo",
"Pekka, Petri, Petra, Petteri, Pietari, Pekko","P&auml;ivi&ouml;, P&auml;iv&ouml;","Aaro, Aaron" ) }
if (month == 7)
{ 
  var nimiPaiva=new initArray("Aaro, Aaron","Maria, Maija, Mari, Meeri, Marika, Maiju, Riia, Maaria, Maikki, Kukka-Maaria",
"Arvo","Ulla, Ulpu","Unto, Untamo","Esa, Esaias","Klaus, Launo","Turo, Turkka","Jasmin, Ilta, Jade",
"Saima, Saimi","Elli, Noora, Nelli, Eleonoora","Hermanni, Herkko, Herman","Joel, Ilari, Lari","Aliisa, Alisa",
"Rauni, Rauna","Reino","Ossi, Ossian","Riikka"," Sari, Saara, Sara, Salla, Salli",
"Marketta, Maarit, Reetta, Reeta, Maaret, Margareeta","Johanna, Hanna, Jenni, Jenna, Jonna, Hannele, Hanne, Joanna",
"Leena, Matleena, Leeni, Lenita","Olga, Oili","Kristiina, Tiina, Kirsti, Kirsi, Krista, Kiia, Tinja","Jaakko, Jaakob, Jimi, Jaakoppi",
"Martta","Heidi","Atso","Olavi, Olli, Uolevi, Uoti","Asta","Helena, Elena","Maire" )}
if (month == 8)
{ 
  var nimiPaiva=new initArray("Maire","Kimmo","Nea, Linnea, Neea, Vanamo","Veera","Salme, Sanelma",
"Toimi, Keimo","Lahja","Sylvi, Sylvia, Silva","Erja, Eira","Lauri, Lasse, Lassi",
"Sanna, Susanna, Sanni, Susanne ","Klaara","Jesse","Onerva, Kanerva",
"<font color=00aa00 size=1>Marja, Jaana, Marjatta, Marjo, Marita, Marjut, Marianne, Maritta, Marjaana, Marjukka, Marianna, Jatta</font>","Aulis",
"Verneri","Leevi","Mauno, Maunu","Sami, Samuli, Samu, Samuel","Soini, Veini",
"Iivari, Iivo","Signe, Varma","Perttu","Loviisa","Ilmi, Ilma, Ilmatar",
"Rauli","Tauno","Iina, Iines, Inari","Eemil, Eemeli","Arvi","Pirkka" ) }
if (month == 9)
{ 
  var nimiPaiva= new initArray("Pirkka","Sinikka, Sini, Justus","Soili, Soile, Soila","Ansa","Roni, Mainio",
"Asko","Miro, Arho, Arhippa","Taimi","Isto, Eevert, Vertti","Kalevi, Kaleva",
"Santeri, Aleksanteri, Santtu, Aleksandra, Sandra, Ali, Ale","Valma, Vilja","Orvo","Iida","Sirpa",
"Hilla, Hellevi, Hillevi, Hille","Aili, Aila","Tyyne, Tytti, Tyyni","Reija","Varpu, Vaula",
"Mervi","Mauri","Minja, Miisa, Mielikki","Alvar, Auno","Kullervo","Kuisma","Vesa",
"Arja, Lenni","Mikko, Mika, Mikael, Miika, Miikka, Miska, Miko, Mikaela","Siru, Sirja, Sorja","Rauno, Rainer, Raine, Raino" )}
if (month == 10)
{ 
  var nimiPaiva= new initArray("Rauno, Rainer, Raine, Raino","Valio","Raimo","Saija, Saila, Frans",
"Inkeri, Inka","Pinja, Minttu","Pirkko, Pirjo, Piritta, Prita, Birgitta",
"Hilja","Ilona","Aleksi, Aleksis","Otso, Ohto'","Aarre, Aarto",
"Taina, Tanja, Taija","Elsa, Else, Elsi","Helvi, Heta","Sirkka, Sirkku","Saana, Saina",
"Satu, S&auml;de, Luukas","Uljas","Kauno, Kasperi, Jasper, Jesper",
"Ursula","Anja, Anita, Anniina, Anitta, Anette","Severi","Rasmus, Asmo","Sointu","Niina, Nina, Amanda, Ninni, Manta",
"Helli, Hellin, Hell&auml;, Helle","Simo","Alfred, Urmas","Eila","Arto, Arttu, Artturi","Pyry, Lyly" )}
if (month == 11)
{ 
  var nimiPaiva=new initArray("Pyry, Lyly","Topi, Topias","Terho","Hertta","Reima","Kustaa Aadolfin p&auml;iv&auml;",
"Taisto","Aatos","Teuvo","Martti","Panu","Virpi","Kristian, Ano",
"Iiris","Janina, Janika, Janita, Janette","Aarne, Aarno, Aarni","Eino, Einari","Tenho, Max, Jousia",
"Liisa, Elisa, Eliisa, Liisi, Elisabet, Elise","Jari, Jalmari","Hilma","Silja, Selja","Ismo",
"Lempi, Lemmikki, Sivi","Katri, Kaija, Katja, Kaisa, Kati, Kaarina, Kaisu, Riina, Katariina, Katriina",
"Sisko","Hilkka","Heini, Kaisla","Aimo","Antti, Antero, Atte","Oskari" )}
if (month == 12)
{ 
  var nimiPaiva=new initArray("Oskari","Anelma, Unelma","Meri, Vellamo","Airi, Aira","Selma",
"Niilo, Niko, Niklas, Niki, Nikolai","Sampsa","Kyllikki, Kylli",
"Anna, Anne, Anni, Anu, Anneli, Annikki, Annika, Annukka","Jutta","Tatu, Daniel, Taneli","Tuovi",
"Seija","Jouko","Heimo","Auli, Aulikki, Aada","Raakel","Aapo, Rami, Aappo",
"Iiro, Iisakki, Iikka, Isko","Benjamin, Kerkko","Tuomas, Tomi, Tommi, Tuomo","Raafael","Senni",
"Aatami, Eeva, Eevi, Eveliina"," ","Tapani, Teppo, Tahvo",
"Hannu, Hannes, Hans","Piia","Rauha","Taavetti, Taavi, Daavid","Sylvester, Silvo","Uudenvuodenp&auml;iv&auml;") 
}

return nimiPaiva[date]
}

// 2010 Tenho, Max, Jousia
function setDateNames(month, date, leap_year)
{

  num_month = month + 1;
    
  document.writeln("&nbsp;<font color=000000 size=1>Nimip&auml;iv&auml;&nbsp;:" + 
  "<font color=00aa00 size=2>&nbsp;" + 
  nimiListat(num_month, date, leap_year) +"<\/font>");

  document.write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=aaaaaa size=1>Huomenna&nbsp;:" + 
  "<font color=aaaaaa size=2>&nbsp;" + 
  nimiListat(num_month, date+1, leap_year) +"<\/font>")
  document.writeln(" ");
}