Timer / Cronometro

[Marcio POG 0]

Boa tarde pessoal!

 

Estou fazendo um sistema, e durante o tempo em que o usuário estará respondendo algumas questões (sofrendo redirecionamentos de página), terá um cronômetro decrescente, o que fará com que ao terminar o tempo, a avaliação de pesquisa que ele estiver respondendo será bloqueada e levada à uma página final.

Tenho procurado scripts prontos, mas não achei nenhum. Alguém saberia me dizer como fazer um cronometro decrescente desse tipo, ou melhor, onde achar um script pronto? O cronômetro necessariamente tem que ser apresentado na tela, para controle de tempo do usuário.

 

VAleuuuuuuuuuu!

[xanburzum 169]

usa o datediff

 

olha este exemplo:

 

<%
DATA1 = Cdate(Now()) 'DATA ATUAL
DATA2 = Cdate(FINALIZA) 'DATA FINALIZAÇÃO
DIAS = DateDiff("d",DATA1,DATA2)
If DateDiff("h",DATA1,DATA2) <> 0 Then
HORA = DateDiff("h",DATA1,DATA2) - Cint(DIAS) * 24
Else
HORA = 0
End If
If DateDiff("n",DATA1,DATA2) <> 0 Then
MINUTO = DateDiff("n",DATA1,DATA2) - DateDiff("h",DATA1,DATA2) * 60
Else
MINUTO = 0
End If
If DateDiff("s",DATA1,DATA2) <> 0 Then
SEGUNDO = DateDiff("s",DATA1,DATA2) - DateDiff("n",DATA1,DATA2) * 60
Else
SEGUNDO = 0
End If
If SEGUNDO < 0 Then
MINUTO = MINUTO - 1
SEGUNDO = 60 - SEGUNDO + SEGUNDO * 2
End If
If MINUTO < 0 Then
HORA = HORA - 1
MINUTO = 60 - MINUTO + MINUTO * 2
End If
If HORA < 0 Then
DIAS = DIAS - 1
HORA = 24 - HORA + HORA * 2
End If
If DIAS > 1 Then
Response.Write "<font color=#003366 class=fontsize>" & DIAS & "d " & HORA & "h </font>"
ElseIf DIAS = 1 Then
Response.Write "<font color=#FF0000 class=fontsize>" & DIAS & "d " & HORA & "h </font>"
ElseIf DIAS = 0 AND HORA > 0 Then
Response.Write "<font color=#FF0000 class=fontsize>" & HORA & "h " & MINUTO & "m </font>"
ElseIf DIAS = 0 AND HORA = 0 AND SEGUNDO > 1 Then
Response.Write "<font color=#FF0000 class=fontsize>" & MINUTO & "m " & SEGUNDO & "s </font>"
End If
%>

este script calcula quanto falta pra acabar e mostra na tela (justamente como o mercado livre), incluindo horas minutos e segundos pra acabar.

[Marcio POG 0]

VALEU!!!!!!!!!!!!!!!!!!!!!

daqui a pouco vou testar e volto aqui no fórum para falar como ficou.

muito obrigado, você sempre me ajudando!

um abração!!!!!!!

[xanburzum 169]

beleza ASPmano...