09. maj 2002 - 10:23Der er
14 kommentarer og 3 løsninger
Tidsformater
Hey,
jeg sidder og laver et lille annonceringssystem, men jeg har fået nogle problemer med dato og tiden. Fordi den må ikke vises hvis datoen for start ikke er OK og hvis datoen for slut er oversteget.
Jeg bruger en MS Access database til at gemme dataer og start og slut felterne er baseret på Dato og klokkeslæt i kortformat.
Ligeledes denne kode: FormatDateTime(Now, vbShortDate)
Men hvordan tjekker man: Er [start] under [tid]
Er [start] over [tid]
Er [slut] under [tid]
Er [slut] over [tid]
Hvis du har en kode så benyt venligst start, slut og tid og ikke noget med rs("felter") fordi jeg har allerede lagt dem under de nævnte navne.,
Efter ti år i London, Madrid, Paris og Utrecht kommer Sabios AI-fokuserede program af arrangementer om kundeoplevelser, ‘Disrupt’, for første gang til Danmark.
Enddato = RS("End_date") Nudato = formatdatetime(now, VBshortdate) NewsEnd = Datediff("d",Enddato,Nudato) ----- D = dage hvis du vil have minutter skal du bare sætte N i stedet for d
style="background-color:336699;font-weight:bold;color:white">Status</td></tr> <% strvis = "SELECT * from kampagner order by kunde" set rs = Conn1.Execute(strvis)
if not rs.eof then Do start = FormatDateTime(rs("start")) slut = FormatDateTime(rs("slut")) tid = FormatDateTime(Now, vbShortDate) vis = rs("visninger") kunde = rs("kunde")
if vis > 0 then status = vis bg = "green" end if
if vis <= 100 then status = "Kun 100" bg = "yellow" end if
if bc = "#e3e3e3" then bc = "white" else bc = "#e3e3e3" end if
strviss = "SELECT * from kunder where navn = '" & kunde & "'" set rss = Conn1.Execute(strviss) if rss.eof then kundes = kunde & "<br>Ikke fundet" kbg = "red" else kundes = Kunde kbg = bc end if %> <tr><td bgcolor=<% =bc %>><a href="?id=<% =rs("id") %>"><% =rs("navn") %> <td bgcolor=<% =kbg %>><% =kundes %> <td bgcolor=<% =bc %>><% =start %><br> <% if start < tid then %>Ikke startet<% elseif start => tid then %>Startet<% end if %>
<td bgcolor=<% =bc %>><% =slut %><br>
<% if slut < tid then %>Startet<% elseif start => tid then %>Afsluttet<% end if %>
<td bgcolor="<% =bg %>"><% =status %><br> </td></tr> <% rs.movenext loop while not rs.eof end if end if %> </table>
Jeg tror det du har brug for er denne lille stump,
'Hvis start er over tid skriv annonce samtidig med at slut er under tid. 'De andre er vel ikke nødvendige If (start > tid AND slut <tid )Then Response.Write Annoncen Else End If
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.