ÿÿCHHVBScriptEngine (General)(Declarations)'(Declarations) ÿ¬ 'Formel: ALIQUOTESZ 'Beschreibung: Aliquote SZ bei Austritt berechnen Function Formel () 'Ihre Formel kommt hierher If ANStamm(27) <> "" Then Summe = (GetJLKzumJ6 (0, Abrechnungsjahr()) + Zwischenspeicher(4)) / 6 Betrag = Summe - (RechneDurchschnittWert(3, (Abrechnungsmonat()-1)) * (Abrechnungsmonat()-1)) Else msgbox "Kein Austrittsdatum hinterlegt" End If Formel = 1 'successful End Function 'End of (Declarations) 'End of (Declarations)