////////
// ROMA AETERNA - CALENDARIVS
////////

function COR(NA,P)
{var UN = new Array("M","C","X","I")
var QVI = new Array(" ","D","L","V")
if (NA==0) var cor=""
if (NA==1) var cor=UN[P]
if (NA==2) var cor=UN[P]+UN[P]
if (NA==3) var cor=UN[P]+UN[P]+UN[P]
if (NA==4) var cor=UN[P]+QVI[P]
if (NA==5) var cor=QVI[P]
if (NA==6) var cor=QVI[P]+UN[P]
if (NA==7) var cor=QVI[P]+UN[P]+UN[P]
if (NA==8) var cor=QVI[P]+UN[P]+UN[P]+UN[P]
if (NA==9) var cor=UN[P]+UN[P-1]
return cor}

function NVM(num)
{var cor=""
for (var milia=0;num>=1000;milia++){
 cor+="M"
 num-=1000}
for (var centum=0;num>=100;centum++)
num-=100
for (var decem=0;num>=10;decem++)
num-=10
var cent=COR(centum,1)
var dec=COR(decem,2)
var un=COR(num,3)
return cor+cent+dec+un}

function DIES(die)
{menses = new Array("IANVARI","FEBRVARI","MARTI","APRIL","MAI",
"IVNI","IVLI","AVGVST","SEPTEMBR","OCTOBR","NOVEMBR","DECEMBR")
mensesbrev = new Array(3,4,4,3,3,3,3,3,4,3,3,3)
accpl = new Array("AS","AS","AS","ES","AS","AS","AS","AS","ES","ES","ES","ES")
ablpl = new Array("IS","IS","IS","IBVS","IS","IS","IS","IS","IBVS","IBVS","IBVS","IBVS")
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 annus=die.getYear ()
var mensis=die.getMonth ()
var dies=die.getDate ()
var postm=mensis+1
if (postm==12) postm=0
if (((annus % 4)==0)&&((annus % 100)!=0)&&(mensis==1)&&(dies>=25))
bis=new Boolean(true)
else
bis=new Boolean(false)
if ((mensis==1)&&(bis==true))
 var kl=30
 else
 var kl=kal[mensis]
if ((mensis==2)|(mensis==4)|(mensis==6)|(mensis==9)){
var none=7
var id=15
}
else{
var none=5
var id=13
}
if (dies==1) var corr="KALENDIS· "+menses[mensis]+ablpl[mensis]
if ((dies==(none-1))|(dies==(id-1))|(dies==(kl-1))){
 var corr="PRIDIE "
 if (dies==(none-1)) corr+="NONAS "
 if (dies==(id-1)) corr+="IDVS "
 if (dies==(kl-1)){
 corr+="KALENDAS "
 corr+=menses[postm]
 corr+=accpl[postm]
 }
 else{
 corr+=menses[mensis]
 corr+=accpl[mensis]
 }
}
if ((dies==none)|(dies==id)){
 if (dies==none) var corr="NONIS "
 if (dies==id) var corr="IDIBVS "
 corr+=menses[mensis]
 corr+=ablpl[mensis]
}
if ((dies>1)&&(((dies<(none-1))|((dies>none)&&(dies<(id-1)))|((dies>id)&&((dies<(kl-1)))))))
{var corr=""
 if (dies<none){
 var corb=" NON&middot; "
 var postd=none+1-dies
var corp=NVM(postd)+" "
 }
 if ((dies>none)&&(dies<id)){
 var corb=" ID&middot; "
 var postd=id+1-dies
var corp=NVM(postd)+" "
 }
 if (((dies>id)&&(dies<(kl-1)))&&(((bis==false)|((bis==true)&&(dies>25))))){
 var corb=" KAL&middot; "
 var postd=kl+1-dies
 mensis=postm
 }
 if ((bis==false)|((bis==true)&&(dies>25)))
 var corp=NVM(postd)+"&nbsp; "
 corr+=corp
 corr+=corb
corr+=menses[mensis].substring(0,mensesbrev[mensis])+"&middot; "
}
 if ((bis==true)&&(dies==25))
 var corr="BIS&middot; VI&middot; KAL&middot; MART&middot; "
return corr}

function ANNVS(annus)
{var A2 =NVM(annus+753)+"&nbsp; A&middot; V&middot; C&middot;"
return A2}

var hodie=new Date ()
var annus=hodie.getYear ()
 if(annus < 1000){annus += 1900}
var mensis=hodie.getMonth ()
var dies=hodie.getDate ()