Forkert dato

Prøv at vende det om, 2004-02-29

jeg skal bruge formatet 00-00-0000

Jeg kender ikke MySQL, men har du mulighed for at tjekket/ændre masken på datoformatet i den database?

Ellers har du mulighed for at styre datoen ved at tage en del ad gangen:
Dim strDate
Dim strDateFormatted
strDate = Date() 'eller den dato du nu skal bruge
strDateFormatted = Day(strDate) & "-" & Month(strDate) & "-" & Year(strDate)

Du skal vende den om når du sætter den ind og så vende den tilbage igen når du skal vise den i asp.

hvordan vender jeg den om så?

Se lklingenbergs løsning og vend dem rundt sådan
strDateFormatted = Year(strDate) & "-" & Month(strDate) & "-" & Day(strDate)

-> bertie (19:33:46):
Ja, naturligvis (doh)!  ;-)

Grunden til det er at jeg ikke kan finde eller lave en kode der kan finde ud af at tage alle de data der kommer i løbet af den næste uge, nogen ideer, det er til kalender modul.

øh, data der kommer hvorfra og skal bruges til hvad?

kommer fra min database.. det er mine kalender mener der har en "tildato" jeg skal så requeste alle der har en "tildato" der er indenfor den næste uge.

Bare så jeg forstår det rigtigt: i din db har du en kolonne der hedder tildato (som formentlig er required?). Du ønsker så at trække alle poster ud af din db hvor tildato falder i tidsrummet dags dato til dags dato +7 dage. Korrekt?

Hvis ja så kan flg. anvendes:

If Date() <= objRS("tildato").Value =< DateAdd("d", 7, Date()) Then Response.Write (objRS("tildato").Value)

Hvis du skal have hjælp til at formattere datoen korrekt (jf. dit indgangsspm), så sig til.

...eller hvad du nu skal have skrevet ud. Det er formentlig også en del af en løkke kunne jeg forestille mig.

hov, de to sidste linjer skulle have været byttet om ;-)

Skal datoen så være 0000-00-00?

Den melder fejl (den skriver ikke lige hvad det er, bare "Der opstod en fejl")

min kode ser sådan her ud:

strSql = "Select * from tabel"
Set objRS = conn.Execute(strSql)

do while not objRS

If Date() <= objRS("tildato").Value =< DateAdd("d", 7, Date()) Then
Response.Write (objRS("tildato").Value)
end if

objRS.MoveNext
loop

Hm, jeg ville nok vælge at sætte betingelsen ind SQL udtrykket. På den måde henter du kun de records ud der matcher din betingelse - det sparer båndbredde og dermed tid.

strSql = "SELECT * FROM tabel " & _
"WHERE tildato >= " & Date() & " AND tildato <= " & DateAdd("d", 7, Date())

Og så er der det med formatteringen - hvordan står datoformatet i databasen: yyyy-mm-dd tt:mm:ss eller dd-mm-yyyy tt:mm:ss eller noget helt tredje?

det står som dd-mm-yyyy

ikke nogen tid

Den siger der ingen er selvom der står en med tildato på 28-02-2004 i en DATE felt(mysql)

Prøv at sætte sætningen
<% Session.LCID=1030 %>
ind øverst i dokumentet. Den sikrer dansk formattering (dd-mm-yyyy) på bl.a. datoer.
Prøvede du min SQL streng? Får du en objRS.EOF?

Er 'off-line' i et par timer fra nu af, men vender tilbage senere...

<% Session.LCID=1030 %> er sat ind i alle mine dokumenter.

Jeg har

if rs.eof then
response.write "Ingen emner"
else
udtræk...
end if

Og når du kalder rs skriver den "Ingen emner"?

ja, når jeg prøver at få dem der er den næste uge frem siger den "Ingen Emner"

Prøv med

strSql = "SELECT * FROM tabel " & _
"WHERE tildato >= " & FormatDateTime(Date(), vbShortDate) & " AND tildato <= " & FormatDateTime(DateAdd("d", 7, Date()), vbShortDate)

Eagleeye hjalp mig, han gav mig denne kode:

SQL = "select * from tabelnavn where DATE_ADD(CURDATE(), INTERVAL 7 DAY) >= datokolonne AND datokolonne >= CURDATE();"

Cool - det er selvfølgelig en noget mere elegant løsning. Godt du fandt en løsning.