Tid og dato med ASP

<%
dagsdato = now()
gaarsdato = DateAdd("d", -1, dagsdato)
response.write gaarsdato
%>

dinDato = now()
nyDato = dateadd("d",-1,dinDato)

<%
dagsdato = now() ' eller dagsdato = request("dindatoform")
gaarsdato = DateAdd("d", -1, dagsdato)
response.write gaarsdato
%>

Tja... 3 sek for sent :o)

Undskyld, jeg glemte at nævne. formatet er et tekst format og trækket ud af databasen som: 2006-02-02 12:05

Kan jeg så sige:
Set rs = Conn.Execute("Select * FROM bruger where dato = '" & doMysqlDateTime() & "' - DateAdd("d", -1, dagsdato)")

A hvad??? Det fattede jeg ikke meget af :o)

Hvad er det lige du vil med den SQL-sætning?? Og hvad gør doMysqlDateTime() funktionen???

Jeg skriver tiden ind i en database tabel (varchar) med Function:

Function doMysqlDateTime ()
dtDateTime = Now()
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & DatePart("M", dtDateTime) & "-" & DatePart("D", dtDateTime) & " " & DatePart("H", dtDateTime) & ":" & DatePart("N", dtDateTime) & ":" & DatePart("S", dtDateTime)

doMysqlDateTime = dtDateTime
End Function

I udtrækket skal jeg kun have brugerne der er nyere end 1 dag.
Derfor skal jeg have trukket 1 dag fra min '" & doMysqlDateTime() & "'

dagsdato = "2006-02-02 12:05"
'cdate(dagsdato) læser dagsdato som år md dag

gaarsdato = DateAdd("d", -1, cdate(dagsdato))
response.write gaarsdato

Så burde det her jo virke ikk? det gør det bare ikke.

Function doMysqlDateTime ()
dtDateTime = Now()
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & DatePart("M", dtDateTime) & "-" & DatePart("D", dtDateTime) & " " & DatePart("H", dtDateTime) & ":" & DatePart("N", dtDateTime) & ":" & DatePart("S", dtDateTime)

doMysqlDateTime = dtDateTime
End Function
dagsdato = doMysqlDateTime()

Set rs = Conn.Execute("Select * FROM bruger where dato <= DateAdd("d", -1, cdate(dagsdato)) ")

Function doMysqlDateTime ()
dtDateTime = DateAdd("d", -1, now())
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & DatePart("M", dtDateTime) & "-" & DatePart("D", dtDateTime) & " " & DatePart("H", dtDateTime) & ":" & DatePart("N", dtDateTime) & ":" & DatePart("S", dtDateTime)

doMysqlDateTime = dtDateTime
End Function
Select * FROM bruger where dato <= doMysqlDateTime "

Min fejl, glemte et komma.

Resultatet jeg får ud skreves således 18-04-2006 15:38:00
Men for at sammenligne med formatet 2006-02-02 12:05 skal sekunderne nok fjernes, kan man det?

Du har jo mulighed for at gøre bruge af MySQL's indbygget funktioner, men det skaber problemer hvis du skifter database på et senere tidspunkt:

Set rs = Conn.Execute("Select * FROM bruger where dato <= date() ")

og med DATE_ADD funktionen:
Set rs = Conn.Execute("Select * FROM bruger where dato <= DATE_ADD(date(), INTERVAL -1 DAY)")

Så er du helt uden om formateringsproblemet :o)

Function doMysqlDateTime ()
dtDateTime = DateAdd("d", -1, now())
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & DatePart("M", dtDateTime) & "-" & DatePart("D", dtDateTime) & " " & DatePart("H", dtDateTime) & ":" & DatePart("N", dtDateTime) ' så fjerner du bare denne del med sekunderne & ":" & DatePart("S", dtDateTime)

doMysqlDateTime = dtDateTime
End Function
Select * FROM bruger where dato <= doMysqlDateTime "

