var stil = new Array('Stil', 'christlich', 'julianisch', 'gregorianisch', 'islamisch', 'islamisch (E15, Z15)', 'islamisch (E15, Z16)', 'islamisch (E16, Z15)',     'jüdisch', 'koptisch', 'iranisch (neu)', 'iranisch (schahi)', 'iranisch (dschelali)', 'iranisch (Yazdegard)', 'seleukidisch', 'Maliyye');
var wostring = new Array('Montag','Dienstag','Mittwoch','Donnerstag','Freitag',                                            'Samstag','Sonntag');
var leapstring = new Array('Gemeinjahr', 'Schaltjahr', 'mangelhaftes Gemeinjahr', 'regelmassiges Gemeinjahr', 'uberzahliges Gemeinjahr', 'mangelhaftes Schaltjahr', 'regelmassiges Schaltjahr', 'uberzahliges Schaltjahr');
var ChrMonth = new Array('christl. Monate', 'Januar', 'Februar', 'Marz', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember');
var IslMonth = new Array('isl. Monate', 'Muharram', 'Safar', 'Rabi I', 'Rabi II', 'Dschamadi I', 'Dschamadi II', 'Radschab', 'Schaban', 'Ramadan', 'Schawwal','Dhulkade', 'Dhulhidsche');
var YudMonth = new Array('jud. Monate', 'Tischri', 'Marcheschan', 'Kislev', 'Tebet', 'Schebat', 'Adar', 'We-Adar', 'Nisan', 'Iyar', 'Siwan', 'Tammuz', 'Ab', 'Elul');
var KopMonth = new Array('koptische Monate', 'Tut', 'Babah', 'Hatur', 'Kijak', 'Tubeh', 'Amschir', 'Barmahat', 'Barmudeh', 'Beschnes', 'Bauneh', 'Ebib', 'Misra', 'Epagomene');
var IraMonth = new Array('iranische Monate', 'فروردین', 'اردیبهشت', 'خرداد', 'تير', 'مرداد', 'شهريور', 'مهر', 'آبان', 'آذر', 'دي', 'بهمن', 'اسفند', 'Epagomene');
var SyrMonth = new Array('syrisch-arabische Monate', 'Azar (Mart)', 'Nisan', 'Iyar (Mayis)', 'Haziran', 'Tammuz', 'Ab (Agustos)', 'Eilul', 'Tischrin I', 'Tischrin II', 'Kanun I', 'Kanun II', 'Schebat');

// Nikolaus A. Baer   www. nabkal.de
function floor(x)
{ return Math.floor(x);
}

function mod(n,d)
{
 var q = n%d;
 if (q<0){q = d +q;}
 return q;
}

function SchaltJul(y)
{
 var x;
 if(y%4 == 0)
        {x = 1;}
 else
        x = 0;
 return x;
}

function SchaltGreg(y)
{
 var x;
 if((y%4 == 0) && (y%400 ==0 || y%100 !=  0))
        {x = 1;}
 else
        x = 0;
 return x;
}

function SchaltIsl(y, a)
{
 var isl = 354 + 11/30;
 var x = floor(y * isl + a) - floor ((y-1)* isl + a) - 354;
 return x;
}

function SchaltIranNeu(y)
{
 var x = getDayIranNeu(1,1,y+1) - getDayIranNeu(1,1,y) - 365;
 return x;
}

function SchaltIranDschel(y)
{
 var x = getDayIranDschel(1,1,y+1) - getDayIranDschel(1,1,y) - 365;
 return x;
}

function SchaltYud(y)
{
 var q = mod(y,19);
 var x =0;
 if (q == 3 || q ==6 || q==8 || q ==11 || q ==14 || q == 17 || q ==0){x = 1};
 return x;
}


function MolTisch(y)
{
 var p, q, m, tz, tz1, rest, rest1,tag, s;
 var schalt = new Array(0,0,0,1,1,1,2,2,3,3,3,4,4,4,5,5,5,6,6);
 y--;
 p     = floor(y/19);
 rest  = p * 17875;
 tz1   = floor(rest / 25920);
 rest -= tz1 * 25920;
 tz    = p * 6939 + tz1;

 q     = mod(y,19);
 m     = q*12 + schalt[q];
 tz   += m*29;
 rest1 = m*13753 + 5604;
 tz1   = floor(rest1 / 25920);
 rest1 = rest1 - tz1*25920;
 rest += rest1;
         if (rest>25919){rest -=25920; tz++;}
 tz   += tz1;

 if (rest>19439) {tz++;}  //Ausnahme Yach

 tag = mod(tz,7);              // Ausnahme Adu
 if (tag ==2 || tag  ==4 || tag == 6) {tz++;}

 if (SchaltYud(y+1) == 0 && tag == 1 && rest>9923 && rest<19440){tz +=2;}

 if (SchaltYud(y)   == 1 && tag == 0 && rest>16788 && rest<19440){tz++;}

 var x = tz;
 return x;
}
function Datum(Tag, Monat, MonStr, Jahr, Leap)
{
 this.Tag = Tag;
 this.Monat = Monat;
 this.MonStr = MonStr;
 this.Jahr = Jahr;
 this.Leap = Leap;
}

function DatStringKurz(Dat)
{
 var a = Dat.Tag;
 var b = Dat.Monat;
 var c = Dat.Jahr;
 var x = c + '/' + b + '/' + a ;
 return x;
}

function DatStringLang(Dat)
{
 var a = Dat.Tag;
 var b = Dat.MonStr;
 var c = Dat.Jahr;
 var d = ' ';
 if(c<1)
        {c=Math.abs(c) + 1; d = ' - ';}
 var x = a + ' ' + b + ' ' + c + d;
 return x;
}

function makeWoString(jd)
{
 var a = mod(jd,7);
 var x = wostring[a];
 return x;
}


// *****EingabeFunktionen*****

function GregIn(y)
{
 var x = floor(y/100) - floor(y/400) - 2;
 return x;
}

function getDayJul(d, m, y)
{
 m-= 3;
 if(m<0){m+= 12; y--;}
 var x = floor(y*365.25)+ floor(m*30.6 + 0.5)+ d + 1721117;
 return x;
}

function getDayGreg(d, m, y)
{
 var z = y;
 if(m<3){z--;}
 var a = getDayJul(d, m, y);
 var b = GregIn(z);
 var x = a - b;
 return x;
}

function getDayAbend(d, m, y)
{
 var x = getDayJul(d, m, y);
 if(x>2299170){x = getDayGreg(d,m,y)}
 return x;
}

function getDayIslam(d, m, y, a)
{
 var x = floor((y-1) * (354 + 11/30) + a) + floor((m-1) * 29.5 + 0.5) + d;
 return x;
}

function getDayIslam1616(d, m, y)
{
 var x = getDayIslam(d, m, y, 0.49) + 1948439;
 return x;
}

function getDayIslam1515(d, m, y)
{
 var x = getDayIslam(d, m, y, 0.51) + 1948438;
 return x;
}

function getDayIslam1516(d, m, y)
{
 var x = getDayIslam(d, m, y, 0.49) + 1948438;
 return x;
}

function getDayIslam1615(d, m, y)
{
 var x = getDayIslam(d, m, y, 0.51) + 1948439;
 return x;
}

function getDayYud(d, m, y)
{
 var tz = MolTisch(y);
 var diff = MolTisch(y+1) - tz;
 tz += floor((m-1) *29.5 + 0.5) + d;

 if (diff ==353 && m>3) {tz--;}

 if (diff ==355 && m>2){tz++;}

 if (diff ==383 && m>3){tz--;}
 if ((diff ==383) && (m == 7 || m == 9 || m == 11 || m == 13)) {tz++;}

 if ((diff ==384) && (m == 7 || m == 9 || m == 11 || m == 13)) {tz++;}
 if (diff ==385 && m>2){tz++;}
 if ((diff == 385)&&(m == 7 || m == 9 || m == 11 || m == 13)) {tz++;}


 var x = tz + 347997;
 return x;
}

function getDayKop(d, m, y)
{
 var x = floor((y-1)*365.25 + 0.30) + (m-1)*30 + d + 1825029;
 return x;
}

function getDayIranNeu(d, m, y)
{
 var x;
 var a = y + 37;
 var b = floor(a/128);
 var c = mod(a,128);
 var tz = b * 46751;
    tz += floor(c * 365.2424);
    tz += (m-1) * 31 + d;
    tz += 1934441;
 if (m>7){x = tz - m + 7;}
 else {x = tz;}

 return x;
}

function getDayIranSchahi(d, m, y)
{
 var x = getDayIranNeu(d, m, y-1180);
 return x;
}

function getDayIranDschel(d, m, y)
{
 var a = y + 110;
 var b = floor(a/128);
 var c = mod(a, 128);
 var tz = b * 46751;
    tz += floor(c * 365.2424);
    tz += (m-1) * 30 + d;
  var x = tz + 2074694;
 return x;
}

function getDayIranYazd1(d, m, y)
{
 var x = 1952062 + (y-1) * 365 + (m-1) * 30 + d;
 if (m>9) {x -= 25;}
 return x;
}
function getDayIranYazd2(d, m, y)
{
 var x = 1952062 + (y-1) * 365 + (m-1) * 30 + d;
 return x;
}

function getDayIranYazd(d, m, y)
{
 var x;
 if (y>375) {x = getDayIranYazd2(d, m, y);}
 else {x = getDayIranYazd1(d, m, y);}
 return x;
}

function getDaySeleuk(d, m, y)
{
 m -= 6;
 if (m<0) {m +=12; y--;}
 var x = y * 365 + floor(y * 0.25 + 0.25) + floor(m * 30.6 + 0.5) + d + 1607738 - 214;
 return x;
}

function getDayMal(d, m, y)
{
 var x;
 var y1, tz;
 var isl = 354 + 11/30;
 if (y<1088)
    {
     y1 = floor((y * isl + 135)/365.25);
     if (y == 1087) {y1 = 1055;}
     m -= 7;
     if (m<0) {m += 12; y1--;}
     tz = floor(y1 * 365.25 + 0.5) + floor(m * 30.6 + 0.5) + d + 1948486 - 184;
    }
 else
    {
     if (y<1190) {y1 = floor((y * isl + 319) / 365.25);}
     if (y>1189) {y1 = y - 35;}

     if (y>1220) {y1--;}
     if (y>1254) {y1--;}

     m -= 1;

     tz = floor(y1 * 365.25 + 0.25)+ floor(m * 30.6 + 0.5) + d + 1948302 -365;

     if (y>1332) {tz = tz - GregIn(y + 584);}
    }
  x = tz;
 return x;
}

function getDay(d, m, y, s)
{
 var daynumber;

 if (s==1)
    {daynumber = getDayAbend(d, m, y)
    }
 if (s==2)
    {daynumber = getDayJul(d, m, y)
    }
 if (s==3)
    {daynumber = getDayGreg(d, m, y)
    }
 if (s==4)
    {daynumber = getDayIslam1616(d, m, y)
    }
if (s==5)
    {daynumber = getDayIslam1515(d, m, y)
    }
if (s==6)
    {daynumber = getDayIslam1516(d, m, y)
    }
if (s==7)
    {daynumber = getDayIslam1615(d, m, y)
    }
if (s==8)
    {daynumber = getDayYud(d, m, y)
    }
if (s==9)
    {daynumber = getDayKop(d, m, y)
    }
if (s==10)
    {daynumber = getDayIranNeu(d, m, y)
    }
if (s==11)
    {daynumber = getDayIranSchahi(d, m, y)
    }
if (s==12)
    {daynumber = getDayIranDschel(d, m, y)
    }
if (s==13)
    {daynumber = getDayIranYazd(d, m, y)
    }
if (s==14)
    {daynumber = getDaySeleuk(d, m, y)
    }
 if (s==15)
    {daynumber = getDayMal(d, m, y)
    }
 return daynumber;
}

//*********AusgabeFunktionen*****

function GregOut(jd)
{
 var tz = jd - 1721119;
 var x  = floor(tz / 36524.25) - floor(tz / 146097) - 2;
 return x;
}

function makeDateJul(jd)
{
 var tz = jd - 1721117;
 var y  = floor((tz-0.2) / 365.25);
 var r  = tz - floor(y * 365.25);
 var m  = floor((r - 0.5) / 30.6);
 var d  = r - floor(m * 30.6 + 0.5);
 m+= 3;
 if(m>12) {m-= 12; y++}
 var ms = ChrMonth[m];
 var s  = SchaltJul(y);
 var l  = leapstring[s];
 var x = new Datum(d, m, ms, y, l);
 return x;
}

function makeDateGreg(jd)
{
 var a = jd + GregOut(jd);
 var x = makeDateJul(a);
 var s  = SchaltGreg(x.Jahr);
 var l  = leapstring[s];
 x.Leap = l;
 return x;
}

function makeDateAbend(jd)
{
 var x;
 if (jd<2299161)
    {x = makeDateJul(jd);}
 else
    {x = makeDateGreg(jd);}
return x;
}

function makeDateIslam(tz, a)
{
 var y = floor((tz-a) / (354 + 11/30));
 var r = tz - floor(y * (354 + 11/30) + a);
 var m = floor((r - 0.75)/ 29.5);
     if (m==12){m--;}
 var d = r - floor(m * 29.5 + 0.5);
 m++;
 y++;
 var ms = IslMonth[m];
 var s  = SchaltIsl(y, a);
 var l  = leapstring[s];
 var x = new Datum(d, m, ms, y, l);
 return x;
}

function makeDateIslam1616(jd)
{
 var x = makeDateIslam(jd-1948439, 0.49);
 return x;
}

function makeDateIslam1515(jd)
{
 var x = makeDateIslam(jd-1948438, 0.51);
 return x;
}

function makeDateIslam1516(jd)
{
 var x = makeDateIslam(jd-1948438, 0.49);
 return x;
}

function makeDateIslam1615(jd)
{
 var x = makeDateIslam(jd-1948439, 0.51);
 return x;
}

function makeDateYud(jd)
{
 var y, m, d, tz, tz1, q, rest, r, diff, ms, l;

 tz1 = jd - 347997;
 m   = floor(tz1 / 29.53059414);
 q   = floor((m-1)/235);
 m  -= q*235;
 y   = q * 19;
 y  += 1 + floor((m + 0.94) / 12.36842105);



 tz = MolTisch(y);
 if((tz+1)>tz1)
      {y--; tz = MolTisch(y);}


rest = tz1 - tz;
 r = rest;

   if (r==0)
      {y--;
       tz = MolTisch(y);
       rest = tz1 - tz;
       r    = rest;
      }

 diff = MolTisch(y+1) - tz;




if (diff == 353)
    {
      l  = leapstring[2];
      if (rest>88){r++}
      m = floor((r-0.6) / 29.5);
      d = r - floor(m * 29.5 + 0.5);
      m++;
      if (m<7) {ms = YudMonth[m];}
      else {ms = YudMonth[m+1];}
    }

if (diff == 354)
     {
      l  = leapstring[3];
      m = floor((r-0.6) / 29.5);
      d = r - floor(m * 29.5 + 0.5);
      m++;
      if (m<7) {ms = YudMonth[m];}
      else {ms = YudMonth[m+1];}
     }

if (diff == 355)
     {
      l  = leapstring[4];
      if (rest>60){r--;}
      m = floor((r-0.6) / 29.5);
      d = r - floor(m * 29.5 + 0.5);
      m++;
      if (rest == 60){d = 30; m = 2;}
      if (m<7) {ms = YudMonth[m];}
      else {ms = YudMonth[m+1];}
     }

if (diff == 383)
     {
      l  = leapstring[5];
      if (rest>88){r++;}
      if (rest>148)
         {r = rest - 148;
          m = floor((r-0.6) / 29.5);
          d = r - floor(m * 29.5 + 0.5);
          m += 6;
         }
      else{
           r = rest;
           m = floor((r-0.6) / 29.5);
           d = r - floor(m * 29.5 + 0.5);
           m++;
          }
      ms = YudMonth[m];
      }

if (diff == 384)
     {
      l  = leapstring[6];
      if (rest>148)
         {r = rest - 148;
          m = floor((r-0.6) / 29.5);
          d = r - floor(m * 29.5 + 0.5);
          m += 6;
         }
      else{
           m = floor((r-0.6) / 29.5);
           d = r - floor(m * 29.5 + 0.5);
           m++;
          }
      ms = YudMonth[m];
      }

 if (diff == 385)
     {
      l  = leapstring[7];
      if (r>60){r--;}
      if (r>148)
         {r = r - 148;
          m = floor((r-0.6) / 29.5);
          d = r - floor(m * 29.5 + 0.5);
          m += 6;
         }
      else{
           m = floor((r-0.6) / 29.5);
           d = r - floor(m * 29.5 + 0.5);
           m++;
          }
      if (rest ==60) {d = 30; m = 2;}
      ms = YudMonth[m];
      }

var x = new Datum(d, m, ms, y, l);
 return x;
}

function makeDateKop(jd)
{
 var tz = jd - 1825029;
 var y  = floor((tz-0.4) / 365.25);
 var r  = tz - floor(y * 365.25 + 0.30);
 var m  = floor((r - 0.5) / 30);
 var d  = r - m * 30;
 m++;
 y++;
 var ms = KopMonth[m];
 var s  = SchaltJul(y+1);
 var l  = leapstring[s];
 var x = new Datum(d, m, ms, y, l);
 return x;
}

function makeDateIranNeu(jd)
{
 var m, d;
 var tz = jd - 1934441;
 var a  = floor(tz/46751);
 var r1 = tz - a*46751;
 var b  = floor((r1 - 0.0002) / 365.2424);
 var y  = a * 128 + b - 38;
 var r  = r1 - floor(b * 365.2424);

 if (r<217)
    {
     m = floor ((r -0.5) / 31);
     d = r - (m * 31);
     m++;
    }
 else
    {
     r -= 216;
     m = floor((r - 0.5) / 30);
     d = r - (m *30);
     m += 8;
    }

  y++;
 var ms = IraMonth[m];
 var s  = SchaltIranNeu(y);
 var l  = leapstring[s];
 var x = new Datum(d, m, ms, y, l);
 return x;
}

function makeDateIranSchahi(jd)
{
 var x = makeDateIranNeu(jd);
 x.Jahr += 1180;
 return x;
}

function makeDateIranDschel(jd)
{
  var tz = jd - 2074694;
 var a  = floor(tz/46751);
 var r1 = tz - a*46751;
 var b  = floor((r1 - 0.0002) / 365.2424);
 var y  = a * 128 + b - 110;
 var r  = r1 - floor(b * 365.2424);
 var m = floor((r-0.5)/30);
 var d = r - (m*30);
 m++;

 var ms = IraMonth[m];
 var s  = SchaltIranDschel(y);
 var l  = leapstring[s];
 var x = new Datum(d, m, ms, y, l);

 return x;
}

function makeDateIranYazd1(jd)
{
 var tz = jd - 1952062;
 var y  = floor((tz-0.002)/365);
 var r  = tz - y * 365;
 if (r>245) {r +=25;}
 var m = floor((r-0.5)/30);
 var d = r - (m*30);
 m++;
 y++;

 var mm = m;
 if (m == 9){mm = 13;}
 if (m>9){mm--;}
 var ms =  IraMonth[mm];
 var l  = leapstring[0];
 var x = new Datum(d, m, ms, y, l);
 return x;
}
function makeDateIranYazd2(jd)
{
 var tz = jd - 1952062;
 var y  = floor((tz-0.002)/365);
 var r  = tz - y * 365;
 var m = floor((r-0.5)/30);
 var d = r - (m*30);
 m++;
 y++;

 var ms = IraMonth[m];
 var l  = leapstring[0];
 var x = new Datum(d, m, ms, y, l);
 return x;
}


function makeDateIranYazd(jd)
{
 var x;
 if (jd>2089272) {x = makeDateIranYazd2(jd);}
 else {x = makeDateIranYazd1(jd)}
 return x;
}

function makeDateSeleuk(jd)
{
 var tz = jd - 1607738 + 214;
 var y  = floor((tz - 0.2 - 0.25) / 365.25);
 var r  = tz - floor(y * 365.25 + 0.25);
 var m  = floor((r - 0.5) / 30.6);
 var d  = r - floor(m * 30.6 + 0.5);
 m += 6;
 if (m>12) {m -= 12; y++;}

 var mm = m+7;
 if (mm>12) {mm -= 12;}
 var ms = SyrMonth[mm];
 var s  = SchaltJul(y+1);
 var l  = leapstring[s];
 var x = new Datum(d, m, ms, y, l);
 return x;
}

function makeDateMal(jd)
{
 var x, l, s;
 var tz, d, m, y, r, y1, ms;
 var isl = 354 + 11/30;

 if (jd<2333642)
    {
     tz = jd - 1948486 + 184;
     y = floor((tz - 0.2 - 0.5) / 365.25);
     r = tz - floor(y * 365.25 + 0.5);
     m = floor((r - 0.5) / 30.6);
     d = r - floor(m * 30.6 + 0.5);
     m += 7;
     if (m>12){m-=12; y++;}

     y1 = floor((y * 365.25 + 220)/isl);
     if (jd>2333460) {y1 = 1087;}

     var mm = m + 6;
     if (mm>12) {mm -= 12;}

     ms = SyrMonth[mm];
     s  = SchaltJul(y+2);
     l  = leapstring[s];
     x = new Datum(d, m, ms, y1, l);
    }
 else
    {
     tz = jd - 1948302 + 365;
     if (jd>2421288) {tz += GregOut(jd);}

     y = floor((tz - 0.2 - 0.25) / 365.25);
     r = tz - floor(y * 365.25 + 0.25);
     m = floor((r - 0.5)/30.6);
     d = r - floor(m * 30.6 + 0.5);
     m +=1;
     if (jd<2363227) {y1 = floor((y * 365.25 + 36) / isl);}
     if (jd>2363226) {y1 = y + 35;}
     if (jd>2380759) {y1++;}
     if (jd>2393177) {y1++;}

     ms = SyrMonth[m];
     if(y1<1333){s = SchaltJul(y+2);}
     if(y1>1332){s = SchaltGreg(y+622);}
     l  = leapstring[s];
     x = new Datum(d, m, ms, y1, l);
    }

 return x;
}

function makeDate(jd,s)
{
 var datum;

 if (s==1)
    {datum = makeDateAbend(jd)
    }
 if (s==2)
    {datum = makeDateJul(jd)
    }
 if (s==3)
    {datum = makeDateGreg(jd)
    }
 if (s==4)
    {datum = makeDateIslam1616(jd)
    }
 if (s==5)
    {datum = makeDateIslam1515(jd)
    }
 if (s==6)
    {datum = makeDateIslam1516(jd)
    }
 if (s==7)
    {datum = makeDateIslam1615(jd)
    }
 if (s==8)
    {datum = makeDateYud(jd)
    }
 if (s==9)
    {datum = makeDateKop(jd)
    }
 if (s==10)
    {datum = makeDateIranNeu(jd)
    }
 if (s==11)
    {datum = makeDateIranSchahi(jd)
    }
 if (s==12)
    {datum = makeDateIranDschel(jd)
    }
 if (s==13)
    {datum = makeDateIranYazd(jd)
    }
 if (s==14)
    {datum = makeDateSeleuk(jd)
    }
 if (s==15)
    {datum = makeDateMal(jd)
    }
 return datum
}

//xxxxxxxxxxxxxxxxx Hauptschleife xxxxxxxxxxxx

function CalConvert (conversion, format, year, month, day)
{
 if ((year<=0)||(month<=0)||(day<=0)) return ("-"); 
 
 var JD;
 var tein = day;   //parseInt(f.Tag.value);
 var mein = month; //parseInt(f.Monat.value);
 var jein = year ; //parseInt(f.Jahr.value);

 var fehler;
 if (isNaN(tein) == true || isNaN(mein) == true || isNaN(jein) == true)
         {fehler = true;
          return (-1);
         }
    else {fehler = false;}

if (fehler == false)
{
 
 var stein;
 var staus;

 switch (conversion) 
 {
  case 1 : 
       stein = 1 ; 
       staus = 10 ;
       break ;
  case 2 : 
      stein = 10 ;
      staus = 1 ;
      break ;
  default : return (0) ;
 }
 
 JD = getDay(tein, mein, jein, stein);
 var Datein= makeDate(JD,stein);
 var Dataus= makeDate(JD,staus);
 switch (format)
 {
   case 1 : return (DatStringKurz(Dataus)) ;
   case 2 : return (DatStringLang(Dataus)) ;
   default : return (DatStringLang(Dataus)) ;
 }  
 }
 }