ÿÿCHHVBScriptEngineÿþÿ (General)ÿþÿ(Declarations)ÿþÿ'(Declarations) ÿþÿÿ‚'Formel: MON 'Beschreibung:Anzahl Monate für Abfertigungsanspruch Function Formel () 'Ihre Formel kommt hierher Jahre = Int (DateDiff("m", ANStamm(142), Date) / 12) If Jahre >= 25 Then Betrag = 12 Formel = 1 End If If Jahre >= 20 And Jahre < 25 Then Betrag = 9 Formel = 1 End If If Jahre >= 15 And Jahre < 20 Then Betrag = 6 Formel = 1 End If If Jahre >= 10 And Jahre < 15 Then Betrag = 4 Formel = 1 End If If Jahre >= 5 And Jahre < 10 Then Betrag = 3 Formel = 1 End If If Jahre >= 3 And Jahre < 5 Then Betrag = 2 Formel = 1 End If Formel = 1 'successful End Function ÿþÿ'End of (Declarations)