Random Klokkeslet...

Besynderligt problem, men denne lille funktion skulle kunne klare det:

<%
Randomize()
myTime = now() + (rnd * (5 / 24))
Response.Write myTime
%>

Skift 5-tallet ud med det max antal timer den skal kalkulere!

Mvh,

Thomas REgin.

Har lige fyldt lidt mere på, nu hvor jeg fik læst dit problem rigtigt igennem:

<%
myRnd = 4 'Antallet af timer der skal kalkuleres med.
if not hour((now() + (myRnd / 24))) > 23 then 'Check, at rutinen ikke kører, hvis det kan overstige 23.00.
    Randomize()
    myTime = now() + (rnd * (myRnd / 24))
    Response.Write myTime
End If
%>

Mvh,

Thomas Regin.

Jeg kan ikke få det til at virke :(

Den kan finde på at skrive et tidspunkt som kun ligger 1 minut ude i fremtiden. Det skal helst være min. 2 timer ude i fremtiden og højst 6.

hvad mener du med denne:?

Det skal være inden klokken 23:00:00.

Her et script som tager et tilfældt time/minut/sekund mellem 2.00.00->4.59.59 timer:


timerTil = Int((4-2+1) * rnd + 2)
minutTil = Int((59+1) * rnd)
sekundTil = Int((59+1) * rnd)

nyTid = dateAdd("h",timerTil,Time)
nyTid = dateAdd("n",minutTil,nyTid)
nyTid = dateAdd("s",sekundTil,nyTid)

Response.Write "Time: " & time & "<br>"
Response.Write "nyTid: " & nyTid


Men jeg forstår ikke hvordan de 23.00.00 kommer ind, jeg kan godt følge at den vil skrifte over 00.00.00 når man kommer tæt på midnat...

Her er en hvor timer ikke kommer over 23:

randomize
timerTil = Int((5-2+1) * rnd + 2)

if Int(hour(time)) + timerTil > 23 then timerTil = 23-Int(hour(time))
nyTid = dateAdd("h",timerTil,Time)
Response.Write "nyTid: " & nyTid

Var det noget du kunne bruge?

Ja, tusind tak!