---
title: "Nedräkning."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/42590-nedräkning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Quid"
published: "2002-04-27T08:57:14.000Z"
updated: "2002-04-27T08:57:14.000Z"
replies: 0
views: 1253
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/42590-nedräkning"
---

# Nedräkning.

## #1 — Quid, 2002-04-27T08:57Z

Här följer en liten kodsnutt som skriver ut hur lång tid det är kvar till något. Det är säkert många som vill ha en "nedräknare" på sin sida.

När det händer och vad ska hända styrs av två variabler som hittas under "Settings".

Lycka till.

\<% @language = vbscript LCID = 1053 %\>
\<% Option Explicit

'\[ Copyright 2002 - Quid \| <https://www.quakenexus.nu> \| <quid@quakenexus.nu> \]

'Variables
Dim DateAndTime, NameOfEvent, Font, FontSize, DaysLeft, HoursLeft, MinutesLeft, SecondsLeft 

'Settings
DateAndTime = #2020-12-12 16:32:15#
NameOfEvent = "Quid fyller 40"
Font = "verdana"
FontSize = 2

Response.Write "\<FONT FACE="& Font &" SIZE="& FontSize &"\>"
DaysLeft = DateDiff("d", now(), DateAndTime)
If DaysLeft \< 2 Then
	HoursLeft = DateDiff("h", now(), DateAndTime)
	If HoursLeft \< 2 Then
		MinutesLeft = DateDiff("n", now(), DateAndTime)
		If MinutesLeft \< 2 Then	
			SecondsLeft = DateDiff("s", now(), DateAndTime)
			If SecondsLeft \< 1 Then
				Response.Write NameOfEvent &" pågår nu."
			Else
				IF SecondsLeft = 1 Then
					SecondUnit = " sekund"
				Else
					SecondUnit = " sekunder"
				End If	
				Response.Write "Det är "& SecondsLeft & SecondUnit &" kvar till "& NameOfEvent &"."
			End If
		Else
			Response.Write "Det är "& MinutesLeft &" minuter kvar till "& NameOfEvent &"."
		End If
	Else
		Response.Write "Det är "& HoursLeft &" timmar kvar till "& NameOfEvent &"."
	End If
Else
	Response.Write "Det är "& DaysLeft &" dagar kvar till "& NameOfEvent &"."
End If
Response.Write "\</FONT\>"
%\>

Permalänk: https://www.webforum.nu/p/42590

---

Tråden på webben: https://www.webforum.nu/amne/asp/42590-nedräkning