CurrentMonth = DatePart("m", Now)
FirstDayOfNextMonth = DateSerial( Year(Date()), CurrentMonth + 1, 1 )
somessagebox "Första dagen nästkommande månad: " & FirstDayOfNextMonth
CurrentMonth = DatePart("m", Now)
FirstDayOfNextMonth = DateSerial( Year(Date()), CurrentMonth + 1, 1 )
somessagebox "Dagen D: " & BusinessDayAdd(6,FirstDayOfNextMonth)
Function BusinessDayAdd(delta, dt)
dim weeks, days, day
weeks = Fix(delta/5)
days = delta Mod 5
day = DatePart("w",dt)
If (day = 7) And days > -1 Then
If days = 0 Then
days = days - 2
day = day + 2
End If
days = days + 1
day = day - 7
End If
If day = 1 And days < 1 Then
If days = 0 Then
days = days + 2
day = day - 2
End If
days = days - 1
day = day + 6
End If
If day + days > 6 Then days = days + 2
If day + days < 2 Then days = days - 2
BusinessDayAdd = DateAdd("d", (weeks * 7 + days), dt)
End Function
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!
Swish: 123 536 99 96 Bankgiro: 211-4106
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!
Swish: 123 536 99 96 Bankgiro: 211-4106
