---
title: "Hur får man fram veckonummer för ett viss datum?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mattiasnordin"
published: "2003-05-05T12:14:40.000Z"
updated: "2003-05-22T09:08:45.000Z"
replies: 20
views: 668
page: 2
pages: 2
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/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum"
---

# Hur får man fram veckonummer för ett viss datum?

_Sida 2 av 2._

## #21 — nkrantz, 2003-05-22T09:08Z

Lösning:

```
Public Function convertPeriodToYYYYMMDD(period As Long) As Long ' YYYYWWD
Dim Current_date
Dim Current_weekday
Dim Current_year

Current_weekday = Right(period, 1) - 1
Current_year = Left(period, 4)
Current_date = Current_year & "-01-01"

Dim i

For i = DatePart("ww", Current_date, 2, 2) To Left(Right(period, 3), 2)
    Current_date = DateAdd("d", 1, Current_date)
    i = DatePart("ww", Current_date, 2, 2)
Next

Current_date = DateAdd("d", Current_weekday, Current_date)
' Om man tar current_date här så är det av formatet YYYY-MM-DD

Current_date = Format(Current_date, "yyyymmdd", vbMonday)

convertPeriodToYYYYMMDD = Current_date
End Function
```

 

/ Nippe

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum/page2  
Föregående sida: https://www.webforum.nu/amne/asp/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum.md