ændring af spm 491151

har det her:
DatoTid = "19-04-2004 16:30:14"

if Int(hour(DatoTid)) >= 18 then
  DatoTid = DateAdd("d",1, CDate(Day(DatoTid)&"-"&Month(DatoTid)&"-"&Year(DatoTid))) & " " & "08:00:00"
else
  mm = minute(DatoTid)
  addmm = 30-mm
  if addmm <= 0 then addmm = addmm+30
  tmp=Day(DatoTid) & "-"&Month(DatoTid)&"-"&Year(DatoTid)&" "&Hour(DatoTid)&":"&mm&":00"
  DatoTid = DateAdd("n", addmm, tmp)
end if
DatoTid = Right("0" & day(DatoTid),2) & "-" & Right("0" & month(DatoTid),2) & "-" & Year(DatoTid) & " " & Right("0" & hour(DatoTid),2) & ":" & Right("0" & minute(DatoTid),2) & ":00"

Response.write DatoTid


den runder altid op, nu skal den altid runde ned. hvad skal ændres.