ےے  CHHVBScriptEngine       	(General)   (Declarations)'(Declarations)
ے
'Formel: UE NZ
'Beschreibung: Ersatzleistung NZ
Function Formel ()
	'Ihre Formel kommt hierher
	If ANStamm(27) <> "" Then
		Beginn = DateSerial(Abrechnungsjahr(), 1,1) 'Datum auf 1.1. des WJ setzten
		Tage = DateDiff ("d", Beginn, ANStamm(27)) 'Anzahl der Tage berechnen
		Anspruch = 25 / 365 * Tage 'aliquote Urlaubstage berechnen
		Anspruch = Runden (Anspruch, 0) 'Anspruch runden
		Konsurlaub = Fehlzeiten (0,13) 'verbrauchten Urlaub bestimmen
		Stunden = Anspruch - Konsurlaub 'Resttage ermitteln
		Satz = RechneDurchschnittWert (1,3) / 22 'Durchschnitt der letzten 3 Monate
		Betrag = Stunden * Satz
		
		Zwischenspeicher(5) = Betrag
	Else
		msgbox "Kein Austrittsdatum hinterlegt"
	End If
	
	
	
	
	Formel = 1	'successful
End Function

'E'End of (Declarations)