eigen funtie en tekst in 1 cel

[glda19]

Hi

Heb een eigen functie die een waarde terug geeft.
De formule voor de functie aan te roepen is =Vermindering_cvdagen($Y$9;$AA$8)
Nu zou ik willen dat bv in cel ab8 de waarde van de bovenstaande formule komt te staan en daar achter dag(en).
Dus cel ab8 zou er zo moeten uit zien 1 dag(en).
Hoe krijg ik die dag(en) er bij ?

 

[edmoor]

Zo:

=Vermindering_cvdagen($Y$9;$AA$8) & " Dag(en)"

Maar uiteraard kan je dat ook gewoon door je functie terug laten geven.

 

[Haije]

Of door gebruik te maken van aangepaste cel opmaak
# " dagen"

 

[HSV]

Bekijk het profiel van TS.
Je mag hopen dat er enig reactie komt als het antwoordt een oplossing blijkt te zijn.

 

[Haije]

Hoop doet leven, toch?

 

[DANIEL162]

Hoop doet leven nog te koop:d
https://www.bol.com/nl/p/hoop-doet-leven/9200000098949894/?country=BE&Referrer=ADVNLYAH002010-6FVGZHZ6VUVOM-77928042014148&utm_source=bing&utm_medium=cpc&utm_campaign=Film%2520-%2520Promotie%2520-%2520X%2520voor%2520Fixed%2520%255BP%255D%2520%255BBE%255D%2520-%2520MOV13%2520-%2520MV1&utm_term=%252Bhoop%2520%252Bdoet%2520%252Bleven&utm_content=3%2520voor%252020,-%2520op%2520topfilms%2520-%2520Hoop%2520Doet%2520Leven%2520-%25209200000098949894

 

[edmoor]

Dat 'ie er maar een hoop van mag leren

 

[glda19]

Thx edmoor het werkt had dit ook al geprobeerd maar cel stond op aangepast.
Maar hoe zou ik dat via mijn functie kunnen laten doen er de dag bijzetten ?
Als er een waarde met de uitkomst van mijn functie moet verminder worden.

 

[edmoor]

Daar kan ik alleen wat van zeggen als je de code van je functie laat zien.
Maar het zal hier op neer komen, als laatste regel in je code:

Vermindering_cvdagen = Vermindering_cvdagen & " dag(en)"

Waarbij je er dan voor zorgt dat je functie een String terug geeft en niet een Integer.

 

[glda19]

ok maar moet nog met gerekend worden.
Maar doet wat het moet doen.
Bedankt

@edmoor toch nog even de functies.
Maar er word gerekend met die functies
Hoe zou ik die kunnen aanpassen als ik er een string van wil maken
Moet dan de vb voor de eerste fuctie de volgende
Vermindering_kredietdagen = Vermindering_ziekte + Vermindering_onbetaalde_dagen
Vervangen worden door
Vermindering_kredietdagen = cstr(Vermindering_ziekte + Vermindering_onbetaalde_dagen)


Zijn er 2

Function Vermindering_kredietdagen(Werkregime As String, ziektedagen As Integer, onbetaalde_dagen As Integer)

' Berkend wanneer er een kredietdag door ziekte of door onbetaalde dagen wordt afgetrokken.
' Dit afhankelijk van het werkregime waarin je werkt

'Werkregime = voltijds ,4/5,haltijds' de functie fix rond af naar het heheel getal 99,2 of 99,8 wordt 99
'Verminderingen door Ziektedagen
'----------------------------------------------------------------------
'Bij Voltijd word er 1 kredietdag afgetrokken na 28 kalenderdagen ziekete
'Bij 4/5 word er 1 kredietdag afgetrokken na 33,5 kalenderdagen ziekete
'Bij halftijds word er 1 kredietdaag afgetrokken na 56 kalenderdagen ziekete

'De formule om het afronden te doen is als volgt  Afterondenwaarde = Int(afterondewaarde / 0.5) * 0.5
Dim Vermindering_ziekte As Long
Dim Vermindering_onbetaalde_dagen As Long

If Werkregime = "Voltijds" And ziektedagen >= 1 Then
    ' Afronden op een bepaald veelvoud is round(Getal dat je wilt afronden /afrondingsveelvoud, afroningsgetal =0)x afrondingsveelvoud
    Vermindering_ziekte = Int(ziektedagen / 28)

ElseIf Werkregime = "4/5" And ziektedagen >= 1 Then
    Vermindering_ziekte = Int(ziektedagen / 33.5)


ElseIf Werkregime = "Halftijds" And ziektedagen >= 1 Then
     Vermindering_ziekte = Int(ziektedagen / 56)

End If
'Vermindering door ontbetaalde dagen
'---------------------------------------------------------------------
'Bij Voltijd word er 1/2 kredietdag afgetrokken na 14 kalenderdagen onbetaald
'Bij 4/5 word er 1/2 kredietdag afgetrokken na 17 kalenderdagen onbetaald
'Bij halftijds word er 1/2  kredietdaag afgetrokken na 28 kalenderdagen onbetaald

'Kan zo
'WorksheetFunction.Floor_Math((onbetaalde_dagen / 14) / 2, 0.5) afronden naa beneden tot op een half na de komma
'(onbetaalde_dagen \ 14) / 2 Het rondt eigenlijk de twee getallen af die u eerst deelt en kapt vervolgens het quotiënt af

If Werkregime = "Voltijds" And onbetaalde_dagen >= 1 Then
    Vermindering_onbetaalde_dagen = (onbetaalde_dagen \ 14) / 2
ElseIf Werkregime = "4/5" And onbetaalde_dagen >= 1 Then
     Vermindering_onbetaalde_dagen = (onbetaalde_dagen \ 17) / 2
ElseIf Werkregime = "Halftijds" And onbetaalde_dagen >= 1 Then
    Vermindering_onbetaalde_dagen = (onbetaalde_dagen \ 28) / 2
End If




End Function

Function Vermindering_cvdagen(Werkregime As String, VerminderingCv As Integer)
' Vermindering cv dagen is door ziekte + werkongeval +staking
'Bij Voltijd word er 1 CVdag afgetrokken als bovenstaande => 28 dagen
'Bij 4/5 word er 1 CVdag  afgetrokken na als bovenstaande => 33,5 dage
'Bij halftijds word er 1 CVdag afgetrokken na als bovenstaande =>56 dagen
'De int(verminderingCv / door deelgetal) word afgerond op een geheel getal door de int functie

If Werkregime = "Voltijds" And VerminderingCv >= 1 Then
    Vermindering_cvdagen = Int(VerminderingCv / 28)
    
    

ElseIf Werkregime = "4/5" And VerminderingCv >= 1 Then
    Vermindering_cvdagen = Int(VerminderingCv / 33.5)

ElseIf Werkregime = "Halftijds" And VerminderingCv >= 1 Then
     Vermindering_cvdagen = Int(VerminderingCv / 56)

End If