function ChkNumber(Nummer)
	{var Variable="";
	 var Ausgabe = "";
	Komma = 0;

	        Gross = Nummer.length - 1;
		for(i = Gross; i >= 0; i--)
		{ if (isNaN(Nummer.charAt(i)) != true)
			Variable=Variable.concat(Nummer.charAt(i));

		 if(Nummer.charAt(i) == "-")
			{if(Nummer.charAt(0) == "-") 
				Variable=Variable.concat("-");
			}

		if (Nummer.charAt(i)=="," && Komma==0 || Nummer.charAt(i)=="." && Komma==0)
			{Variable=Variable.concat(".");
			 Komma = Komma+1;
			}

		}
		Gross = Variable.length - 1;
		if (Gross == 0)
			Ausgabe="0";
		for(i = Gross; i >= 0; i--)
		{ 
		if (i == Gross && Variable.charAt(i)=="0" )
			{Ausgabe= Ausgabe;
			 Gross=Gross-1;}

		else
			Ausgabe= Ausgabe.concat(Variable.charAt(i));		
		}
		return Ausgabe;

	}   

function Kost(StrEW,Fakt)
	{	
		if (StrEW == NaN)
			StrEW = 0;

		Ergebn = parseInt((RAGeb(StrEW)*Fakt*100)+0.5)/100;
			if (Ergebn	<10)
				{Ergebn = 10;}
			if (Fakt == 0)
				{Ergebn = 0;}

		return Ergebn;
	}

function FaktorVerg(Wert,Instanz)
	{

	Ergebn = 0;
	if (Wert)
		{
			Ergebn = 1.3;
		if  (Instanz)
			Ergebn = 1.0;
		}
	
	return Ergebn;
	}

function PTP(Wert1,Wert2,Wert3,Wert4)
	{ 
	
	Ergebn = Wert1*1+Wert2*1+Wert3*1+Wert4*1;

	Ergebn = parseInt(Ergebn * 20)/100;

	if (Ergebn > 20)
		{Ergebn = 20;}

	/*alert (Ges + Ergebn);*/

	return Ergebn;
	}


function Summe(Wert1,Wert2,Wert3,Wert4,WertP)
	{
	Ergebn =(Wert1*1+Wert2*1+Wert3*1+Wert4*1+WertP*1)
	Ergebn = parseInt(Ergebn *100+0.49)/100;
	return Ergebn;
	}
function Ende(Wert1,Fakt)
	{
	Ergebn =(Wert1*1)* Fakt;

	Ergebn = parseInt(Ergebn *100+0.49)/100;
	return Ergebn;
	}


function Rechen()
{	
	document.ZivilR.VerfG.focus();
	document.ZivilR.TermG.focus();
	document.ZivilR.Vergl.focus();
	document.ZivilR.RAV.focus();

	document.ZivilR.Zu.focus();
	document.ZivilR.Post.focus();

	document.ZivilR.Gesamt.focus();
	document.ZivilR.GesamtA.focus();
	document.ZivilR.WahlA.focus();


	location.replace('#Berechn');
}	

/* ********** Gebührenrechnungen in Euro************* */

function RAGeb(StrW)
	{ 
	  var Geb = 25;

	  if (StrW > 3000)
		{Geb = 195;
		
		  if (StrW > 3500)
			Geb = 204;

		  if (StrW > 4000)
			Geb = 212;

		  if (StrW > 4500)
			Geb = 219;

		  if (StrW > 5000)
			Geb = 225;

		  if (StrW > 6000)
			Geb = 230;

		  if (StrW > 7000)
			Geb = 234;

		  if (StrW > 8000)
			Geb = 238;

		  if (StrW > 9000)
			Geb = 242;

		  if (StrW > 10000)
			Geb = 246;

		  if (StrW > 13000)
			Geb = 257;

		  if (StrW > 16000)
			Geb = 272;

		  if (StrW > 19000)
			Geb = 293;

		  if (StrW > 22000)
			Geb = 318;

		  if (StrW > 25000)
			Geb = 354;

		  if (StrW > 30000)
			Geb = 391;
		
		StrW = 0;
		}

 	  if (StrW >= 3000)
		{
		Geb = 189;
		while (StrW > 3500)
   	  	  { StrW = StrW - 1000;
		    Geb = Geb + 37;
		  }
		 StrW = 0;
		}
	  if (StrW > 1500)
		{
		Geb = 105;
		while (StrW > 1500)
   	  	  { StrW = StrW - 500;
		  Geb= Geb + 28;
		  }
		 StrW = 0;
 		}
	  if (StrW > 300)
		{Geb = 25;
		 while (StrW > 300)
   	  	  { StrW = StrW - 300;
		  Geb= Geb + 20;
		  }
		 StrW = 0; 
		}
	   
	   return Geb;
	}

/* ***************  Regelgeb******************** */

function WahlGeb(StrEW,Fakt1,Fakt2,Fakt3,Fakt4,Steu)
	{
		if (StrEW == NaN)
			StrEW = 0;

		Fakt = Fakt1*1+Fakt2*1+Fakt3*1+Fakt4*1;

		Ergebn = parseInt((Regelgeb(StrEW)*Fakt*100)+0.5)/100;
			if (Ergebn	<10)
				{Ergebn = 10;}
			if (Fakt == 0)
				{Ergebn = 0;}

		Post = parseInt(Ergebn * 20)/100;

		if (Post > 20)
			{Post = 20}
		
		Ergebn = (Ergebn + Post) * Steu;
		Ergebn = parseInt((Ergebn*100)+0.5)/100;

		return Ergebn;

	}

function Regelgeb(StrW)
	{ 

	  if (StrW > 30000000)
		{StrW = 30000000;
		}

 	  var Geb = 25;
	  if (StrW >= 500000)
		{
		Geb = 2996;
		while (StrW > 500000)
   	  	  { StrW = StrW - 50000;
		    Geb = Geb + 150;
		  }
		 StrW = 0;
		}
	  if (StrW >= 200000)
		{
		Geb = 1816;
		while (StrW > 200000)
   	  	  { StrW = StrW - 30000;
		    Geb = Geb + 118;
		  }
		 StrW = 0;
		}
	  if (StrW >= 50000)
		{
		Geb = 1046;
		while (StrW > 50000)
   	  	  { StrW = StrW - 15000;
		    Geb = Geb + 77;
		  }
		 StrW = 0;
		}
	  if (StrW >= 25000)
		{
		Geb = 686;
		while (StrW > 25000)
   	  	  { StrW = StrW - 5000;
		    Geb = Geb + 72;
		  }
		 StrW = 0;
		}
	  if (StrW >= 10000)
		{
		Geb = 486;
		while (StrW > 10000)
   	  	  { StrW = StrW - 3000;
		    Geb = Geb + 40;
		  }
		 StrW = 0;
		}
	  if (StrW >= 5000)
		{
		Geb = 301;
		while (StrW > 5000)
   	  	  { StrW = StrW - 1000;
		    Geb = Geb + 37;
		  }
		 StrW = 0;
		}
	  if (StrW > 1500)
		{
		Geb = 105;
		while (StrW > 1500)
   	  	  { StrW = StrW - 500;
		  Geb= Geb + 28;
		  }
		 StrW = 0;
 		}
	  if (StrW > 300)
		{Geb = 25;
		 while (StrW > 300)
   	  	  { StrW = StrW - 300;
		  Geb= Geb + 20;
		  }
		 StrW = 0; 
		}
	   
	   return Geb;
	}