DateAdd

Någon som har ett script där bara vardagar räknas.

Dvs. om jag tar ett datum som är en torsdag, lägger till tex 5 dagar så hoppar den över lördag och söndag och returnerar torsdag veckan efter.

------------------
Det finns alltid ett bättre sätt...

[Redigerat av Frejan den 18 sep 2001]

[Redigerat av Frejan den 18 sep 2001]

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!!

------------------
Det finns alltid ett bättre sätt...