Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Function OfficeClosed(TheDate) As Integer
OfficeClosed = False
TheDate = Format(TheDate, "dd/mm/yyyy")
If Weekday(TheDate) = 1 Or Weekday(TheDate) = 7 Then
OfficeClosed = True
ElseIf Not IsNull(DLookup("HoliDate", "Holidays", "[HoliDate]=#" _
& TheDate & "#")) Then
OfficeClosed = True
End If
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.