Nedräknings script?

6 svar · 403 visningar · startad av bluxbluxo 20 dec. 2003

bluxbluxoMedlem sedan okt. 20034 048 inlägg

Frågan20 dec. 2003 15:03#1

Hejsan!

Jag vill gärna ha ett nedräknings script som visar hur många dagar och timmar det är kvar.
Jag har kollat script arkivet här men, Nej det såg rörit ut :OO

Kan någon fixa det åt mig? :)

SebbeMedlem sedan jan. 20032 285 inlägg

20 dec. 2003 15:12#2

Function DaysAndHours(dtmDatum)
  dtmDatum = CDate(dtmDatum)
  intDays = DateDiff("d", Now(), dtmDatum)
  intHours = DateDiff("h", Now(), dtmDatum) - intDays * 24

  If Abs(intHours) > intHours Then
    intDays = intDays - 1
    intHours = 24 + intHours
  End If

  DaysAndHours = intDays & " dagar och " & intHours & " timmar."
End Function

Response.Write(DaysAndHours("2003-12-28 12:32:43"))

/red Kom på att funktionen inte tog hänsyn till minuter och sekunder. Säg till om du vill ha det med. ;)

bluxbluxoMedlem sedan okt. 20034 048 inlägg

20 dec. 2003 15:24#3

Ska <% vara med? :q

**<%**Function DaysAndHours(dtmDatum)
dtmDatum = CDate(dtmDatum)
intDays = DateDiff("d", Now(), dtmDatum)
intHours = DateDiff("h", Now(), dtmDatum) - intDays * 24

If Abs(intHours) > intHours Then
intDays = intDays - 1
intHours = 24 + intHours
End If

DaysAndHours = intDays & " dagar och " & intHours & " timmar."
End Function

Response.Write(DaysAndHours("2003-12-28 12:32:43"))%>

SebbeMedlem sedan jan. 20032 285 inlägg

20 dec. 2003 15:28#4

Jo, självklart. ;)

bluxbluxoMedlem sedan okt. 20034 048 inlägg

20 dec. 2003 15:36#5

Det löste sig nu :birp

SebbeMedlem sedan jan. 20032 285 inlägg

20 dec. 2003 15:37#6

Vad bra. :)

@ndersMedlem sedan juni 200032 967 inlägg

20 dec. 2003 15:38#7

bluxbluxo skrev:

Det löste sig nu :birp

Då skulle det vara bra om du klickade på "Acceptera som slutgiltigt svar", så att tråden visas som löst.