altså:
Function doMysqlDateTime ()
dtDateTime = DateAdd("d", -1, now())
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & DatePart("M", dtDateTime) & "-" & DatePart("D", dtDateTime) & " " & DatePart("H", dtDateTime) & ":" & DatePart("N", dtDateTime)

doMysqlDateTime = dtDateTime
End Function
Select * FROM bruger where dato <= doMysqlDateTime "

Hvilket format skal MySql være og hvordan skriver jeg tiden ind, bare med Now()

-> fennec
hvis der skal gøre brug ag mysql's indbyggede funktion så skal feltet vel også være sat til dato og ikke tekst eller hva'????

Det er også en der hedder datetime, men synes ikke der kommer noget ind med now()

hvis du sætter db til datetime så indsætter du således
Insert into bruger (dato) value (#" & now() &"#)

og så henter du som fennec beskrev tidligere
Set rs = Conn.Execute("Select * FROM bruger where dato <= DATE_ADD(now(), INTERVAL -1 DAY)")

Fint, prøver jeg...

... Det er altid en god ide at gemme dato værdier i en datotype. Det med at gemme datoer i tekst felter giver ofte bare problemer. Hvis du endelig vil uden om datotyperne, for at gøre det cross-DB, skal du over i decimaltal istedet, men der skal du så selv konvertere dine datoer frem og tilbage i koden.

Man vil så gemme dato/klokkeslet, som noget i denne stil:
Som dato: 19-04-2006 16:06:15
Som tal: 20060419,160615

Desværre skriver intet ind i databasen

hvis du kører denne streng
strSQL="Insert into bruger (dato) values (#" & now() &"#)"
set rs = conn.execute(strSQL)
sætter den så ikke noget ind ?????

prøv at sætte den til date i kolonne i mysql og så indsætte således

hvis du kører denne streng
strSQL="Insert into bruger (dato) values ('" & now() &"')"
set rs = conn.execute(strSQL)
sætter den så ikke noget ind ?????

Den sætter ikke noget ind hverken med date eller datetime

Jeg er noget forvirret, kan du forklare mig hvorfor denne streng virker, databasen bruger også her formatet varchar.

Conn.execute = "DELETE FROM bruger where dato <= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 24 HOUR)"

kommer der ingen fejl ??? det lyder da lidt underligt

får ingen fejl...  skriver kun ind med varchar format ??

måske denne

Set rs = Conn.Execute("Select * FROM bruger where DATE_ADD(dato, INTERVAL 24 HOUR) <= Now() ")

Mener du den kan trække et tekst format ud?

ja hvis den kan slette med denne Conn.execute = "DELETE FROM bruger where dato <= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 24 HOUR)"

så burde du også kunne hente med følgende
Function doMysqlDateTime ()
dtDateTime = DateAdd("d", -1, now())
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & DatePart("M", dtDateTime) & "-" & DatePart("D", dtDateTime) & " " & DatePart("H", dtDateTime) & ":" & DatePart("N", dtDateTime) ' så fjerner du bare denne del med sekunderne & ":" & DatePart("S", dtDateTime)

doMysqlDateTime = dtDateTime
End Function

Set rs = Conn.Execute("Select * FROM bruger where dato <= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 0 HOUR)"

Fatter ikke en brik af det her..

Set rs = Conn.Execute("Select * FROM bruger where dato <= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 0 HOUR)")

Den hiver alt ud.
-og den her ingenting

Set rs = Conn.Execute("Select * FROM bruger where dato >= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 0 HOUR)"

doMysqlDateTime = "2006-04-10 12:05"

Set rs = Conn.Execute("Select * FROM bruger where dato <= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 0 HOUR)")

prøv at sætte en dato på

i stedet for '" & doMysqlDateTime() & "' eller hvad?

doMysqlDateTime = "2006-04-20 12:00"

Set rs = Conn.Execute("Select * FROM bruger where dato <= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 24 HOUR)")

sådan

desværre :(

Error:
'* FROM bruger where dato <= DATE_SUB('2006-4-22 13:38:2

doMysqlDateTime = "2006-04-20 12:00"

Set rs = Conn.Execute("Select FROM bruger where dato <= DATE_SUB('" & doMysqlDateTime() & "', INTERVAL 24 HOUR)")

prøv at fjern *

Desværre, den vælger bare alle poster uanset dato, er vi stødet på noget som er umiligt at lave med ASP og MySql måske??

det er ikke umuligt, men det er noget nemmere hvis formatet i mySQL er sat til datetime - så er det dato mod dato og ikke tekst mod dato - måske skulle du arbejde mod det.

Ja, men alle min poster sættes jo til 00:00:00 hvis jeg formater fra varchar til datetime nu :(

Hvadså hvis jeg laver en tabel der hedder timestamp, så sætter MySql selv et tidsformat ind som 20062304125240 men kan det bruges til noget?

dagsdato = now()
gaarsdato = DateAdd("d", -1, dagsdato)
gaarsdato = replace(gaarsdato," ","")
gaarsdato = replace(gaarsdato,":","")
gaarsdato = replace(gaarsdato,"-","")
'nu har du en talrække
Set rs = Conn.Execute("Select * FROM bruger where dato <= gaarsdato")

hov husk at fjerne stjernen

det kan være den reagere med forkert format så prøv dette

strSQL = "Select from bruger where dato <= " & gaarsdato
set rs = conn.execute(strSQL)

ups du skal selvfølgelig skifte where dato ud med where timestamp (går ud fra at det er det kolonnen hedder ;-))

Fejl fejl fejl :(

talformatet på gaarsdato er ved response.write: 22042006134428
Formatet i MySql står ved response.write som: 20060323133556

dagsdato = now()
dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day(dagsdato) & " " & Time())
if Month(dagsdato_new) < 10 then
md = "0" & Month(dagsdato_new)
else
md = Month(dagsdato_new)
end if
if day(dagsdato_new) < 10 then
dag = "0" & day(dagsdato_new)
else
dag = day(dagsdato_new)
end if
gaarsdato = Year(dagsdato_new) & "-" & md & "-" & dag & " " & Time()

response.write gaarsdato & "<br>"
gaarsdato = replace(dagsdato," ","")
gaarsdato = replace(gaarsdato,":","")
gaarsdato = replace(gaarsdato,"-","")
response.write gaarsdato & "<br>"

Response på dit forslag viser:

2006-04-23 11:24:26
24042006112426

Men stadig er talformatet i MySql sådan:

20060424112501

Det må næste være at tage Now() og fjerne - : eller hvad??

det er da godt nok en hård nød

dagsdato = now()
dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day(dagsdato) & " " & Time())
if Month(dagsdato_new) < 10 then
md = "0" & Month(dagsdato_new)
else
md = Month(dagsdato_new)
end if
if day(dagsdato_new) < 10 then
dag = "0" & day(dagsdato_new)
else
dag = day(dagsdato_new)
end if
tid = time()
tid = replace(tid,":","")
gaarsdato = Year(dagsdato_new) & md & dag & tid

response.write gaarsdato & "<br>"

nu vender det rigtigt ;-)))

