skal skirve klokken på den næste halve time

er det svært?

faktisk ikke.
Skal nok lave en funk til dig. Komme om 5 min, hvis der ikke er nogen der får lavet en først :o)

Hvad med 12.00 hvad skal det stå som 12.00 eller 12.30

12.30

Her kommer det så:

function halfMin(clock,delimiter)
dim FunkHour, FunkMin, FunkTmp, ReturnVal
  FunkTmp = split(clock,delimiter)
  FunkHour = cint(FunkTmp(0))
  FunkMin = cint(FunkTmp(1))
  if FunkMin < 30 then
      if FunkHour < 10 then
      ReturnVal = "0" & FunkHour & delimiter & "30"
    else
      ReturnVal = FunkHour & delimiter & "30"
    end if
  else
      FunkHour = FunkHour + 1
      if FunkHour < 10 then
      ReturnVal = "0" & FunkHour & delimiter & "00"
    else
      if FunkHour = 24 then FunkHour = "00"
      ReturnVal = FunkHour & delimiter & "00"
    end if
  end if
  halfMin = ReturnVal
end function

Response.write halfMin("12.04",".") & "<br>"
Response.write halfMin("23.50",".") & "<br>"
Response.write halfMin("00.00",".") & "<br>"
Response.write halfMin("12.00",".") & "<br>"
Response.write halfMin("12.30",".") & "<br>"
Response.write halfMin("12:30",":") & "<br>"
Response.write halfMin("2:5",":") & "<br>" '2 timer og 5 min

Jeg har lavet det sådan at den også kan fungere med ":" som adskildelse, det skal bare angives. Samt engelsk tidsformat. Der er ikke sikkerheds tjek på om "ind"-tidspunktet er valid. Den vil derfor fejle hvis man skriver halfMin("23.50",",") eller bruger bruger tekst halfMin("hejsa",",")

Der skal stå:
Der er ikke sikkerheds tjek på om "ind"-tidspunktet og delimiter er valid.

kan man udvide den så den bruger sytem klokken altså Now() skulle også helst kunne bruge den op mod databasen, hvor jeg også skal have posterne gemt efter samme regel.

som svar på noget af mit eget sp:

tid2=FormatDateTime("20:00",4)       
tid=FormatDateTime(now,4)
if tid>tid2 then
Response.write ("08:00") & "<br>"
else
Response.write halfMin(tid,":") & "<br>"
end if

smid bare et svar du har gjort dit og jeg opretter endnu et sp

ok