---
title: "Kalender"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/91340-kalender"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Johanneshov"
published: "2003-11-26T14:34:46.000Z"
updated: "2003-11-27T09:29:48.000Z"
replies: 4
views: 275
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/91340-kalender"
---

# Kalender

## #1 — Johanneshov, 2003-11-26T14:34Z

Utjatat ämne... I know!  ;-)

Här en fin kalender som jag skulle vilja implementera!!!
Någon som kan bjuda på lite kod/länk/ref för att få till något liknande (rätt dagar per månad, år etcetera)?

Posterna som skall visas per dag (kan vara flera händelser) skall utgå från lagradat datum date now().

[Finfin kalender!](http://web.stigmannen.se/SOL/kalender.asp) 
Observera att jag vill ha ovan utförande och ej den typiska underläggskalenderformatet...

Tack på förhand igen!

MVH
Johanneshov

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

## #2 — Jesper T, 2003-11-26T14:55Z

Kolla denna: <http://www.webforum.nu/showthread.php?s=&threadid=37478&forumid=148>

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

## #3 — Johanneshov, 2003-11-26T20:47Z

Hmmm... Snyggt men lite för avancerat (namnsdagar), ett mellanting skulle passa bättre (förslag?)! 
Hur som helst, antar att det barar är att sätta igång!

Räkna ut dagar i aktuell månad!
Fixa in rätt dagnamn på rätt dagnummer!
Räkna upp och fixa in aktiviteter på rätt dagnummer!
Ögona blör redan... ;-)

Kan någon förklara hur följande följande funktioner FUNGERAR blir livet lättare (vad de gör förstår jag).

```
1- - - - - - -
iWeekNo = DatePart("ww",dYear & "-" & dMonth & "-" & iCounter,2,2)
2- - - - - - - - 
CInt(Right(RS("Datum1"),2))
3- - - - - - - - 
  dDayName = WeekdayName(WeekDay(dYear & "-" & dMonth & "-" & iCounter),False,1)
  dDayname = UCase(Left(dDayName,1)) & Right(dDayName, Len(dDayName) - 1)
4- - - - - 
dDaysInMonth = Day(DateAdd("d", -1, DateSerial(dYear, dMonth + 1, 1)))
```

Var hittar jag syntaxen eller förklaringen till funktionerna: Datepart, Ucase, Right, DateSerial...

Vad jag jobbig nu??

MVH
Johanneshov

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

## #4 — Engine^, 2003-11-26T20:50Z

Du hittar dessa på till exempel DevGuru: [VBScript Functions](http://www.devguru.com/Technologies/vbscript/quickref/functions.html)

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

## #5 — Johanneshov, 2003-11-27T09:29Z

Tackar!

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

---

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