Så får jeg nogen resultater ud :-) tænker bare på, hvordan læses talene?
Læses det som et alm. tal eller faktisk som et tidsformat?

Hvis det er alm. tal vil det kunne give problemer.

det ved jeg faktisk ikke - men læses det som talformat må du dele strengen op, men troede at timestamp var en ekstra kolonne du havde sat ind og kun bruger til dette.

kunne du bruge svaret ;-))

Timestamp er en ekstra kolonne.

Men der skal alligevel mere til, fordi gaarsdato er feks. = 20060427103010 og i kolonnen timestamp 20060326104020 så er det da ikke nok bare at skrive:

Set rs = Conn.Execute("Select * FROM bruger where brugernavn = '"&session("brugernavn")&"' AND timestamp <= '"& gaarsdato &"' ORDER BY ID DESC")

???

får du fejl eller hva?

Nej nej, men ligningen gør da ingenting, hvordan trækker den eks. 1 fra?
Det kan jeg ikke se, får ingen fejl, men heller ingen resultat.

dagsdato = now()
dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day

'''''den trækker 1 dag fra her inden den går videre - det kan du også se hvis du aflæser din talrække 20060427103010 - 20060326104020


(dagsdato) & " " & Time())
if Month(dagsdato_new) < 10 then
md = "0" & Month(dagsdato_new)
else
md = Month(dagsdato_new)
end if
if day(dagsdato_new) < 10 then
dag = "0" & day(dagsdato_new)
else
dag = day(dagsdato_new)
end if
tid = time()
tid = replace(tid,":","")
gaarsdato = Year(dagsdato_new) & md & dag & tid

response.write gaarsdato & "<br>"

Tror nok jeg giver op, der er simpelthen fejl på 99 % af de her forsøg, er ikke sikker på det kommer til at virke.:(

Expected ')'
mail.asp, line 20, column 81
dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day
--------------------------------------------------------------------------------^

Årsagen til at now() og date() skriver en total underlig dato i MySql er måske at jeg difinere tidsformatet med denne?

Session.LCID = 1030

dagsdato = now()
dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day(dagsdato) & "-" & Time())

'''''den trækker 1 dag fra her inden den går videre - det kan du også se hvis du aflæser din talrække 20060427103010 - 20060326104020



