Countdown til dato

Hov - den skal skrive: dage, timer, minutter og sekunder.

Og hehe det skal være til kl. 20.00 !!

Altså det skal være countdown til februar d. 25 kl. 20.00 :-)

Det her skulle gerne virke :)

<%
   
Dim tid, dage, timer, minutter, sekunder
       
tid = DateDiff("s", Now, #02-25-2002 20:00#, vbMonday, vbFirstFourDays)
   
dage = tid / 86400
   
timer = ((dage - Int(dage)) * 86400)/3600
   
minutter = ((timer - Int(timer)) * 3600)/60
   
sekunder = (minutter - Int(minutter)) * 60
   
Response.Write Int(dage) & " dag(e), " & Int(timer) & " time(r), " & Int(minutter) & " minut(ter), " & Int(sekunder) & " sekund(er)"
       
%>

Jeps, virker! Tak, jeg smider 25 point oveni, hvis du gider ændre det til at den tæller ned til 8 PM (så du skal jo sådan set bare lige finde ud af hvornår det er i dansk tid :))

Øh?

webwally: Det var da ikke dig der oprettede dette spm!?

Den skulle gerne tælle ned til 8 PM / 20:00 (#02-25-2002 20:00#)

lukketid?

Tak for svaret.

selv tak :)