skal skirve klokken på den næste halve time i databasen men

Det mener jeg bestemt ikke, alt er jo nemt, når man har lært det. Kigger lige med.

sådan er det jo, problemet er bare at jeg er lidt presset af en deadline

Du kan gøre noget i stil med dette:


DatoTid = "19-04-2004 16:34: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

hov der mangler et " i denne linje:
DatoTid = DateAdd("d",1, CDate(Day(DatoTid)&"-"&Month(DatoTid)&"-"&Year(DatoTid))) & " " & 08:00:00"
Sådan her:

DatoTid = DateAdd("d",1, CDate(Day(DatoTid)&"-"&Month(DatoTid)&"-"&Year(DatoTid))) & " " & "08:00:00"

og skal du havde leading 0 på dag,måned,time og minutter så må du lige ud vide det lidt med en ekstra linje som her:


DatoTid = "19-04-2004 16:34: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)
  DatoTid = Right("0" & day(DatoTid),2) & "-" & Right("0" & month(DatoTid),2) & "-" & Year(DatoTid) & " " & Right("0" & hour(DatoTid),2) & ":" & Right("0" & minute(DatoTid),2) & ":00"
end if

Response.write DatoTid

der var jeg så for hurtig igen den skal være uden for if sætningen før man udskriver eller gemmer det i databasen :)


DatoTid = "19-04-2004 16:34: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

nu det bare mig der skriver en helt masse, men der kan måske opstå en uheldighed. Hvis der står:  "19-04-2004 16:30:14" eller "19-04-2004 16:34:14" vil den jeg har vist skrive "19-04-2004 16:30:00"

Men hvad skal der ske når der står:  "19-04-2004 16:30:00"
skal det give "19-04-2004 17:00:00" eller "19-04-2004 16:30:00" ?

ARh copy paste crap.. Anden linje i stidste kommentar skal være:

Hvis der står:  "19-04-2004 16:30:14" eller "19-04-2004 16:30:00" vil den jeg har vist skrive "19-04-2004 16:30:00"

virker smid et svar

glem at det virker så ikke du havde skrevet mere. Den skal ALTID runde op.

Den sætter tilsyneladende selv 0 på i databasen

i det mindste i access, det skal godt nok flyttes over i mssql, men forventer da ikke det vil give problemer

hvis den altid skal runde op så gør du bare sådan her, der er tilføjet et = i linjen :
  if addmm <= 0 then addmm = addmm+30

Så koden bliver:


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

takker

nu fnadt kunden så ud af at den altid skal runde ned, hvor skal jeg rette?

er de bare de her 2 linier der skal byttes:

if addmm < 0 then addmm = addmm+30

if addmm <= 0 then addmm = addmm+30

det skriver du men jeg kan ikke lige se det.

næ det er vist ikke nok :O(