<!--

function stri(NM,P)
{var UNO = new Array("M","C","X","I")
var CINQUE = new Array(" ","D","L","V")
if (NM==0) var st="" 
if (NM==1) var st=UNO[P] 
if (NM==2) var st=UNO[P]+UNO[P]
if (NM==3) var st=UNO[P]+UNO[P]+UNO[P]
if (NM==4) var st=UNO[P]+CINQUE[P]
if (NM==5) var st=CINQUE[P] 
if (NM==6) var st=CINQUE[P]+UNO[P]
if (NM==7) var st=CINQUE[P]+UNO[P]+UNO[P] 
if (NM==8) var st=CINQUE[P]+UNO[P]+UNO[P]+UNO[P]
if (NM==9) var st=UNO[P]+UNO[P-1]
return st}

function arabrom(num)
{var st=""
for (var migliaia=0;num>=1000;migliaia++){
 st+="M"
 num-=1000}
for (var centinaia=0;num>=100;centinaia++)
num-=100
for (var decine=0;num>=10;decine++)
num-=10
var cent=stri(centinaia,1)
var decin=stri(decine,2)
var un=stri(num,3)
return st+cent+decin+un}

function annolatino(anno)
{if (anno<200)
anno+=1900
ann=arabrom(anno)
var A1 ="anno"
ann=arabrom(anno+753)
var A2 ="&nbsp;"+ann+"&nbsp;a.u.c."
return A1+A2}

function datalatina(data)
{mesi = new Array("Ian.","Feb.","Mart.","Apr","Mai.",
"Iun.","Jul.","Aug.","Sept.","Oct.","Nov.","Dec.")
mesiabbr = new Array(3,4,4,3,3,3,5,4,4,3,3,3)
set1decl = new Array(1,2,3,5,6)
setid = new Array(3,5,7,10)
kal =new Array(32,29,32,31,32,31,32,32,31,32,31,32)
var anno=data.getYear ()
var mese=data.getMonth ()
var giorno=data.getDate ()
var msucc=mese+1
if (msucc==12) msucc=0
if (((anno % 4)==0)&&((anno % 100)!=0)&&(mese==1)&&(giorno>=25))
bis=new Boolean(true)
else
bis=new Boolean(false)
if ((mese==1)&&(bis==true))
 var kl=30
 else
 var kl=kal[mese]
if ((mese==2)|(mese==4)|(mese==6)|(mese==9)){
var none=7
var id=15
}
else{
var none=5
var id=13
}
if (giorno==1) var stf="Kal. "+mesi[mese]
if ((giorno==(none-1))|(giorno==(id-1))|(giorno==(kl-1))){
 var stf="pridie "
 if (giorno==(none-1)) stf+="Non. "
 if (giorno==(id-1)) stf+="Id. "
 if (giorno==(kl-1)){ 
 stf+="Kal. "
 stf+=mesi[msucc]
 }
 else{
 stf+=mesi[mese]
 }
}   
if ((giorno==none)|(giorno==id)){
 if (giorno==none) var stf="Non. "
 if (giorno==id) var stf="Id. "
 stf+=mesi[mese]
} 
if ((giorno>1)&&(((giorno<(none-1))|((giorno>none)&&(giorno<(id-1)))|((giorno>id)&&((giorno<(kl-1)))))))
{var stf=""
 if (giorno<none){
 var str2="Non. " 
 var nvar=none+1-giorno
var stvar=arabrom(nvar)+" "
 }
 if ((giorno>none)&&(giorno<id)){
 var str2="Id. "   
 var nvar=id+1-giorno
var stvar=arabrom(nvar)+" "
 }
 if (((giorno>id)&&(giorno<(kl-1)))&&(((bis==false)|((bis==true)&&(giorno>25))))){
 var str2="Kal. "
 var nvar=kl+1-giorno
 mese=msucc
 }
 if ((bis==false)|((bis==true)&&(giorno>25))) 
 var stvar=arabrom(nvar)+" "
 stf+=stvar
 stf+=str2
stf+=mesi[mese].substring(0,mesiabbr[mese])+" "
}
 if ((bis==true)&&(giorno==25))
 var stf="a.d. bis VI Kal. Mart."
return stf}

function datanostra(data){
var ms=data.getMonth ()
var gr=data.getDate ()
var gs=data.getDay ()
var an=data.getYear ()
if (an<200)
an+=1900
return Sett[gs]+" "+gr+" "+Mesi[ms]+" "+an
}

var oggi=new Date (document.lastModified)
var anno=oggi.getYear (document.lastModified)

var gior=oggi.getDate (document.lastModified)
var mese=oggi.getMonth (document.lastModified)

function fr(g1,g2,m,st,n)
{if (n==1) 
var st2="celebratur" 
else
var st2="celebrantur"
if (((gior>=g1)&&(gior<=g2))&&(m==mese)&&(strfest==""))
strfest=st+" "+st2}


document.writeln(datalatina(oggi))
document.writeln(annolatino(anno))
document.write('<br>');
document.write('&nbsp;&nbsp;&nbsp;<a href="mailto:janne.niemi@iki.fi">janne.niemi@iki.fi</a>');
document.write('<br>');
document.write('<a href="http://validator.w3.org/check/referer">');
document.write('<img border="0" src="../kuvat/valid-html401.gif" alt="Valid HTML 4.01!" height="31" width="88"></a>');
document.write('&nbsp;&nbsp;&nbsp;');
//-->




