Ja, jeg prøvede, men fik det ikke på plads. Det er længe siden, det er møgforkert:
<%
Dim xMinute, yMinute
xMinute = minute(now)
If xMinute < 15 Then yMinute = "00" ' Jeg gemmer som tekst, da der skal stå 00 i <inpute type=text ElseIf If xMinute >14 And If xMinute < 30 Then yMinute = "15" End If ElseIf If xMinute >29 And If xMinute < 45 Then yMinute = "30" End If Else yMinute = "45" End If
If xMinute < 15 Then yMinute = "00" ElseIf If xMinute >14 And If xMinute < 30 Then yMinute = "15" End If ElseIf If xMinute >29 And If xMinute < 45 Then yMinute = "30" End If Else yMinute = "45" End If
function roundMinute(byVal orgMinute) newMinute = "00" if cdbl(orgMinute)>14 then newMinute = "15" if cdbl(orgMinute)>29 then newMinute = "30" if cdbl(orgMinute)>44 then newMinute = "45" roundMinute = newMinute end function
Jeg lavede dette, og det ser foreløbig ud til at virke (meget simpelt):
<%
Dim newMinute newMinute = minute(now)
If newMinute > 44 Then roundedMinute = "45" End If If newMinute > 29 Then roundedMinute = "30" End If If newMinute > 14 Then roundedMinute = "15" End If If newMinute < 15 Then roundedMinute = "00" End If
%>
Ups, jeg skal vist lige rette det til ElseIf. Men det ser ud til at virke.
Har ingen idé om hvordan man koder asp, men ud fra en hurtig google-søgning vil jeg tro mit eksempel i asp se således ud (der findes ikke noget tilsvarende floor i asp):
<%
Dim newMinute newMinute = minute(now)
If round(newMinute/15) > newMinute/15 Then roundedMinute = (round(newMinute/15)-1)*15 Else roundedMinute = round(newMinute/15)*15 End If
If round(newMinute/15) > newMinute/15 Then roundedMinute = (round(newMinute/15)-1)*15 Else roundedMinute = round(newMinute/15)*15 End If
%>
- rettede jeg til
<%
Dim newMinute newMinute = minute(now)
If round(newMinute/15) > newMinute/15 Then roundedMinute = (round(newMinute/15)+1)*15'<-- -1 rettede jeg til +1 Else roundedMinute = round(newMinute/15)*15 End If
%>
Og det viser det rigtigt. Pånær klokken bliver til 15:60 i stedet for 16:00
If (newMinute != 0) Then If round(newMinute/15) > newMinute/15 Then roundedMinute = (round(newMinute/15)+1)*15
If roundedMinute == 60 Then roundedMinute = 0 End If Else roundedMinute = round(newMinute/15)*15 End If Else roundedMinute = 15 End If
%>
Jeg har også rettet koden til, så den kan håndtere et helt klokkeslæt, altså når der er 0 minutter.
Når du vender minutterne rundt som du ønsker, ville jeg overveje at lave det således i stedet, for overskuelighedens skyld:
<%
Dim newMinute newMinute = minute(now)
If newMinute < 15 Then roundedMinute = 15 Else If newMinute < 30 Then roundedMinute = 30 Else If newMinute < 45 Then roundedMinute = 45 Else If newMinute < 60 Then roundedMinute = 0 Else 'Fejl, newMinute er enten mindre end 0 eller større end 59 End If
%>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