if Month(dagsdato_new) < 10 then
md = "0" & Month(dagsdato_new)
else
md = Month(dagsdato_new)
end if
if day(dagsdato_new) < 10 then
dag = "0" & day(dagsdato_new)
else
dag = day(dagsdato_new)
end if
tid = time()
tid = replace(tid,":","")
gaarsdato = Year(dagsdato_new) & md & dag & tid

response.write gaarsdato & "<br>"

mitbrugernanv >> Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: '[string: "2006-4-28-16:14:54"]'

dagsdato = now()
dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day(dagsdato) & "-" & Time())


if Month(dagsdato_new) < 10 then
md = "0" & Month(dagsdato_new)
else
md = Month(dagsdato_new)
end if
if day(dagsdato_new) < 10 then
dag = "0" & day(dagsdato_new)
else
dag = day(dagsdato_new)
end if
tid = time()
tid = replace(tid,":","")
gaarsdato = Year(dagsdato_new) & md & dag & tid


Set rs = Conn.Execute("Select * FROM bruger where brugernavn = '"&session("brugernavn")&"' AND timestamp <= '"& gaarsdato &"' ORDER BY ID DESC")

'prøv dette først

'er det sådan du mener at der opstår fejl - så hvis fejl så skift denne linie
Set rs = Conn.Execute("Select * FROM bruger where brugernavn = '"&session("brugernavn")&"' AND timestamp <= '"& gaarsdato &"' ORDER BY ID DESC")


'med
strSQL = "Select * FROM bruger where brugernavn = '"&session("brugernavn")&"' AND timestamp <= '"& gaarsdato &"' ORDER BY ID DESC"
response.write strSQL

'og send så det den udskriver her

Typen stemmer ikke overens i denne linie:

dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day(dagsdato) & "-" & Time())

Typer stemmer ikke overens: '[string: "2006-4-29-09:56:14"]'

dagsdato_new = DateAdd("d", -1,Year(dagsdato) & "-" & Month(dagsdato) & "-" & Day(dagsdato) & " " & Time())

Typer stemmer ikke overens: '[string: "2006-4-29-09:56:14"]

'fjer den sidste bindestreg mellem day og time

Har jeg prøvet så tilter det totalt

Der opstår stadig fejl, her er SQL'en

Select * FROM bruger where timestamp <= '20060428154228' ORDER BY ID DESC