Tid + 10 min

Sådan her mester:

<%
dag = day(now)
if dag<10 then
dag = "0" & dag
end if
maaned = month(now)
if maaned<10 then
maaned = "0" & maaned
end if
klok = "08:00:00"
ftid = dag & "-" & maaned & "-" & year(now) & " " & klok
ttime = hour(klok)
minut = minute(klok)
if minut<10 then
minut = "0" & minut
end if
response.write ttime & ":" & minut & "<br>"
do until hour(ftid)=18
count=count+1
ftid = dateadd("n",10,dag & "-" & maaned & "-" & year(now) & " " & hour(ftid) & ":" & minute(ftid) & ":" & second(ftid))
ttime = hour(ftid)
minut = minute(ftid)
if minut<10 then
minut = "0" & minut
end if
response.write ttime & ":" & minut & "<br>"
loop
%>

- denne her skulle gerne virke...

\Dan

Perfekt mange tak for hjælpen.

det var så lidt - og tak for point...

\Dan

det er da meget nemmere med datediff....

Helt enkelt:

<%
Session.LCID = 1030
Dim dtmDato
dtmDato = TimeSerial(8, 0, 0)
do while DatePart("h", dtmDato) < 18
    Response.Write(Left(dtmDato, 5) & "<br>")
    dtmDato = DateAdd("n", 10, dtmDato)
loop
Response.Write(Left(dtmDato, 5) & "<br>")
%>