contatore

[lupo1978]

Salve,io ho un oggetto che scade un giorno x
il valore della scadenza e cosi composto:
<%=(Recordset1.Fields.Item("UltimoDiSCADENZA").Val ue+DATE+TIME)%>
cosi da farmi apparire che quell'oggetto scadra'
per esempio il 25/10/2004 alle ore 15.30
come posso far apparire adesso un conto alla rovescia che mi faccia apparire quanti giorni mancano,quante ore e quanti minuti alla scadenza scelta?

[drummino^]

non so, magari dico una cavolata.
cmq sia per fare la differenza fra date esiste il "DATEDIFF"
ti posto un esempio forse può esserti utile

Dim TheDate As Date   ' Dichiara le variabili.
Dim Msg
TheDate = InputBox("Digitare una data")
Msg = "Giorni dalla data odierna: " & DateDiff("d", Now, TheDate)
MsgBox Msg

ciao

[lupo1978]

protesti essere un po piu chiaro?a me servirebbe
chemi calcolasse quanto tempo manca tra la data di scadenza
valore(scadenza.value+date+time)che mi da per esempio 16/10/2004 alle ore 15.00 e il tempo attuale(now)siccome non conosco il comando mi servirebbe una mano grazie

[lupo1978]

cosi me lo fa
<%
CountdownDate = (Recordset1.Fields.Item("SCADENZA").Value)
If Date >= CountdownDate Then
Response.Write "mancano!"
Response.End
End If

theDate = Now
DaysLeft = DateDiff("d",theDate,CountdownDate) - 1
theDate = DateAdd("d",DaysLeft,theDate)
HoursLeft = DateDiff("h",theDate,CountdownDate) - 1
theDate = DateAdd("h",HoursLeft,theDate)
MinutesLeft = DateDiff("n",theDate,CountdownDate) - 1
theDate = DateAdd("n",MinutesLeft,theDate)
SecondsLeft = DateDiff("s",theDate,CountdownDate) - 1
%>
mi aiti con la sintassi per far si che quando date e' > contdowndate mi elimini il record
ho scitto cosi ma va ridere..
<%
CountdownDate = (Recordset1.Fields.Item("SCADENZA").Value)
If Date >= CountdownDate Then
DELETE * FROM [OGGETTI IN VENDITA] WHERECountdownDate < now()
Response.End
End If

theDate = Now
DaysLeft = DateDiff("d",theDate,CountdownDate) - 1
theDate = DateAdd("d",DaysLeft,theDate)
HoursLeft = DateDiff("h",theDate,CountdownDate) - 1
theDate = DateAdd("h",HoursLeft,theDate)
MinutesLeft = DateDiff("n",theDate,CountdownDate) - 1
theDate = DateAdd("n",MinutesLeft,theDate)
SecondsLeft = DateDiff("s",theDate,CountdownDate) - 1
%>
ovviamente sbagliato