Antal minutter i forskellige tidsintervaller

Denne her kan du vist lukke :)

Jeg skal stadig bruge denne funktion, selvom den anden er løst.
VesTer

Hej.
Er det dette her du leder efter?

-------- kode --------
<%If Request.Form("submit") = "Udregn!" Then
dim arrHours(24)

strStartHour = CInt(Request.Form("starthour"))
strStartMinute = CInt(Request.Form("startminute"))
strEndHour = CInt(Request.Form("endhour"))
strEndMinute = CInt(Request.Form("endminute"))

i = strStartHour

Do Until i = (strEndHour + 1)
    If i = 24 Then i = 0

    If i = strStartHour And strStartMinute <> 0 Then
        arrHours(i) = 60 - strStartMinute
    Elseif i = strEndHour And strEndMinute <> 0 Then
        arrHours(i) = strEndMinute
    Else
        arrHours(i) = 60
    End If

    i = i + 1
Loop

Response.Write "<h2>Tidsintervallet " & strStartHour & ":" & strStartMinute & " - " & strEndHour & ":" & strEndMinute & "</h2>"

for i = 0 to 23
    Response.Write i & "-" & (i + 1) & " : " & CInt(arrHours(i)) & " min.<br>"
Next

End If%>

<form method="POST">
<input type="text" name="starthour" maxlength="2" size="1">
:
<input type="text" name="startminute" maxlength="2" size="1">
-
<input type="text" name="endhour" maxlength="2" size="1">
:
<input type="text" name="endminute" maxlength="2" size="1">

<input type="submit" name="submit" value="Udregn!">

</form>

Lige præcis.
Smider du ikke lige et svar?

Den duer ikke hvis startime er større end endtime, er det let at løse?

Hvad sker der, hvis den er større?

Ikke? Jeg har ellers testet den hvor jeg har sat fra fx. 21:15 - 04:00..

Somm w13, hvad sker der ?

Hvis jeg skriver start 09:00 og slut 08:00, så siger den der er 0 minutter i alle perioder.

Aahhh. Nu fandt jeg ud af, hvad der er galt.
Hvis jeg skriver fra 10:00-8:00 så regner den timen fra 8-9 med. Det var ikke planen, men jeg kan selvfølgelig bar skrive til 7:59.

Jeg tror osse dette er grunden til den ikke vil godtage 9-8, da den ikke vil have at alle timerne er "fyldte"

For at løse problemet med den ekstra time, har jeg lavet den om til dette:

starthour="09"
startminute="00"
endhour="07"
endminute="00"

If endminute="00" then
endhour=endhour-1
endminute="59"
Else
endminute=endminute
End If

dim arrHours(24)
strStartHour = CInt(starthour)
strStartMinute = CInt(startminute)
strEndHour = CInt(endhour)
strEndMinute = CInt(endminute)

i = strStartHour

Do Until i = (strEndHour + 1)
    If i = 24 Then i = 0

    If i = strStartHour And strStartMinute <> 0 Then
        arrHours(i) = 60 - strStartMinute
    Elseif i = strEndHour And strEndMinute <> 0 Then
        arrHours(i) = strEndMinute
    Else
        arrHours(i) = 60
    End If

    i = i + 1
Loop
If strEndMinute="59" Then
strEndHour=strEndHour+1
strEndMinute="00"
Else
strEndMinute=strEndMinute
End If

Response.Write "<h2>Tidsintervallet " & strStartHour & ":" & strStartMinute & " - " & strEndHour & ":" & strEndMinute & "</h2>"

for i = 0 to 23
    Response.Write i & "-" & (i + 1) & " : " & CInt(arrHours(i)) & " min.<br>"
Next


sorenlyn vil du ikke smide et svar, så du kan få points?

VesTer

Okay... Denne fejl havde jeg ikke lagt mærke til, men godt du ordnede det selv så :)

Jo, her !

Jeg takker mange gange.


VesTer

Det var så lidt, sku' det være en anden gang..