DateAdd

Det här kanske?

Function WorkDays(StartDate, EndDate)
  Const Lordag = 6
  Const Sondag = 7
  Dim NumWeeks
         
  If StartDate > EndDate Then
    WorkDays = 0
  Else
    Select Case WeekDay(StartDate)
      Case Lordag StartDate = StartDate + 2
      Case Sondag StartDate = StartDate + 1
    End Select
    Select Case WeekDay(EndDate)
      Case Lordag EndDate = EndDate - 1
      Case Sondag EndDate = EndDate - 2
    End Select
    NumWeeks = DateDiff("ww", StartDate, EndDate)
    WorkDays = NumWeeks * 5 + WeekDay(EndDate) - WeekDay(StartDate)
  End If
End Function

Var inte riktigt så jag menade....

Det här scriptet tar bara hänsyn till om start eller slutdag är på en lördag eller söndag.

Jag ville att den skulle lägga på två extra dagar om tex startdagen är på en torsdag och det ska hålla på i fyra dagar och då räkna torsdag, fredag, måndag, tisdag
men det är lungt, jag skrev ett själv.

Tack för hjälpen!!