---
title: "veckofunktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51377-veckofunktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "doggelito"
published: "2002-08-27T10:04:14.000Z"
updated: "2002-08-27T11:59:22.000Z"
replies: 5
views: 279
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/51377-veckofunktion"
---

# veckofunktion

## #1 — doggelito, 2002-08-27T10:04Z

Behöver lite hjälp här. :)
Skickar in ett datum, en vecka, ett veckodag och ska få ut datumet.
I detta fall skickar jag in dagens datum, vecka 34, veckodag 6(=lördag)
Jag ska alltså få ut: 2002-08-24

```
Public Function get_Weekday(Current_year, Current_week, Current_weekday)
Dim Current_date
Current_week = Current_week-1
Current_year = Year(Current_year)
Current_date = Current_year & "-01-01"
    Do Until DatePart("WW", Current_date, 2, 2) = Current_week
    Current_date = DateAdd("D", Current_weekday, Current_date)
    Loop
get_Weekday = Current_date
End Function

Response.Write get_Weekday("2002-08-27", 34, 6)
```

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

## #2 — doggelito, 2002-08-27T11:02Z

Bara jag som är yr i bollen :h
Här är korrekt funktion om nån behöver.

```
Public Function get_Weekday(Current_year, Current_week, Current_weekday)
Dim Current_date
Current_weekday = Current_weekday-1
Current_year = Year(Current_year)
Current_date = Current_year & "-01-01"
    Do Until DatePart("WW", Current_date, 2, 2) = Current_week
    Current_date = DateAdd("D", 1, Current_date)
    Loop
    Current_date = DateAdd("D", Current_weekday, Current_date)
get_Weekday = Current_date
End Function

Response.Write get_Weekday("2002-08-27", 34, 6)
```

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

## #3 — icaaq, 2002-08-27T11:28Z

Är det bara jag som undrar vad denna funktion gör :OO

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

## #4 — doggelito, 2002-08-27T11:40Z

Den är till för om du vet veckonumret och vill ha ut ett datum i den veckan.
Måndagen vecka 34 är tex 2002-08-19
Att man kan välja dag i veckan la jag in som tillval bara.

Säkert finns det enklare sätt, ni får gärna posta den koden i så fall.

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

## #5 — skyman, 2002-08-27T11:52Z

Varför måste du skicka med veckonumret?
Det kan man ju räkna ut mha datumet...

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

## #6 — doggelito, 2002-08-27T11:59Z

Jo, men om du inte har ett datum för aktuell vecka, datumet skickas in bara för att få ut året:
get_Weekday(Date(), 23, 4) ger torsdagen den 6 juni

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/51377-veckofunktion