Bepalen van de volgende werkdag

Onderstaand functie geeft van een gegeven datum de volgende werkdag-datum terug. Hierbij wordt in deze functie uitgegaan van de Nederlandse werkweek (eerste dag van de week is zondag).

Mocht het in uw bedrijf nodig zijn ook de zaterdag als werkdag te zien, dan kan de functie natuurlijk hierop worden aangepast.

Public Function GeefVolgendeWerkdag(tmpDat As Date) As Date

Dim ret As Date

Select Case WeekDay(tmpDat, 2)
    Case 5:
        ret = DateAdd("d", 3, tmpDat)
    Case 6:
        ret = DateAdd("d", 2, tmpDat)
    Case Else:
        ret = DateAdd("d", 1, tmpDat)
End Select

GeefVolgendeWerkdag = ret

End Function

Reageer op deze tip
Er zijn nog geen reacties geplaatst

De volgende tips zijn beschikbaar:

Comprimeren (handmatig)

Gegevens converteren: Controleren of iets een Decimal is

Gegevens converteren: Controleren of iets een Integer is

Gegevens converteren: Null-waardes afvangen

Melden dat een onderdeel nog niet gereed is

Onderdelen van je pakket afschermen met een wachtwoord