Dato + 7 dage

Hvilken database bruger du?
Eks for Access:

SQL = "select * from tabelnavn where dato >= Date() AND dato <= DateAdd('d',7,Date())"

Det er MySQL

Function datedkuk(Streng)
    datedkuk = year(Streng) & "-" & month(streng) & "-" & day(Streng) & " " & hour(streng) & ":" & minute(streng) & ":" & second(streng)
End function

Smid denne funktion ind i din kode, og gør så følgende:

trTID = dateadd("d", -7, now())
strTID = datedkuk(strTID)

SQL = "Select * from TABEL where dato > '"& strTID &"'

Denne SQL henter alt det data indenfor den sidste uge.

dna

trTID er self strTID :D

Ikke indenfor den sidste uge... men den følgende uge

strTID = dateadd("d", 7, datoen)
strTID = datedkuk(strTID)

SQL = "SELECT * from TABEL WHERE datofelt > '"& datoen &"' AND datofelt < '"& strTID &"'"

Er det fra f.eks. hvis det er torsdag: torsdag til søndag, eller er det torsdag til næste onsdag?

Hvis det er fra torsdag til søndag, så brug følgende:

strTID = dateadd("d", 7 - WeekDay(datoen), datoen)
strTID = datedkuk(strTID)

Sorry... Så ikke at du skrev "Alle der kommer i løbet af 7 dage"... Bare afvis mit svar ;)

Det er 7dage frem fra datoen idag..

fx. 01-01-2004 (som er formatet) til 08-01-2004

Har du prøvet mit?
Det burde virke.

DNA=>

den tager også en der starter 02-01-2004... og det er meningen den skal tage alt over.... Den tager samtidig en der starter 15-01-2004

Virker fint her...

strTID = dateadd("d", 7, datoen)
strTID = datedkuk(strTID)

SQL = "SELECT * from ch1_kalender WHERE fradato > '"& datoen &"' AND fradato < '"& strTID &"'"
set rs = conn.execute(sql)

ikke?

Jo...

Prøv lige at teste ved at udskrive følgende:
- datoen
- strTID
- sql

dna

strTID er: 1900-1-6 0:0:0

der skal ikke tid på udtrækket... kun dato... Er det ikke klokkeslet det sidste?

Du kan godt se at der er noget galt med det strTID der...
Datoen er jo ikke for heldig.

Tror ikke at du har den rigtige dato i "datoen"-variablen til at starte med.

strTID = dateadd("d", 7, datoen) <- Her skal du indsætte din egen dato ind istedet for "datoen"

Hvis du ønsker at fjerne klokken fra det, så lav funktionens (datedkuk) om til dette:

Function datedkuk(Streng)
datedkuk = year(Streng) & "-" & month(streng) & "-" & day(Streng)
End function

Takker m8

np da! :D