Avatar billede vester Novice
28. maj 2007 - 15:22 Der er 12 kommentarer og
1 løsning

Antal minutter i forskellige tidsintervaller

Jeg forsøger at lave en side der kan udregne hvor mange minutter der er brugt indenfor de perioder.
EX:
StartTid="09:00"
SlutTid="20:15"

Nu skal systemet så beregne hvor mange minutter der er brugt inden for disse perioder:
Per00-01=
Per01-02=
Per02-03=
Per03-04=
Per04-05=
Per05-06=
Per06-07=
Per07-08=
Per08-09=
Per09-10=
Per10-11=
Per11-12=
Per12-13=
Per13-14=
Per14-15=
Per15-16=
Per16-17=
Per17-18=
Per18-19=
Per19-20=
Per20-21=
Per21-22=
Per22-23=
Per23-00=
Avatar billede w13 Novice
28. maj 2007 - 16:00 #1
Denne her kan du vist lukke :)
Avatar billede vester Novice
28. maj 2007 - 17:15 #2
Jeg skal stadig bruge denne funktion, selvom den anden er løst.
VesTer
Avatar billede soerenlyn Nybegynder
29. maj 2007 - 23:23 #3
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>
Avatar billede vester Novice
30. maj 2007 - 17:28 #4
Lige præcis.
Smider du ikke lige et svar?
Avatar billede vester Novice
30. maj 2007 - 17:32 #5
Den duer ikke hvis startime er større end endtime, er det let at løse?
Avatar billede w13 Novice
30. maj 2007 - 17:39 #6
Hvad sker der, hvis den er større?
Avatar billede soerenlyn Nybegynder
30. maj 2007 - 20:08 #7
Ikke? Jeg har ellers testet den hvor jeg har sat fra fx. 21:15 - 04:00..

Somm w13, hvad sker der ?
Avatar billede vester Novice
30. maj 2007 - 23:04 #8
Hvis jeg skriver start 09:00 og slut 08:00, så siger den der er 0 minutter i alle perioder.
Avatar billede vester Novice
30. maj 2007 - 23:11 #9
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"
Avatar billede vester Novice
31. maj 2007 - 14:34 #10
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
Avatar billede soerenlyn Nybegynder
31. maj 2007 - 15:00 #11
Okay... Denne fejl havde jeg ikke lagt mærke til, men godt du ordnede det selv så :)

Jo, her !
Avatar billede vester Novice
31. maj 2007 - 15:14 #12
Jeg takker mange gange.


VesTer
Avatar billede soerenlyn Nybegynder
31. maj 2007 - 16:58 #13
Det var så lidt, sku' det være en anden gang..
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester