
Max_kk=new Array(
'31',
'28',
'31',
'30',
'31',
'30',
'31',
'31',
'30',
'31',
'30',
'31',// joulukuu
'31',
'29',
'31',
'30',
'31',
'30',
'31',
'31',
'30',
'31',
'30',
'31');


var html_before_clock="<b><font face='verdana,arial,helvetica,sans-serif' size='1' color='#FFFFFF'>"
var pyha="<b><font face='verdana,arial,helvetica,sans-serif' size='1' color='#FF0000'>"
var html_after_clock="</font>"


if(navigator.appName=="Netscape") {
document.write('<layer id="clock"></layer><br>');
}

if(navigator.appVersion.indexOf("MSIE") !=1 ) {
document.write('<span id="clock"></span>');
}

DaysofWeek=new Array()
DaysofWeek[0]="sunnuntai"
DaysofWeek[1]="maanantai"
DaysofWeek[2]="tiistai"
DaysofWeek[3]="keskiviikko"
DaysofWeek[4]="torstai"
DaysofWeek[5]="perjantai"
DaysofWeek[6]="lauantai"

Months=new Array()
Months[0]="tammikuuta"
Months[1]="helmikuuta"
Months[2]="maaliskuuta"
Months[3]="huhtikuuta"
Months[4]="toukokuuta"
Months[5]="kesäkuuta"
Months[6]="heinäkuuta"
Months[7]="elokuuta"
Months[8]="syyskuuta"
Months[9]="lokakuuta"
Months[10]="marraskuuta"
Months[11]="joulukuuta"



