Avatar billede bobbedude Nybegynder
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 "&nbsp;&nbsp;<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.
Avatar billede eagleeye Praktikant
18. juli 2002 - 09:10 #1
Vil du udskrive 3 uger så ret denne linie:

uge = uge + 1

til:

uge = dateadd("ww", i, date())
Avatar billede misbruger Nybegynder
18. juli 2002 - 09:14 #2
<%
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
%>
Avatar billede eagleeye Praktikant
18. juli 2002 - 09:16 #3
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)
Avatar billede bobbedude Nybegynder
18. juli 2002 - 09:18 #4
hehe tak for de hurtige svar, men jeg er blevet lidt forvirreret nu hvordan skal det se ud ??
Avatar billede eagleeye Praktikant
18. juli 2002 - 09:21 #5
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 "&nbsp;&nbsp;<a href='../uger/"&nuuge&"/index.asp?xstien="&nuuge&"' target='bund'>"&uge & "</a>"

  dato = dateadd("ww", i, date())
  uge=DatePart("ww", dato, vbMonday, vbFirstFourDays)
next
%>
Avatar billede bobbedude Nybegynder
18. juli 2002 - 09:24 #6
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)
Avatar billede bobbedude Nybegynder
18. juli 2002 - 09:24 #7
eagleeye >> gerne som svar
Avatar billede eagleeye Praktikant
18. juli 2002 - 09:36 #8
Ok, men det skulle jo havde været med igåt..... ;)
Avatar billede eagleeye Praktikant
18. juli 2002 - 09:37 #9
hehe prøver igen, det er ikke så let at lave et svar.
Avatar billede misbruger Nybegynder
18. juli 2002 - 09:38 #10
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester