---
title: "Veckonummer i kalender"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8401-veckonummer-i-kalender"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "saw"
published: "2001-03-04T12:45:00.000Z"
updated: "2001-03-05T06:34:00.000Z"
replies: 2
views: 256
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/8401-veckonummer-i-kalender"
---

# Veckonummer i kalender

## #1 — saw, 2001-03-04T12:45Z

Jag har fått ett dumt problem som jag inte ser lösningen på.
Jag har "rättat" ut en kalender, så att man ser månaden i en rak följd, för att man skall kunna få in veckonumren ovanför.
Veckonumren tar jag fram så här:
vecka = DatePart("ww",dFirstDay,2,2)
Inga problem.
Sen delar jag in den "raka" kalenden i 5 bitar (kan ju vara så att det finns 5 veckor i månaden(nästan) eller att datumet kommer mitt i veckan)

Dim i

	FOR i = 1 TO 5
	Response.Write "\<TD  colspan=7   WIDTH=""100%"" ALIGN=CENTER\>"

	IF Vecka  + i = DatePart("ww",Date(),2,2)  THEN

	 Response.Write "\<FONT COLOR=""#000080"" size= 2 TITLE="" Aktuell vecka"" CLASS='vitText'\>\<B\>&nbsp;Vecka Nr:" & Vecka + i & "&nbsp;\</B\>\</FONT\>\</TD\>"
	ELSE
	Response.Write "\<FONT SIZE=2\>Vecka Nr: " & Vecka + i & "\</FONT\>\</TD\>"
	End If
	Next
Response.Write "\</TR\>"
DVS, att jag vill att den aktuella veckan skall få CLASS vitText.

Någonstans så missar jag, men jag ser inte hur, någon?

\_________________\_
Benni
saw@songer.com [www.saw.songer.com](http://www.saw.songer.com) 
\_________________\_

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

## #2 — Vide, 2001-03-04T12:57Z

Skall du inte bara ha "i" i if-satsen?

```
IF i = Cint(DatePart("ww",Date(),2,2)) THEN
```

Eller så kan jag ha missupfattat det hela.... då kan du bara testa att sätta Cint på datumet... så att datatypen stämmer överens med i:s...

Mvh, Vide

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

## #3 — saw, 2001-03-05T06:34Z

Tack för hjälpen, men det skulle visst vara så här:
if cint(vecka) + cint(i) = DatePart("ww",Date(),2,2) then

Nu fungerar den kanon.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8401-veckonummer-i-kalender