Hi
ik heb volgende onderstaande eigen functie maar zie niet = Vermindering_kredietdagen welke parameters ik moet meegeven)
Bv bij als krijg ik dit te zien logisische test;....)
Als ik bovenaan naast de formulebalk op fx druk krijg ik wel de 3 onderstaand parameters maar die in de formulebalk hoe komt dat ?
ik heb volgende onderstaande eigen functie maar zie niet = Vermindering_kredietdagen welke parameters ik moet meegeven)
Bv bij als krijg ik dit te zien logisische test;....)
Als ik bovenaan naast de formulebalk op fx druk krijg ik wel de 3 onderstaand parameters maar die in de formulebalk hoe komt dat ?
Code:
Function Vermindering_kredietdagen(Werkregime As String, Ziektedagen As Integer, onbetaalde_dagen As Integer)
'Sub Vermindering_kredietdagen()
'Werkregime = "4/5"
'Ziektedagen = 34
'Controle Ziekte Dagen
'----------------------------------------------------------------------
'Bij Voltijd word er 1 dag kredietdag afgetrokken na 28 dagen
'Bij 4/5 word er 1 dag kredietdag afgetrokken na 33,5 dagen
'Bij halftijds word er 1 dag kredietdaag afgetrokken na 56
If Werkregime = "Voltijds" And Ziektedagen > 1 Then
Vermindering_Ziekte = Round(Ziektedagen / 28, 0)
ElseIf Werkregime = "4/5" And Ziektedagen > 1 Then
Vermindering_Ziekte = Round(Ziektedagen / 33.5, 0)
ElseIf Werkregime = "Halftijds" And Ziektedagen > 1 Then
Vermindering_Ziekte = Round(Ziektedagen / 56, 0)
End If
'---------------------------------------------------------------------
Vermindering_kredietdagen = Vermindering_Ziekte
End Function
