---
title: "Har veckonummer och dag i form av måndag kan jag få ut datum?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/151754-har-veckonummer-och-dag-i-form-av-måndag-kan-jag-få-ut-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2006-09-25T22:55:44.000Z"
updated: "2006-09-26T08:40:48.000Z"
replies: 2
views: 281
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/151754-har-veckonummer-och-dag-i-form-av-måndag-kan-jag-få-ut-datum"
---

# Har veckonummer och dag i form av måndag kan jag få ut datum?

## #1 — Addeladde, 2006-09-25T22:55Z

Hej

Jag har en variabel som innehåller dag alltså måndag, tisdag osv. Sedan har jag en annan variabel som innehåller veckonummer t.ex. 48

Kan jag få ut datum genom en funktion?

Response.write getDatum("torsdag",48)

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

## #2 — doggelito, 2006-09-26T06:19Z

Jag hittade en funktion i mitt funktionsarkiv som skulle kunna passa! :)

```
<%
	Dim myYear, myWeek, myDay
	
	myYear = year(Date())
	myWeek = 48
	myDay = getDayByName("Torsdag")
	
	Response.Write(getWeekDay(myYear, myWeek, myDay))
	
	
	'Hämtar vald dag i vald vecka ==============================================
	Public Function getWeekday(Byval Current_year, Byval Current_week, Byval Current_weekday)
		Dim Current_date
		Current_weekday = Current_weekday-1
		Current_date = Current_year & "-01-01"
		Do Until DatePart("WW", Current_date, 2, 2) = Current_week
			Current_date = DateAdd("D", 1, Current_date)
		Loop
		getWeekday = DateAdd("D", Current_weekday, Current_date)
	End Function
	
	
	'Gör om dag i text till nummer ============================================
	Public Function getDayByName(strName)
		Dim RetVal
		Select Case lcase(strName)
			Case "måndag" : RetVal = 1
			Case "tisdag" : RetVal = 2
			Case "onsdag" : RetVal = 3
			Case "torsdag" : RetVal = 4
			Case "fredag" : RetVal = 5
			Case "lördag" : RetVal = 6
			Case "söndag" : RetVal = 7
		End Select
		
		getDayByName = RetVal
	End Function
%>
```

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

## #3 — Addeladde, 2006-09-26T08:40Z

Tack

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/151754-har-veckonummer-och-dag-i-form-av-måndag-kan-jag-få-ut-datum