Loopa datum

6 svar · 418 visningar · startad av corona 26 apr. 2004

coronaMedlem sedan feb. 200470 inlägg

Frågan26 apr. 2004 14:11#1

Hej!

Jag undrar hur man på lättaste sättet kan loopa datum dvs kunna loopa fram 30 dagar t ex.

<% For x = FixDate(Date) To FixDate(Date) + 30 %>
<%=x%>
<br>
<% Next %>

Har försökt med detta men det går tydligen inte och jag får felmeddelandet:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "Måndag 26 april"]'

Håller på med en enkel kalender där jag senare ska koppla en databas till.

Någon som vet hur man enklast kan loopa ett datum?
Blir glad för tips och vad för fel jag gör.

/Annette

SebbeMedlem sedan jan. 20032 285 inlägg

26 apr. 2004 14:38#2

For dtm = Date() To DateAdd("d", 30, Date())
  Response.Write(dtm & "<br>")
Next

JAreMANNENMedlem sedan aug. 20002 272 inlägg

26 apr. 2004 14:40#3

For x = Date() To DateAdd("d", date(), +30)
  Response.Write(x &"<br>")
Next

LarsGMedlem sedan dec. 200012 464 inlägg

26 apr. 2004 14:51#4

Dateadd är överflödig.

for x = date() to date() + 30

coronaMedlem sedan feb. 200470 inlägg

26 apr. 2004 20:37#5

Tack för alla snabba svar!
Nu jag får i alla fall inte det att fungera som jag önskar eftersom jag har en funktion som gör om 2004-04-26 till Måndag 26 april.
Tar jag bort funktionen FixDate fungerar det bra men när jag kopplar den till Date() får jag felmeddelandet.
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "Måndag 26 april"]'
Går det inte att loopa en textsträng av Date() ?

/Annette

@ndersMedlem sedan juni 200032 967 inlägg

27 apr. 2004 02:10#6

Vad är FixDate() för funktion då?

Ta bort FixDate() ur For-satsen, och använd det bara i utskriften.

for x = date() to date() + 30
      Response.Write FixDate(x) & "<br>"
next

coronaMedlem sedan feb. 200470 inlägg

27 apr. 2004 06:48#7

Tack @nders!
FixDate gör om datumet från 2004-04-27 till Tisdag 27 april.
Nu fungerara det.