ÿÿ  CHHVBScriptEngine       	(General)   (Declarations)'(Declarations)
ÿ©
'Formel: SATZ BERECHNEN
'Beschreibung: Der Überstundensatz wird berechnet und abgespechert
Function Formel ()
	'Es wird abgeprüft, ob der AN ein Arbeiter oder Angestellter ist. 
	'Abhängig davon wird ein unterschiedlicher ÜSt-Teiler aus den Firmenkonstanten verwendet
	If Anstamm(49) = 0 Then				' Arbeiter
		Satz = Zwischenspeicher (1) / Firmenkonstante(1) 
	Elseif Anstamm(49) = 1 Then		' Angestellter
		Satz = Zwischenspeicher (1) / Firmenkonstante(2)
	End If
	If Anstamm(65) = 1 Then		'Geschäftsführer
		Satz = Zwischenspeicher (1) / Firmenkonstante(3)
	End If 
	Betrag = Stunden * Satz
	Zwischenspeicher(2) = Satz 
	Formel = 1	'successful
	
End Function

'End of (Declarations)
 