Avatar billede mtas Nybegynder
09. maj 2002 - 10:23 Der 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.,

på forhånd tak ;))

HÅBER I KAN HJÆLPE !!!!!!!!!!
Avatar billede mysitesolution Nybegynder
09. maj 2002 - 10:29 #1
if [start] < [tid] then
'funktioner
end if
Avatar billede mysitesolution Nybegynder
09. maj 2002 - 10:30 #2
if [start] > [tid] then
'funktioner
end if


if [slut] < [tid] then
'funktioner
end if

if [slut] > [tid] then
'funktioner
end if
Avatar billede mtas Nybegynder
09. maj 2002 - 10:32 #3
prøver lige efter...øjeblik...
Avatar billede mysitesolution Nybegynder
09. maj 2002 - 10:32 #4
over sat:
hvis [start] er mindere end [tid] så
if  [start]      <        [tid] then
Avatar billede mccannon Nybegynder
09. maj 2002 - 10:34 #5
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
Avatar billede mccannon Nybegynder
09. maj 2002 - 10:39 #6
if NOT Newsend >=0 then
    'et eller andet
end if
Avatar billede mtas Nybegynder
09. maj 2002 - 10:41 #7
mccannon>Hvad mener du med "NOT Newsend" ?
Avatar billede mtas Nybegynder
09. maj 2002 - 10:41 #8
mccannon> Kan du få din kode ind i min nuværende som ser således ud ? Jeg vil give dig 100 point så !! Instreeset ?

<table border="0" width="95%" cellspacing="1" cellpadding="4">
<tr><td style="background-color:336699;font-weight:bold;color:white">Kampagne<td

style="background-color:336699;font-weight:bold;color:white">Kunde<td

style="background-color:336699;font-weight:bold;color:white">Start dato<td

style="background-color:336699;font-weight:bold;color:white">Slut dato<td

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>
Avatar billede mccannon Nybegynder
09. maj 2002 - 10:43 #9
kigger lige på det
Avatar billede mccannon Nybegynder
09. maj 2002 - 10:46 #10
ummm ville du have noget imod at maile den DB til mig ?
Avatar billede mtas Nybegynder
09. maj 2002 - 10:48 #11
nej, kom med din mail så sender jeg lige databasen !
Avatar billede mccannon Nybegynder
09. maj 2002 - 10:49 #12
mccannon@get2net.dk
Avatar billede -master-d- Nybegynder
09. maj 2002 - 11:38 #13
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

Er det ok ?
Avatar billede mtas Nybegynder
09. maj 2002 - 12:10 #14
Har alleredet  fået svar fra mccanon !
Avatar billede mtas Nybegynder
09. maj 2002 - 12:11 #15
Kan nogen hjælpe med hvordan jeg hetner en tilfældig fra databasen ??
Avatar billede mtas Nybegynder
09. maj 2002 - 12:12 #16
GIVER NATURLIGVIS NYE POINT BAGEFTER !!!!!!!!!!!!!!!!!!!!
Avatar billede mccannon Nybegynder
09. maj 2002 - 12:38 #17
hvad mener du med tilfældig ..`?

forklar nærmere
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester