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!
Observera att jag vill ha ovan utförande och ej den typiska underläggskalenderformatet...
Tack på förhand igen!
MVH
Johanneshov
Jesper TMedlem sedan nov. 20017 144 inlägg 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
Engine^Medlem sedan dec. 20003 887 inlägg Du hittar dessa på till exempel DevGuru: VBScript Functions