---
title: "DateAdd"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11681-dateadd"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Frejan"
published: "2001-09-18T12:56:00.000Z"
updated: "2001-09-19T09:06:00.000Z"
replies: 2
views: 208
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11681-dateadd"
---

# DateAdd

## #1 — Frejan, 2001-09-18T12:56Z

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.

Permalänk: https://www.webforum.nu/p/11681

## #2 — Boma, 2001-09-18T14:11Z

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

Permalänk: https://www.webforum.nu/p/286876

## #3 — Frejan, 2001-09-19T09:06Z

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

Permalänk: https://www.webforum.nu/p/286877

---

Tråden på webben: https://www.webforum.nu/amne/asp/11681-dateadd