--- title: "Veckans dagar" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/53639-veckans-dagar" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Jesper T" published: "2002-09-18T17:26:09.000Z" updated: "2002-09-22T17:09:19.000Z" replies: 24 views: 953 page: 1 pages: 2 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/53639-veckans-dagar" --- # Veckans dagar _Sida 1 av 2._ ## #1 — Jesper T, 2002-09-18T17:26Z Jag skulle vilja lista ut en tabell med veckans datum. Nu listar den ut en hel månad men jag skulle vilja lista ut endast veckonummrets datum(alltså sju stycken) tex vecka 38. ``` V.38 16 Måndag -------------------------------------------------------------------------------- 17 Tisdag -------------------------------------------------------------------------------- 18 Onsdag -------------------------------------------------------------------------------- 19 Torsdag -------------------------------------------------------------------------------- 20 Fredag -------------------------------------------------------------------------------- 21 Lördag -------------------------------------------------------------------------------- 22 Söndag ``` Är den ngn som har ett tips? Sedan skall jag förståss kunna välja vecka som den skall visa. :) Permalänk: https://www.webforum.nu/p/53639 ## #2 — LarsG, 2002-09-18T18:13Z ``` weekno = 38 y = 2002 firstday = y & "-01-01" fweek = datepart("ww", firstday) if fweek > 1 then startday = dateadd("d",8-weekday(firstday,vbmonday),firstday) else startday = dateadd("d",-6-weekday(firstday,vbmonday),firstday) end if startday = dateadd("ww",weekno,startday) response.write "v." & weekno & "
" for d = startday to startday + 6 response.write day(d) & " " & weekdayname(day(d)) & "
" response.write "------------------------------------
" next ``` Permalänk: https://www.webforum.nu/p/788770 ## #3 — Icebreaker, 2002-09-18T20:26Z bra lösning :bire tror jag kopierar den och sparar för framtida projekt ;) Permalänk: https://www.webforum.nu/p/788876 ## #4 — Jesper T, 2002-09-19T06:33Z > Microsoft VBScript runtime error '800a0005' > Invalidprocedure call or argument: 'weekdayname' > /db/cal/cal.asp, line 33 line 33 --\>response.write day(d) & " " & weekdayname(day(d)) & "\" :( Permalänk: https://www.webforum.nu/p/788978 ## #5 — Jesper T, 2002-09-19T09:02Z Invalid procedure call or argument: 'weekdayname' Har ingen aning om vad det betyder. Permalänk: https://www.webforum.nu/p/789101 ## #6 — CoreX, 2002-09-19T09:07Z Ändra från response.write day(d) & " " & weekdayname(day(d)) & "\" Till response.write day(d) & " " & weekday(day(d)) & "\" Så funkar det bättre Permalänk: https://www.webforum.nu/p/789103 ## #7 — CoreX, 2002-09-19T09:13Z Sorry. Så här skulle det visst vara.. response.write day(d) & " " & weekdayname(weekday(d)) & "\" Permalänk: https://www.webforum.nu/p/789111 ## #8 — Jesper T, 2002-09-19T09:24Z Tack! Permalänk: https://www.webforum.nu/p/789119 ## #9 — Jesper T, 2002-09-19T09:29Z När jag tänker efter så skulle det bli lite svårt att göra ett veckodagsnamn av: weekdayname(day(d)) där day endast är dagen i datumet. Såklart så måste det vara: weekdayname(weekday(d)) :) Permalänk: https://www.webforum.nu/p/789121 ## #10 — Jesper T, 2002-09-19T11:29Z Red :r Permalänk: https://www.webforum.nu/p/789208 ## #11 — Jesper T, 2002-09-19T12:06Z Nu ser allt konstigt ut, hur skall jag lägga koden för att den skall lägga sig i rätt dagar? Nu ser det ut så här: ``` 07:00-09:30 Få se Nu! 07:15-07:35 test 18:00-18:30 Godnatt 2 måndag -------------------------------------------------------------------------------- 07:00-09:30 Få se Nu! 07:15-07:35 test 18:00-18:30 Godnatt 3 tisdag -------------------------------------------------------------------------------- 07:00-09:30 Få se Nu! 07:15-07:35 test 18:00-18:30 Godnatt 4 onsdag -------------------------------------------------------------------------------- 07:00-09:30 Få se Nu! 07:15-07:35 test 18:00-18:30 Godnatt 5 torsdag -------------------------------------------------------------------------------- 07:00-09:30 Få se Nu! 07:15-07:35 test 18:00-18:30 Godnatt 6 fredag -------------------------------------------------------------------------------- 07:00-09:30 Få se Nu! 07:15-07:35 test 18:00-18:30 Godnatt 7 lördag -------------------------------------------------------------------------------- 07:00-09:30 Få se Nu! 07:15-07:35 test 18:00-18:30 Godnatt 8 söndag ``` "Få se Nu!" och "test" skall ligga på måndagen och Godnatt skall vara på torstagen. JAG HAR FÅTT HJÄRNSLÄPP Koden: ``` If Not RS.BOF Then RS.MoveFirst Do Until RS.EOF sOutput = sOutput & "" & RS("ftid") & "-" & RS("ttid") & " " & VbCrLf sOutput = sOutput & "" & RS("rubrik") & "
" & VbCrLf RS.MoveNext Loop end if for [b][3][red]d[/red][/3][/b] = weekstartday to weekstartday + 6 Response.Write sOutput Counter=weekdayname(weekday([b][3][red]d[/red][/3][/b] )) response.write day([b][3][red]d[/red][/3][/b] ) & " " & Counter & "
"& vbcrlf &_ "
"& vbcrlf'rs("rubrik")&"
"&_ next ``` x( Permalänk: https://www.webforum.nu/p/789235 ## #12 — Jesper T, 2002-09-19T13:09Z hälp!!! Permalänk: https://www.webforum.nu/p/789273 ## #13 — CoreX, 2002-09-19T13:22Z Du loopar ju ut samma info från databasen till alla dagar.. du måste ange det datum infon skall presenteras Permalänk: https://www.webforum.nu/p/789278 ## #14 — Jesper T, 2002-09-19T14:08Z Jag fattar inte detta, snälla jag förstår principen men inte hur jag skall göra det. HJÄLP! Permalänk: https://www.webforum.nu/p/789328 ## #15 — Jesper T, 2002-09-19T15:35Z Någon vänlig själ...? Permalänk: https://www.webforum.nu/p/789439 ## #16 — solbulle, 2002-09-19T16:45Z Var plockar du ut datumet från databasen? Jag ser bara i det du visar att du plockar ut klockslagen (start/stopptid) Du måste ju se till att bara få ut den eller de dagar du är intresserad av. Permalänk: https://www.webforum.nu/p/789528 ## #17 — Jesper T, 2002-09-19T21:04Z Ja precis, det måste jag ju såklart. Men nu slog det mig att värdet i variabeln "d" kommer först efter loopen och därför så har jag svårt att se hur det skall gå till. ``` Do Until RS.EOF [red]If right(RS("Datum1"),2) = right(([3][B]d[/B][/3]),2) Then[/red] sOutput = sOutput & "" & RS("ftid") & "-" & RS("ttid") & " " & VbCrLf sOutput = sOutput & "" & RS("rubrik") & "
" & VbCrLf [red]end if[/red] RS.MoveNext Loop ``` Någon som vet hur detta skall lösas? Se rödmarkerade "d:n" i mitt senaste inlägg (med kod). Permalänk: https://www.webforum.nu/p/789743 ## #18 — Jesper T, 2002-09-20T11:03Z Jag vet att det ändå inte kommer att fungera, hur gör man detta igentligen? Permalänk: https://www.webforum.nu/p/790088 ## #19 — Jesper T, 2002-09-20T13:27Z Kom igen nu, jag vet att ni kan! Permalänk: https://www.webforum.nu/p/793036 ## #20 — Jesper T, 2002-09-20T15:15Z SNÄLLA, jag går bet på detta snart, en liten hint bara tack! Permalänk: https://www.webforum.nu/p/793101 --- Tråden på webben: https://www.webforum.nu/amne/asp/53639-veckans-dagar Nästa sida: https://www.webforum.nu/amne/asp/53639-veckans-dagar/page2.md