/*
############################################################
###               mondkalender-phasen.js                 ###
###         Javascript von Michael Duetting              ###
###                 copyright 2006                       ###

                für sternfreunde-muenster.de

            CMS              |----||----|
            Datenbanken      |    ||    |
                             |----||----|
            eShops                 |----|
                        |------|   |    |
            Webdesign   |      |   |----|
                        | multi|p l i c o
            Multimedia  |------|



###                  Telemannstr. 26                     ###
###                   48147 Münster                      ###
###             http://www.multiplico.de                 ###
############################################################
*/
/*
************************************************************
** Der Mondphasen-Kalender ist eine Modifikation der      **
**                 JS-Datei ephem.js                      **
************************************************************
*/
//Hier beginnt die Ergänzung 1
/*globals*/
var mophaskal_Y = 0;var mophaskal_M = 0;var mophaskal_D = 0;
var phasenbild = 0;
var MOtierkreis = "Fische";
var phasenname = new Array("Neumond","zunehmend","1. Viertel","zunehmend","Vollmond","abnehmend","letztes Viertel","abnehmend","Neumond");
var manJahr = 0;
//manuelle Jahresangabe
function ManJahr()
{
manJahr = document.getElementById("manSelect").value;
MoPhasKal();
}
function MoPhasKal()
{
//Bilder vorladen
var transgif = new Image();
var dsfgif = new Image();
transgif.src = "icon/trans.gif";
dsfgif.src = "icon/dsf.gif";
//Berechnung der Mondphasen aller Tage des laufenden Jahres
var PCZeit = new Date();
var Jahr = PCZeit.getFullYear();//ak. Jahr
Jahr = (manJahr==0)?Jahr:manJahr;
	//Schaltjahr?!
	var Feb29 = (Jahr%4==0)?29:28;
	var monate = new Array("Jan","Feb","Mar","Apr","Mai","Jun","Jul","Aug","Sep","Okt","Nov","Dez");
	var monateTitle = new Array("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
	var monatTage = new Array(31,Feb29,31,30,31,30,31,31,30,31,30,31);
if(manJahr == 0)
{
	//Überschrift
//	var ausgabeJahr = document.createTextNode(Jahr);	
	document.getElementById("pkopf").firstChild.nodeValue = "DeepSky-Fenster "+Jahr;
/*
	var pkopf = document.createElement("h1");
	pkopf.id = "pkopf";
//	pkopf.className = "h2";
	pkopf.appendChild(ausgabeJahr);
	document.getElementById("MoPhasKal").appendChild(pkopf);
	*/
	//Hinweis
	var hinweisP = document.createElement("p");	
	var hinweisTxt = document.createTextNode("Die Tabelle zeigt die Termine an, zu denen Deep Sky-Objekte relativ ungestört vom Mondlicht beobachtet werden können. Berühren oder klicken Sie mit der Maus auf die Symbole, um die Mondbeleuchtung in Prozent anzeigen zu lassen (0% = Neumond, 50% = 1./letztes Viertel).");
	hinweisP.appendChild(hinweisTxt);
	hinweisP.className = "txt";
	document.getElementById("MoPhasKal").appendChild(hinweisP);
	//Select für ManJahr
	var manSelect = document.createElement("select");
	var xtabindexS = document.createAttribute("tabindex");
	xtabindexS.nodeValue = "15";
	manSelect.setAttributeNode(xtabindexS);		
	var manselects = new Array(2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016);
	var manSelectP = document.createElement("p");
	manSelectP.className = "txt";
	manSelect.id = "manSelect";
		if(window.netscape || window.opera || /KHTML/.test(navigator.userAgent) == true)
		{manSelect.setAttribute("onchange","ManJahr()");}
		else
		{manSelect.onchange = ManJahr;}	
	var manSelectText = document.createTextNode("anderes Jahr: ");
	manSelectP.appendChild(manSelectText);
		for(i=0;i<manselects.length;i++)
		{
		var xoption = document.createElement("option");
		xoption.value = manselects[i];
			if(manselects[i] == Jahr)
			{xoption.setAttribute("selected","selected");}
		var xoptionText = document.createTextNode(manselects[i]);
		xoption.appendChild(xoptionText);
		manSelect.appendChild(xoption);
		}
	manSelectP.appendChild(manSelect);
	document.getElementById("MoPhasKal").appendChild(manSelectP);
}
else
{
document.getElementById("pkopf").firstChild.nodeValue = "DeepSky-Fenster " + Jahr;
	for(var man=0;man<monate.length;man++)
	{document.getElementById(monate[man]).parentNode.removeChild(document.getElementById(monate[man]));}
}		
//Ausrichtungs-Tabelle
var talign = document.createElement("div");
talign.id = "dsfenster";
document.getElementById("MoPhasKal").appendChild(talign);
	//Tabelle
	for(var i=0;i<monatTage.length;i++)
	{
	var monatDiv = document.createElement("div");
	monatDiv.id = monate[i];
	monatDiv.className = "mophaskal";
	document.getElementById("dsfenster").appendChild(monatDiv);
	var tabelle = document.createElement("table");
//	tabelle.id = "dsfenster";
	var cpd = document.createAttribute("cellpadding");
	cpd.nodeValue = "0";
	tabelle.setAttributeNode(cpd);
	var cps = document.createAttribute("cellspacing");
	cps.nodeValue = "0";
	tabelle.setAttributeNode(cps);	
	var tbody = document.createElement("tbody");
	tabelle.appendChild(tbody);
	var tr = document.createElement("tr");
	var th = document.createElement("th");	
	th.className = "mophaskal_th";
	var cspan = document.createAttribute("colspan");
	cspan.nodeValue = "2";
	th.setAttributeNode(cspan)
	var ausgabeMonat = document.createTextNode(monate[i]);	
	th.appendChild(ausgabeMonat);
	tbody.appendChild(tr);
	tr.appendChild(th);
	monatDiv.appendChild(tabelle);	
		for(var j=1;j<=monatTage[i];j++)
		{		
		mophaskal_Y = Jahr;
		mophaskal_M = i;
		mophaskal_D = j;
		Julianisches_Datum(mophaskal_Y,mophaskal_M,mophaskal_D);
		Luna();
		var ausgabeTag = document.createTextNode(j + ".");
		//Beleuchtung des Mondes in %: Mond.Phase*100
		var prozPhase = Mond.Phase*100;
		var prozPhaseStr = prozPhase.toString();
		var prozAnzStr = prozPhaseStr.substring(0,4);
		var tr1 = document.createElement("tr");
		var td0 = document.createElement("td");
		td0.className = "mophaskal_td";
		var td1 = document.createElement("td");
		var td1Size = document.createAttribute("height");
		td1Size.nodeValue ="20px";
		td1.setAttributeNode(td1Size)
		var deepsky = "mophaskal_td";
			if(phasenbild == 0 || phasenbild == 1 ||phasenbild == 7 || phasenbild == 8)
			{
			deepsky = "dsfenster";
			var PhaseText = j + ". " + monateTitle[i] + " " + Jahr + ": Der Mond steht im Sternbild "+MOtierkreis+" und ist zu " + prozAnzStr +"% beleuchtet.";
			var dsAnker = document.createElement("a");
			var xtabindex = document.createAttribute("tabindex");
			xtabindex.nodeValue = "-1";
			dsAnker.setAttributeNode(xtabindex);			
			dsAnker.href = "javascript:alert('"+PhaseText+"')";
			var ausgabeImg = document.createElement("img");
			ausgabeImg.style.width = "20px";		
			ausgabeImg.style.height = "20px";			
			ausgabeImg.src = dsfgif.src;
			ausgabeImg.setAttribute("alt",PhaseText);
			ausgabeImg.setAttribute("title",PhaseText);
			dsAnker.appendChild(ausgabeImg);
			td1.appendChild(dsAnker);
			}
			else
			{
				/*if(window.netscape)
				{*/
				var ausgabeImg = document.createElement("img");					
				ausgabeImg.src = (prozPhase>99.73)?"icon/4kal.gif":transgif.src;					
					if(prozPhase<99.74)
					{
					ausgabeImg.src = "icon/t95.gif";
					if(prozPhase>90&&prozPhase<=95){ausgabeImg.src = "icon/t95.gif";}
					if(prozPhase>85&&prozPhase<=90){ausgabeImg.src = "icon/t90.gif";}
					if(prozPhase>80&&prozPhase<=85){ausgabeImg.src = "icon/t85.gif";}
					if(prozPhase>75&&prozPhase<=80){ausgabeImg.src = "icon/t80.gif";}
					if(prozPhase>70&&prozPhase<=75){ausgabeImg.src = "icon/t75.gif";}
					if(prozPhase>65&&prozPhase<=70){ausgabeImg.src = "icon/t70.gif";}
					if(prozPhase>60&&prozPhase<=65){ausgabeImg.src = "icon/t65.gif";}
					if(prozPhase>55&&prozPhase<=60){ausgabeImg.src = "icon/t60.gif";}
					if(prozPhase>50&&prozPhase<=55){ausgabeImg.src = "icon/t55.gif";}
					if(prozPhase>45&&prozPhase<=50){ausgabeImg.src = "icon/t50.gif";}
					if(prozPhase>40&&prozPhase<=45){ausgabeImg.src = "icon/t45.gif";}
					if(prozPhase>35&&prozPhase<=40){ausgabeImg.src = "icon/t40.gif";}					 
					}
				var PhaseText = j + ". " + monateTitle[i] + " " + Jahr + ": Der Mond steht im Sternbild "+MOtierkreis+" und ist zu " + prozAnzStr +"% beleuchtet.";
				var dsAnker = document.createElement("a");
				var xtabindex = document.createAttribute("tabindex");
				xtabindex.nodeValue = "-1";
				dsAnker.setAttributeNode(xtabindex);
				dsAnker.className = "nohover";
				dsAnker.href = "javascript:alert('"+PhaseText+"')";				
				ausgabeImg.style.width = "20px";		
				ausgabeImg.style.height = "20px";			
				ausgabeImg.setAttribute("alt",PhaseText);
				ausgabeImg.setAttribute("title",PhaseText);
				dsAnker.appendChild(ausgabeImg);
				td1.appendChild(dsAnker);				
				//}
			}
		td1.className = deepsky;
		td0.appendChild(ausgabeTag);		
		tr1.appendChild(td0);
		tr1.appendChild(td1);
		tbody.appendChild(tr1);	
		}
	}
}
//Ende Ergänzung 1
/* =================================================================================== */
/* Diese GLOBALEN Variablen werden in den Funktionen Planet und PLANETS zu Objekten    */
var Merkur, Venus, Mars, Jupiter, Saturn, Uranus, Neptun, Pluto, Erde, terra1, terra2;
/* =================================================================================== */
var akObjekt		= new Object();//speichert Planetenauswahl für automatische Zeigeraktualisierung
var Sonne			= new Object();//globales Objekt
var Mond			= new Object();//globales Objekt
JULIANISCHESDATUM 	= new Object();//globales Objekt
altgrad 			= Math.PI / 180;//DEG
/* =================================================================================== */
/* 							Hilfsfunktionen 										   */
var Modifiziere 	= function(m1,m2){return (m1 - Math.floor(m1 / m2) * m2);}
var Pi2 			= function(x){x = Modifiziere(x,2*Math.PI);return x;}
/* =================================================================================== */
/* 	      Umwandlung ekliptikaler in äquatoriale Koordinaten für Helios()			   */
function TransformKoords()
{
var Epoche 		= (arguments[1] - 2451545.0) / 36525;
var Ekliptik 	= (23+(26+21.45/60)/60 + Epoche * (-46.815 + Epoche * (-0.0006 + Epoche * 0.00181))/3600) * altgrad;
var cosEkliptik = Math.cos(Ekliptik);
var sinEkliptik = Math.sin(Ekliptik);
var sinLaenge	= Math.sin(arguments[0].laenge);
arguments[0].RA = Pi2(Math.atan2((sinLaenge*cosEkliptik-Math.tan(arguments[0].breite)*sinEkliptik),Math.cos(arguments[0].laenge)));
arguments[0].DK = Math.asin(Math.sin(arguments[0].breite)*cosEkliptik+Math.cos(arguments[0].breite)*sinEkliptik*sinLaenge);
return arguments[0];
}
/* =================================================================================== */
/* 					Berechnet die Rektaszension der Sonne 							   */
function Helios()
{
var Datum 				= arguments[0] - 2447891.5;
var omega1 				= 279.403303 * altgrad;
var omega2 				= 282.768422 * altgrad;
Planet();
var AE 					= 149598500;
var mittlereSonne 		= 360*altgrad/365.242191*Datum+omega1-omega2;
var omega3				= mittlereSonne+360*altgrad/Math.PI*Erde.Exzentrizitaet*Math.sin(mittlereSonne);
Sonne.laenge			= Pi2(omega3+omega2);
Sonne.breite			= 0;
Sonne.Anomalie 			= mittlereSonne;
Sonne 					= TransformKoords(Sonne,JULIANISCHESDATUM.JD);
Sonne.RA 				= Sonne.RA * ((180/Math.PI)/15);
var raminute 			= (Sonne.RA - Math.floor(Sonne.RA))*60;
var RektaszensionStunde;
var RektaszensionMinute;
	if(Sonne.RA < 0)
	{RektaszensionStunde = Math.ceil(Sonne.RA);}
	else
	{RektaszensionStunde = Math.floor(Sonne.RA);}
	if(raminute >= 59.5)
	{RektaszensionStunde++;raminute -= 60;}
RektaszensionMinute 	= Math.round(raminute);	
Sonne.Koordinaten		= RektaszensionStunde + "_" + RektaszensionMinute;
Sternbild(Sonne);
akObjekt.wert = 11;
}
function HeliosAusgabe()
{
//Übergabe
autoPlanet(Sonne.Koordinaten);
}
/* =================================================================================== */
/* 				Berechnet Rektaszension, Deklination und Phase des Mondes  			   */
function Luna()
{
Helios(JULIANISCHESDATUM.JD);
Mond.Perihel 		= 36.340410*altgrad;
Mond.Knoten			= 318.510107*altgrad;
Mond.Inklination	= 5.145396*altgrad;
Mond.Exzentrizitaet	= 0.054900;
var Datum 			= JULIANISCHESDATUM.JD-2447891.5;
var laenge 			= 318.351648*altgrad;
var Laenge			= 13.1763966*altgrad*Datum+laenge;
var anomalie		= Laenge-0.1114041*altgrad*Datum-Mond.Perihel;	
var absteigend		= Mond.Knoten-0.0529539*altgrad*Datum;
var lage			= Laenge-Sonne.laenge;
var variation		= 1.2739*altgrad*Math.sin(2*lage-anomalie);
var Anomalie		= 0.1858*altgrad*Math.sin(Sonne.Anomalie);
var Xanomalie		= 0.37*altgrad*Math.sin(Sonne.Anomalie);
Mond.Anomalie		= anomalie+variation-Anomalie-Xanomalie;
var zentrum			= 6.2886*altgrad*Math.sin(Mond.Anomalie);
var Yanomalie		= 0.214*altgrad*Math.sin(2*Mond.Anomalie);
var korrektur		= Laenge+variation+zentrum-Anomalie+Yanomalie;
var Variation		= 0.6583*altgrad*Math.sin(2*korrektur-Sonne.laenge);
var wahreLaenge		= korrektur+Variation;
var aufsteigend		= absteigend-0.16*altgrad*Math.sin(Sonne.Anomalie);
Mond.laenge			= Pi2(aufsteigend+Math.atan2(Math.sin(wahreLaenge-aufsteigend)*Math.cos(Mond.Inklination),Math.cos(wahreLaenge-aufsteigend)));
Mond.breite			= Math.asin( Math.sin(wahreLaenge-aufsteigend)*Math.sin(Mond.Inklination));
Mond.Bahn			= wahreLaenge;
Mond				= TransformKoords(Mond,JULIANISCHESDATUM.JD);
Mond.RA						= Mond.RA * ((180/Math.PI)/15);
var raminute 				= (Mond.RA - Math.floor(Mond.RA))*60;
var RektaszensionStunde;
var RektaszensionMinute;
	if(Mond.RA < 0)
	{RektaszensionStunde 	= Math.ceil(Mond.RA);}
	else
	{RektaszensionStunde 	= Math.floor(Mond.RA);}
	if(raminute >= 59.5)
	{RektaszensionStunde++;raminute -= 60;}
RektaszensionMinute 		= Math.round(raminute);	
var RAZeiger 				= RektaszensionStunde + "_" + RektaszensionMinute;
Mond.Deklination 			= Math.floor(Mond.DK*(180/Math.PI));
/*Mondphase*/
Mond.Alter = Pi2(wahreLaenge-Sonne.laenge);
Mond.Phase = 0.5*(1-Math.cos(Mond.Alter));//1.0 = Vollmond
var Phase = 1/29.53*360*altgrad;
var phase = Modifiziere(Mond.Alter,90*altgrad);
	if(phase < Phase || phase > 90*altgrad-Phase)
	{phase = 2*Math.round(Mond.Alter/(90*altgrad));}
	else
	{phase = 2*Math.floor(Mond.Alter/(90*altgrad))+1;}
Sternbild(Mond);	
akObjekt.wert = 10;
//Übergabe-> Positionierung des Planetenzeigers
//autoPlanet(RAZeiger);	
phasenbild = phase;
}
/* =================================================================================== */
/* 						aktuelles Sternbild für Sonne und Mond 						   */
function Sternbild()
{ 
var Sternbilder= new Array("Widder","Stier","Zwillinge","Krebs","Löwe","Jungfrau","Waage","Skorpion","Schütze","Steinbock","Wassermann","Fische");
var stbld = (Math.floor(arguments[0].laenge*(180/Math.PI)/30))-1;
stbld = (stbld<0)?stbld=11:stbld;
arguments[0].Sternbild = Sternbilder[stbld];
MOtierkreis = Sternbilder[stbld];
}
/* =================================================================================== */
/* 						Klasse der Planeten											   */
function PLANET()
{
this.Periheldatum 		= arguments[0];
this.Inklination 		= arguments[1];
this.Knotenlaenge 		= arguments[2];
this.Perihel 			= arguments[3];
this.mittlereAnomalie 	= arguments[4];
this.Exzentrizitaet 	= arguments[5];
this.mittlereBewegung 	= arguments[6];
this.grosseHalbachse 	= arguments[7];
this.Name				= arguments[8];
Ephemeride(this);
}
/* =================================================================================== */
/* 						Auswahl und Aufruf der Konstruktoren						   */
function Planet()
{
/* Erde muss als Rechenwert immer initialisiert werden*/
Erde = new PLANET(47893,0,0,1.7936477,6.2330541,0.0167134,1.7202111e-2,1.0,"Erde");

}
/* =================================================================================== */
/*             Berechnung von Rektaszension und Deklination der Planeten 			   */
/* 			Aufruf als Klassenmethode in PLANETS() durch Ephemeride(this)  			   */
function Ephemeride(planet)
{
Julianisches_Datum(mophaskal_Y,mophaskal_M,mophaskal_D);//geändert
var faktor1 = 0.40931976, faktor2 = 6.6711e-7, startwert = 0;
perihel = JULIANISCHESDATUM.wert - planet.Periheldatum;
planet.mittlereAnomalie = planet.mittlereAnomalie + planet.mittlereBewegung * perihel;
	while(Math.abs(planet.mittlereAnomalie) > Math.PI) 
	{
	planet.mittlereAnomalie = planet.mittlereAnomalie - 2 * Math.PI * Positiv(planet.mittlereAnomalie);
	}
var exzentrischeAnomalie = planet.mittlereAnomalie + planet.Exzentrizitaet * Math.sin(startwert);
	while(Math.abs(startwert - exzentrischeAnomalie) >  1e-7)
	{
	startwert = exzentrischeAnomalie;
	exzentrischeAnomalie = planet.mittlereAnomalie + planet.Exzentrizitaet * Math.sin(startwert);
	}
var radius0 = planet.grosseHalbachse * (1 - planet.Exzentrizitaet * Math.cos(exzentrischeAnomalie));
var wahreAnomalie = 2 * Math.atan(Math.sqrt((1 + planet.Exzentrizitaet) / (1 - planet.Exzentrizitaet)) * Math.tan(exzentrischeAnomalie / 2));
var omega = wahreAnomalie + planet.Perihel - planet.Knotenlaenge;
radius1 = radius0 * (Math.cos(planet.Knotenlaenge) * Math.cos(omega) - Math.sin(planet.Knotenlaenge) * Math.sin(omega) * Math.cos(planet.Inklination));
radius2 = radius0 * (Math.sin(planet.Knotenlaenge) * Math.cos(omega) + Math.cos(planet.Knotenlaenge) * Math.sin(omega) * Math.cos(planet.Inklination)); 
radius3 = radius0 * Math.sin(omega) * Math.sin(planet.Inklination);
	if(planet.grosseHalbachse == 1.0)
	{terra1 = radius1;terra2 = radius2;}
var Radius1 = radius1 - terra1;
var Radius2 = radius2 - terra2;
var Radius3 = radius3;
	if(Math.abs(Radius1) < 1e-8)
	{Radius1 = Positiv(Radius1) * 1e-8;}
var laenge = Math.atan(Radius2 / Radius1);
	if(Radius1 < 0)
	{laenge = laenge + Math.PI * Positiv(Radius2);}
var omega2 = Math.atan(Radius3 / Math.sqrt(Radius1 * Radius1 + Radius2 * Radius2));
laenge = laenge + faktor2 * perihel;
var sekunde = Math.cos(faktor1) * Math.sin(omega2) + Math.sin(faktor1) * Math.sin(laenge) * Math.cos(omega2);
var dkl = Math.atan(sekunde / Math.sqrt(1 - sekunde * sekunde));
var dkls = Math.cos(laenge) * Math.cos(omega2);
sekunde = Math.sin(laenge) * Math.cos(omega2) * Math.cos(faktor1) - Math.sin(omega2) * Math.sin(faktor1);
var rekt = Math.atan(sekunde / dkls);
	if(dkls < 0)
	{rekt = rekt + Math.PI * Positiv(sekunde);}
	if(rekt < 0)
	{rekt = rekt + 2 * Math.PI;}
var RA12 = rekt * 12 / Math.PI;
var DKL180 = Math.abs(dkl) * 180 / Math.PI;
var RAh = parseInt(RA12);
RA12 = 60 * (RA12 - RAh);
RAm = parseInt(RA12);
sekunde = parseInt(60 * (RA12 - RAm));
var DKL = parseInt(DKL180);
DKL180 = 60 * (DKL180 - DKL);
dkls = parseInt(DKL180);
startwert = parseInt(60 * (DKL180 - dkls));
DKL = DKL * Positiv(dkl);
var RAZeiger = RAh + "_" + RAm ;
//für die Anzeige im Fenster
//	RAh=(RAh<10)?"0"+RAh:RAh;
	RAm=(RAm<10)?"0"+RAm:RAm;
planet.Rektaszension = "Rektaszension: " + RAh + "h " + RAm +"m";
planet.Deklination = "Deklination: " + DKL + " Grad";
	if(planet.grosseHalbachse != 1.0)
	{
	//Übergabe-> Positionierung des Planetenzeigers
	autoPlanet(RAZeiger);	
	}
}
/* =================================================================================== */
/* 									Hilfsfunktion 									   */
function Positiv()
{
  var faktor = 1;
  if(arguments[0]<0) faktor = -1;
  return faktor;
}
/* =================================================================================== */
/* 				Berechnung des Julianischen Datums für 12 Uhr MEZ				       */
function Julianisches_Datum()
{
var schaltjahr;
	
//geändert:
	var Tag = arguments[2];
	var Monat = arguments[1]+1;
	var Jahr = arguments[0];
//Automatische Einstellung des Datums nach der PC-Uhr	
/*
	var PCZeit = new Date();
	var Tag = PCZeit.getDate();
	var Monat = PCZeit.getMonth()+1;
	var Jahr = PCZeit.getFullYear();	
*/	
	var monate = new Array("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember","Dezember");
	var manMonat = new Array();
		for(i=0;i<monate.length;i++)
		{manMonat[monate[i-1]] = i;}
	//manuelle Auswahl eines beliebigen Datums
	/*
	if(parseInt(document.getElementById("dskday").firstChild.nodeValue) != Tag || document.getElementById("dskmon").firstChild.nodeValue != monate[Monat-1])
	{
	Tag =  parseInt(document.getElementById("dskday").firstChild.nodeValue);
	Monat = manMonat[document.getElementById("dskmon").firstChild.nodeValue];
	}
	*/
var MonatTage = new Array(0,0,31,59,90,120,151,181,212,243,273,304,334);
var JulianischesDatum = (Jahr - 1994) * 365 + Tag;
	for(schaltjahr = 1993; schaltjahr < Jahr; schaltjahr++)
	{if((schaltjahr % 4) == 0){JulianischesDatum++;}}
	if(((Jahr % 4) == 0) && (Monat > 2)){JulianischesDatum++};
JulianischesDatum = JulianischesDatum + MonatTage[Monat] + 49353.5;
JULIANISCHESDATUM.wert = JulianischesDatum;
JULIANISCHESDATUM.JD = 2400000 + JulianischesDatum - 0.54167;

}
/* =================================================================================== */
//===========================================================================
//---------------------------- 29.12.2009 -----------------------------------
//===========================================================================