ÿÿCHHVBScriptEngineÿþÿ (General)ÿþÿ(Declarations)ÿþÿ'(Declarations) ÿþÿÿ'Formel: ANSPRUCH 'Beschreibung:Berechnet den Abfertigungsanspruch Function Formel () 'Ihre Formel kommt hierher Faktor1=RechneDurchschnittWert(1,12)+RechneDurchschnittWert(3,12) Jahre = int (DateDiff("m", ANStamm(142), Date) /12) If Jahre >= 25 Then Betrag = Faktor1 * 12 Formel = 1 End If If Jahre >= 20 And Jahre < 25 Then Betrag = Faktor1 * 9 Formel = 1 End If If Jahre >= 15 And Jahre < 20 Then Betrag = Faktor1 * 6 Formel = 1 End If If Jahre >= 10 And Jahre < 15 Then Betrag = Faktor1 * 4 Formel = 1 End If If Jahre >= 5 And Jahre < 10 Then Betrag = Faktor1 * 3 Formel = 1 End If If Jahre >= 3 And Jahre < 5 Then Betrag = Faktor1 * 2 Formel = 1 End If Zwischenspeicher(1) = Betrag Formel = 1 'successful End Function ÿþÿ'End of (Declarations)