function upclock(){
var dte=new Date();
var hrs=dte.getHours();
var min=dte.getMinutes();
var sec=dte.getSeconds();
var day=DaysofWeek[dte.getDay()]
var date=dte.getDate()
var month=Months[dte.getMonth()]
var year=dte.getFullYear()
var jakojaannos=year%4
var kk=dte.getMonth()

var d=new Date()
var vday=d.getDate()
var vmonth=d.getMonth() + 1
var viikko

// Tammikuu
if (vday==1 && vmonth==1)viikko=52
if (vday==2 && vmonth==1)viikko=1
if (vday==3 && vmonth==1)viikko=1
if (vday==4 && vmonth==1)viikko=1
if (vday==5 && vmonth==1)viikko=1
if (vday==6 && vmonth==1)viikko=1
if (vday==7 && vmonth==1)viikko=1
if (vday==8 && vmonth==1)viikko=1
if (vday==9 && vmonth==1)viikko=2
if (vday==10 && vmonth==1)viikko=2
if (vday==11 && vmonth==1)viikko=2
if (vday==12 && vmonth==1)viikko=2
if (vday==13 && vmonth==1)viikko=2
if (vday==14 && vmonth==1)viikko=2
if (vday==15 && vmonth==1)viikko=2
if (vday==16 && vmonth==1)viikko=3
if (vday==17 && vmonth==1)viikko=3
if (vday==18 && vmonth==1)viikko=3
if (vday==19 && vmonth==1)viikko=3
if (vday==20 && vmonth==1)viikko=3
if (vday==21 && vmonth==1)viikko=3
if (vday==22 && vmonth==1)viikko=3
if (vday==23 && vmonth==1)viikko=4
if (vday==24 && vmonth==1)viikko=4
if (vday==25 && vmonth==1)viikko=4
if (vday==26 && vmonth==1)viikko=4
if (vday==27 && vmonth==1)viikko=4
if (vday==28 && vmonth==1)viikko=4
if (vday==29 && vmonth==1)viikko=4
if (vday==30 && vmonth==1)viikko=5
if (vday==31 && vmonth==1)viikko=5

// Helmikuu
if (vday==1 && vmonth==2)viikko=5
if (vday==2 && vmonth==2)viikko=5
if (vday==3 && vmonth==2)viikko=5
if (vday==4 && vmonth==2)viikko=5
if (vday==5 && vmonth==2)viikko=5
if (vday==6 && vmonth==2)viikko=6
if (vday==7 && vmonth==2)viikko=6
if (vday==8 && vmonth==2)viikko=6
if (vday==9 && vmonth==2)viikko=6
if (vday==10 && vmonth==2)viikko=6
if (vday==11 && vmonth==2)viikko=6
if (vday==12 && vmonth==2)viikko=6
if (vday==13 && vmonth==2)viikko=7
if (vday==14 && vmonth==2)viikko=7
if (vday==15 && vmonth==2)viikko=7
if (vday==16 && vmonth==2)viikko=7
if (vday==17 && vmonth==2)viikko=7
if (vday==18 && vmonth==2)viikko=7
if (vday==19 && vmonth==2)viikko=7
if (vday==20 && vmonth==2)viikko=8
if (vday==21 && vmonth==2)viikko=8
if (vday==22 && vmonth==2)viikko=8
if (vday==23 && vmonth==2)viikko=8
if (vday==24 && vmonth==2)viikko=8
if (vday==25 && vmonth==2)viikko=8
if (vday==26 && vmonth==2)viikko=8
if (vday==27 && vmonth==2)viikko=9
if (vday==28 && vmonth==2)viikko=9
if (vday==29 && vmonth==2)viikko=9

// Maaliskuu
if (vday==1 && vmonth==3)viikko=9
if (vday==2 && vmonth==3)viikko=9
if (vday==3 && vmonth==3)viikko=9
if (vday==4 && vmonth==3)viikko=9
if (vday==5 && vmonth==3)viikko=10
if (vday==6 && vmonth==3)viikko=10
if (vday==7 && vmonth==3)viikko=10
if (vday==8 && vmonth==3)viikko=10
if (vday==9 && vmonth==3)viikko=10
if (vday==10 && vmonth==3)viikko=10
if (vday==11 && vmonth==3)viikko=10
if (vday==12 && vmonth==3)viikko=11
if (vday==13 && vmonth==3)viikko=11
if (vday==14 && vmonth==3)viikko=11
if (vday==15 && vmonth==3)viikko=11
if (vday==16 && vmonth==3)viikko=11
if (vday==17 && vmonth==3)viikko=11
if (vday==18 && vmonth==3)viikko=11
if (vday==19 && vmonth==3)viikko=12
if (vday==20 && vmonth==3)viikko=12
if (vday==21 && vmonth==3)viikko=12
if (vday==22 && vmonth==3)viikko=12
if (vday==23 && vmonth==3)viikko=12
if (vday==24 && vmonth==3)viikko=12
if (vday==25 && vmonth==3)viikko=12
if (vday==26 && vmonth==3)viikko=13
if (vday==27 && vmonth==3)viikko=13
if (vday==28 && vmonth==3)viikko=13
if (vday==29 && vmonth==3)viikko=13
if (vday==30 && vmonth==3)viikko=13
if (vday==31 && vmonth==3)viikko=13

// Huhtikuu
if (vday==1 && vmonth==4)viikko=13
if (vday==2 && vmonth==4)viikko=14
if (vday==3 && vmonth==4)viikko=14
if (vday==4 && vmonth==4)viikko=14
if (vday==5 && vmonth==4)viikko=14
if (vday==6 && vmonth==4)viikko=14
if (vday==7 && vmonth==4)viikko=14
if (vday==8 && vmonth==4)viikko=14
if (vday==9 && vmonth==4)viikko=15
if (vday==10 && vmonth==4)viikko=15
if (vday==11 && vmonth==4)viikko=15
if (vday==12 && vmonth==4)viikko=15
if (vday==13 && vmonth==4)viikko=15
if (vday==14 && vmonth==4)viikko=15
if (vday==15 && vmonth==4)viikko=15
if (vday==16 && vmonth==4)viikko=16
if (vday==17 && vmonth==4)viikko=16
if (vday==18 && vmonth==4)viikko=16
if (vday==19 && vmonth==4)viikko=16
if (vday==20 && vmonth==4)viikko=16
if (vday==21 && vmonth==4)viikko=16
if (vday==22 && vmonth==4)viikko=16
if (vday==23 && vmonth==4)viikko=17
if (vday==24 && vmonth==4)viikko=17
if (vday==25 && vmonth==4)viikko=17
if (vday==26 && vmonth==4)viikko=17
if (vday==27 && vmonth==4)viikko=17
if (vday==28 && vmonth==4)viikko=17
if (vday==29 && vmonth==4)viikko=17
if (vday==30 && vmonth==4)viikko=18

// Toukokuu
if (vday==1 && vmonth==5)viikko=18
if (vday==2 && vmonth==5)viikko=18
if (vday==3 && vmonth==5)viikko=18
if (vday==4 && vmonth==5)viikko=18
if (vday==5 && vmonth==5)viikko=18
if (vday==6 && vmonth==5)viikko=18
if (vday==7 && vmonth==5)viikko=19
if (vday==8 && vmonth==5)viikko=19
if (vday==9 && vmonth==5)viikko=19
if (vday==10 && vmonth==5)viikko=19
if (vday==11 && vmonth==5)viikko=19
if (vday==12 && vmonth==5)viikko=19
if (vday==13 && vmonth==5)viikko=19
if (vday==14 && vmonth==5)viikko=20
if (vday==15 && vmonth==5)viikko=20
if (vday==16 && vmonth==5)viikko=20
if (vday==17 && vmonth==5)viikko=20
if (vday==18 && vmonth==5)viikko=20
if (vday==19 && vmonth==5)viikko=20
if (vday==20 && vmonth==5)viikko=20
if (vday==21 && vmonth==5)viikko=21
if (vday==22 && vmonth==5)viikko=21
if (vday==23 && vmonth==5)viikko=21
if (vday==24 && vmonth==5)viikko=21
if (vday==25 && vmonth==5)viikko=21
if (vday==26 && vmonth==5)viikko=21
if (vday==27 && vmonth==5)viikko=21
if (vday==28 && vmonth==5)viikko=22
if (vday==29 && vmonth==5)viikko=22
if (vday==30 && vmonth==5)viikko=22
if (vday==31 && vmonth==5)viikko=22

// Kesäkuu
if (vday==1 && vmonth==6)viikko=22
if (vday==2 && vmonth==6)viikko=22
if (vday==3 && vmonth==6)viikko=22
if (vday==4 && vmonth==6)viikko=23
if (vday==5 && vmonth==6)viikko=23
if (vday==6 && vmonth==6)viikko=23
if (vday==7 && vmonth==6)viikko=23
if (vday==8 && vmonth==6)viikko=23
if (vday==9 && vmonth==6)viikko=23
if (vday==10 && vmonth==6)viikko=23
if (vday==11 && vmonth==6)viikko=24
if (vday==12 && vmonth==6)viikko=24
if (vday==13 && vmonth==6)viikko=24
if (vday==14 && vmonth==6)viikko=24
if (vday==15 && vmonth==6)viikko=24
if (vday==16 && vmonth==6)viikko=24
if (vday==17 && vmonth==6)viikko=24
if (vday==18 && vmonth==6)viikko=25
if (vday==19 && vmonth==6)viikko=25
if (vday==20 && vmonth==6)viikko=25
if (vday==21 && vmonth==6)viikko=25
if (vday==22 && vmonth==6)viikko=25
if (vday==23 && vmonth==6)viikko=25
if (vday==24 && vmonth==6)viikko=25
if (vday==25 && vmonth==6)viikko=26
if (vday==26 && vmonth==6)viikko=26
if (vday==27 && vmonth==6)viikko=26
if (vday==28 && vmonth==6)viikko=26
if (vday==29 && vmonth==6)viikko=26
if (vday==30 && vmonth==6)viikko=26

// Heinäkuu
if (vday==1 && vmonth==7)viikko=26
if (vday==2 && vmonth==7)viikko=27
if (vday==3 && vmonth==7)viikko=27
if (vday==4 && vmonth==7)viikko=27
if (vday==5 && vmonth==7)viikko=27
if (vday==6 && vmonth==7)viikko=27
if (vday==7 && vmonth==7)viikko=27
if (vday==8 && vmonth==7)viikko=27
if (vday==9 && vmonth==7)viikko=28
if (vday==10 && vmonth==7)viikko=28
if (vday==11 && vmonth==7)viikko=28
if (vday==12 && vmonth==7)viikko=28
if (vday==13 && vmonth==7)viikko=28
if (vday==14 && vmonth==7)viikko=28
if (vday==15 && vmonth==7)viikko=28
if (vday==16 && vmonth==7)viikko=29
if (vday==17 && vmonth==7)viikko=29
if (vday==18 && vmonth==7)viikko=29
if (vday==19 && vmonth==7)viikko=29
if (vday==20 && vmonth==7)viikko=29
if (vday==21 && vmonth==7)viikko=29
if (vday==22 && vmonth==7)viikko=29
if (vday==23 && vmonth==7)viikko=30
if (vday==24 && vmonth==7)viikko=30
if (vday==25 && vmonth==7)viikko=30
if (vday==26 && vmonth==7)viikko=30
if (vday==27 && vmonth==7)viikko=30
if (vday==28 && vmonth==7)viikko=30
if (vday==29 && vmonth==7)viikko=30
if (vday==30 && vmonth==7)viikko=31
if (vday==31 && vmonth==7)viikko=31

// Elokuu
if (vday==1 && vmonth==8)viikko=31
if (vday==2 && vmonth==8)viikko=31
if (vday==3 && vmonth==8)viikko=31
if (vday==4 && vmonth==8)viikko=31
if (vday==5 && vmonth==8)viikko=31
if (vday==6 && vmonth==8)viikko=32
if (vday==7 && vmonth==8)viikko=32
if (vday==8 && vmonth==8)viikko=32
if (vday==9 && vmonth==8)viikko=32
if (vday==10 && vmonth==8)viikko=32
if (vday==11 && vmonth==8)viikko=32
if (vday==12 && vmonth==8)viikko=32
if (vday==13 && vmonth==8)viikko=33
if (vday==14 && vmonth==8)viikko=33
if (vday==15 && vmonth==8)viikko=33
if (vday==16 && vmonth==8)viikko=33
if (vday==17 && vmonth==8)viikko=33
if (vday==18 && vmonth==8)viikko=33
if (vday==19 && vmonth==8)viikko=33
if (vday==20 && vmonth==8)viikko=34
if (vday==21 && vmonth==8)viikko=34
if (vday==22 && vmonth==8)viikko=34
if (vday==23 && vmonth==8)viikko=34
if (vday==24 && vmonth==8)viikko=34
if (vday==25 && vmonth==8)viikko=34
if (vday==26 && vmonth==8)viikko=34
if (vday==27 && vmonth==8)viikko=35
if (vday==28 && vmonth==8)viikko=35
if (vday==29 && vmonth==8)viikko=35
if (vday==30 && vmonth==8)viikko=35
if (vday==31 && vmonth==8)viikko=35

// Syyskuu
if (vday==1 && vmonth==9)viikko=35
if (vday==2 && vmonth==9)viikko=35
if (vday==3 && vmonth==9)viikko=36
if (vday==4 && vmonth==9)viikko=36
if (vday==5 && vmonth==9)viikko=36
if (vday==6 && vmonth==9)viikko=36
if (vday==7 && vmonth==9)viikko=36
if (vday==8 && vmonth==9)viikko=36
if (vday==9 && vmonth==9)viikko=36
if (vday==10 && vmonth==9)viikko=37
if (vday==11 && vmonth==9)viikko=37
if (vday==12 && vmonth==9)viikko=37
if (vday==13 && vmonth==9)viikko=37
if (vday==14 && vmonth==9)viikko=37
if (vday==15 && vmonth==9)viikko=37
if (vday==16 && vmonth==9)viikko=37
if (vday==17 && vmonth==9)viikko=38
if (vday==18 && vmonth==9)viikko=38
if (vday==19 && vmonth==9)viikko=38
if (vday==20 && vmonth==9)viikko=38
if (vday==21 && vmonth==9)viikko=38
if (vday==22 && vmonth==9)viikko=38
if (vday==23 && vmonth==9)viikko=38
if (vday==24 && vmonth==9)viikko=39
if (vday==25 && vmonth==9)viikko=39
if (vday==26 && vmonth==9)viikko=39
if (vday==27 && vmonth==9)viikko=39
if (vday==28 && vmonth==9)viikko=39
if (vday==29 && vmonth==9)viikko=39
if (vday==30 && vmonth==9)viikko=39

// Lokakuu
if (vday==1 && vmonth==10)viikko=40
if (vday==2 && vmonth==10)viikko=40
if (vday==3 && vmonth==10)viikko=40
if (vday==4 && vmonth==10)viikko=40
if (vday==5 && vmonth==10)viikko=40
if (vday==6 && vmonth==10)viikko=40
if (vday==7 && vmonth==10)viikko=40
if (vday==8 && vmonth==10)viikko=41
if (vday==9 && vmonth==10)viikko=41
if (vday==10 && vmonth==10)viikko=41
if (vday==11 && vmonth==10)viikko=41
if (vday==12 && vmonth==10)viikko=41
if (vday==13 && vmonth==10)viikko=41
if (vday==14 && vmonth==10)viikko=41
if (vday==15 && vmonth==10)viikko=42
if (vday==16 && vmonth==10)viikko=42
if (vday==17 && vmonth==10)viikko=42
if (vday==18 && vmonth==10)viikko=42
if (vday==19 && vmonth==10)viikko=42
if (vday==20 && vmonth==10)viikko=42
if (vday==21 && vmonth==10)viikko=42
if (vday==22 && vmonth==10)viikko=43
if (vday==23 && vmonth==10)viikko=43
if (vday==24 && vmonth==10)viikko=43
if (vday==25 && vmonth==10)viikko=43
if (vday==26 && vmonth==10)viikko=43
if (vday==27 && vmonth==10)viikko=43
if (vday==28 && vmonth==10)viikko=43
if (vday==29 && vmonth==10)viikko=44
if (vday==30 && vmonth==10)viikko=44
if (vday==31 && vmonth==10)viikko=44

// Marraskuu
if (vday==1 && vmonth==11)viikko=44
if (vday==2 && vmonth==11)viikko=44
if (vday==3 && vmonth==11)viikko=44
if (vday==4 && vmonth==11)viikko=44
if (vday==5 && vmonth==11)viikko=45
if (vday==6 && vmonth==11)viikko=45
if (vday==7 && vmonth==11)viikko=45
if (vday==8 && vmonth==11)viikko=45
if (vday==9 && vmonth==11)viikko=45
if (vday==10 && vmonth==11)viikko=45
if (vday==11 && vmonth==11)viikko=45
if (vday==12 && vmonth==11)viikko=46
if (vday==13 && vmonth==11)viikko=46
if (vday==14 && vmonth==11)viikko=46
if (vday==15 && vmonth==11)viikko=46
if (vday==16 && vmonth==11)viikko=46
if (vday==17 && vmonth==11)viikko=46
if (vday==18 && vmonth==11)viikko=46
if (vday==19 && vmonth==11)viikko=47
if (vday==20 && vmonth==11)viikko=47
if (vday==21 && vmonth==11)viikko=47
if (vday==22 && vmonth==11)viikko=47
if (vday==23 && vmonth==11)viikko=47
if (vday==24 && vmonth==11)viikko=47
if (vday==25 && vmonth==11)viikko=47
if (vday==26 && vmonth==11)viikko=48
if (vday==27 && vmonth==11)viikko=48
if (vday==28 && vmonth==11)viikko=48
if (vday==29 && vmonth==11)viikko=48
if (vday==30 && vmonth==11)viikko=48

// Joulukuu
if (vday==1 && vmonth==12)viikko=48
if (vday==2 && vmonth==12)viikko=48
if (vday==3 && vmonth==12)viikko=49
if (vday==4 && vmonth==12)viikko=49
if (vday==5 && vmonth==12)viikko=49
if (vday==6 && vmonth==12)viikko=49
if (vday==7 && vmonth==12)viikko=49
if (vday==8 && vmonth==12)viikko=49
if (vday==9 && vmonth==12)viikko=49
if (vday==10 && vmonth==12)viikko=50
if (vday==11 && vmonth==12)viikko=50
if (vday==12 && vmonth==12)viikko=50
if (vday==13 && vmonth==12)viikko=50
if (vday==14 && vmonth==12)viikko=50
if (vday==15 && vmonth==12)viikko=50
if (vday==16 && vmonth==12)viikko=50
if (vday==17 && vmonth==12)viikko=51
if (vday==18 && vmonth==12)viikko=51
if (vday==19 && vmonth==12)viikko=51
if (vday==20 && vmonth==12)viikko=51
if (vday==21 && vmonth==12)viikko=51
if (vday==22 && vmonth==12)viikko=51
if (vday==23 && vmonth==12)viikko=51
if (vday==24 && vmonth==12)viikko=52
if (vday==25 && vmonth==12)viikko=52
if (vday==26 && vmonth==12)viikko=52
if (vday==27 && vmonth==12)viikko=52
if (vday==28 && vmonth==12)viikko=52
if (vday==29 && vmonth==12)viikko=52
if (vday==30 && vmonth==12)viikko=52
if (vday==31 && vmonth==12)viikko=1

if (jakojaannos==0){
	//kark_vuosi="Karkausvuosi"
	// alk_ind=alku_indeksi datataulukossa	
alk_ind=12
	
}
else
{	//kark_vuosi="Ei karkausvuosi"
	alk_ind=0
	
}

var col=":";
var spc=" ";
var piste=".";



if(hrs==0)hrs=12;
if(hrs<=9)hrs="0"+hrs;
if(min<=9)min="0"+min
if(sec<=9)sec="0"+sec;


if(navigator.appName=="Netscape") {
document.clock.document.write=html_before_clock+day+spc+date+"/"+Max_kk[alk_ind+kk]+piste+month+
spc+year+spc+"viikko "+viikko+spc+"|"+spc+hrs+col+min+col+sec+html_after_clock;
document.clock.document.close();

}

if(navigator.appVersion.indexOf("MSIE") !=1 ) {
clock.innerHTML=html_before_clock+day+spc+date+"/"+Max_kk[alk_ind+kk]+piste+spc+month+
spc+year+spc+"viikko "+viikko+spc+"|"+spc+hrs+col+min+col+sec+html_after_clock;

}
}
setInterval("upclock()",1000);
//-->

