18. juli 2002 - 09:06
Der er
9 kommentarer og 1 løsning
DatePart("ww", date()) arrg
jeg har <% sti="../pict/" uge=DatePart("ww", date()) for i = 1 to 3 if uge = 1 then nuuge = uge&"-qwe" billed = sti&uge&".gif" end if if uge = 2 then nuuge = uge&"-wer" billed = sti&uge&".gif" end if if uge = 3 then nuuge = uge&"-ert" billed = sti&uge&".gif" end if response.write " <a href='../uger/"&nuuge&"/index.asp?xstien="&nuuge&"' target='bund'>"&uge & "</a>" uge = uge + 1 next I if sætninger har jeg 52 uger men den måde jeg har gjort det på tager den ikke højde for noget. Det vil sige at når det er uge 52 vil den prøve at lave 53 og 54 men de eksister ikke og nogle år er jo længere end andre år HJÆÆÆLP.
Annonceindlæg fra Cognizant
AI er ikke problemet. Eksekvering er.
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
Vil du udskrive 3 uger så ret denne linie: uge = uge + 1 til: uge = dateadd("ww", i, date())
<% thisWeek = DatePart("WW", Date()) endWeek = DataPart("WW", DateAdd("WW", 3, Date())) LoopCount = 1 sti = "../pict/" Do While not thisWeek > endWeek If LoopCount = 1 nuuge = thisWeek &"-qwe" billed = sti & thisWeek &".gif" ElseIf LoopCount = 2 Then nuuge = thisWeek &"-wer" billed = sti & thisWeek &".gif" ElseIf LoopCount = 3 Then nuuge = thisWeek &"-ert" billed = sti & thisWeek &".gif" End if LoopCount = LoopCount + 1 thisWeek = DataPart("WW", DateAdd("WW", 1, Date())) Loop %>
og denne skal lige med: uge=DatePart("ww", date(), vbMonday, vbFirstFourDays) Så det bliver: dato = dateadd("ww", i, date()) uge=DatePart("ww", dato, vbMonday, vbFirstFourDays)
hehe tak for de hurtige svar, men jeg er blevet lidt forvirreret nu hvordan skal det se ud ??
Ok. Mit forslag, med koden fra spørsmålet: <% sti="../pict/" uge=DatePart("ww", date(), vbMonday, vbFirstFourDays) for i = 1 to 3 if uge = 1 then nuuge = uge&"-qwe" billed = sti&uge&".gif" end if if uge = 2 then nuuge = uge&"-wer" billed = sti&uge&".gif" end if if uge = 3 then nuuge = uge&"-ert" billed = sti&uge&".gif" end if if uge = ... ... end if response.write " <a href='../uger/"&nuuge&"/index.asp?xstien="&nuuge&"' target='bund'>"&uge & "</a>" dato = dateadd("ww", i, date()) uge=DatePart("ww", dato, vbMonday, vbFirstFourDays) next %>
eagleeye >> Som altid så virker det men gider du spilde et par minutter mere på mig og lige forklarer hvad der sker når man bruger dato = dateadd("ww", i, date()) uge=DatePart("ww", dato, vbMonday, vbFirstFourDays)
eagleeye >> gerne som svar
Ok, men det skulle jo havde været med igåt..... ;)
hehe prøver igen, det er ikke så let at lave et svar.
18. juli 2002 - 09:38
#10
Kurser inden for grundlæggende programmering