content

--- title: "Datumbugg?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12247-datumbugg" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Rossifumi" published: "2001-10-23T15:57:00.000Z" updated: "2001-10-23T16:49:00.000Z" replies: 2 views: 210 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/12247-datumbugg" --- # Datumbugg? ## #1 — Rossifumi, 2001-10-23T15:57Z Hejsan! Jag har med lite tidigare trådar knåpat ihop en del av mitt bokningssystem (lång historia ;)) ``` <% Option Explicit Dim sDatum, sForstaDag, sForstaDagNasta, sAntalDagar, sDagen, I, sKalender, sBg, sKalDatum, fixDatum, sCountTd sDatum = Request.QueryString("date") sKalDatum = Left(sDatum,7) & "-" sForstaDag = Year(sDatum) & "-" & Month(sDatum) & "-01" sForstaDagNasta = Year(sDatum) & "-" & Month(DateAdd("m", 1, sDatum)) & "-01" sAntalDagar = DateDiff("d", sForstaDag, sForstaDagNasta) sCountTd = 0 For I = 1 To sAntalDagar sDagen = WeekDay(Year(sDatum) & "-" & Month(sDatum) & "-" & i, 2) sBg = "aaaaaa" Select Case sDagen Case 6 sBg = "787878" Case 7 sBg = "676767" End Select If Len(I) < 2 Then fixDatum = 0 & I Else fixDatum = I End If If CDate(sKalDatum & fixDatum) = Date Then sBg = "A90034" End If sKalender = sKalender & "" & I & "" & VbCrLf & VbTab & VbTab & VbTab & VbTab & VbTab sCountTd = sCountTd + 1 Next %> content

<% = sKalender %>

<% Response.Write "" & UCase(MonthName(Month(sDatum))) & ", " & Year(sDatum) %>
	" class="td"><	" class="td">>

``` (Exempel, [här](http://www.capreolusfoto.n.se/order/?date=2001-10-23)) Varför funkar inte December? MVH Permalänk: https://www.webforum.nu/p/12247 ## #2 — LarsG, 2001-10-23T16:05Z Denna blir negativ i december sAntalDagar = DateDiff("d", sForstaDag, sForstaDagNasta) ``` sForstaDagNasta = Year(DateAdd("m", 1, sDatum)) & "-" & Month(DateAdd("m", 1, sDatum)) & "-01" ``` Permalänk: https://www.webforum.nu/p/292747 ## #3 — Rossifumi, 2001-10-23T16:49Z LarsG är **kung!** :e Permalänk: https://www.webforum.nu/p/292748 --- Tråden på webben: https://www.webforum.nu/amne/asp/12247-datumbugg