Avatar billede hjaelp Nybegynder
29. maj 2007 - 10:12 Der er 5 kommentarer og
1 løsning

Undersøge om jeg får mine tillæg.

Hej eksperter.
Jeg har på fornemmelsen at jeg bliver snydt for nogle løntillæg ind i mellem.
Derfor er jeg ved at lave en asp-side, hvor jeg kan
indtaste mødetid og gå-hjem-tid og så regner scriptet selv ud,
hvad jeg skal have i tillæg for den dag og denne periode.

Jeg får tillæg mellem 18 og 21, fra 21-00 og fra 00-06

Håber nogen kan hjælpe mig, med at komme godt i gang.

hjaelp
Avatar billede w13 Novice
29. maj 2007 - 15:22 #1
Skal det fungere med minutter også?
Avatar billede hjaelp Nybegynder
29. maj 2007 - 17:53 #2
Nej, men gerne halve timer, hvis det kan lade sig gøre
Avatar billede vester Novice
29. maj 2007 - 20:53 #3
Hey Jens
Det bliver da spændende at se, om du blir snydt. Du må se at finde dig et andet job!!
Jeg lytter lige med her, da dit projekt minder meget om noget, jeg er ved at lave, og du ikke er så nærig med points som jeg åbenbart er!

Vi snakkes.

VesTer
Avatar billede soerenlyn Nybegynder
01. juni 2007 - 13:39 #4
Hej..
Prøv denne kode:

------- kode -------

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

strPayment = 0
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 Not strEndMinute = 0 Then
        arrHours(i) = strEndMinute
    Elseif i <> strEndHour Then
        arrHours(i) = 60
    End If

    i = i + 1
Loop

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

for i = 0 to 23
    If i < 6 Then
        strPaymentHour = CSng(arrHours(i)) * ((CSng(Request.Form("basic")) + CSng(Request.Form("add3"))) / 60)
    Elseif i > 17 And i < 21 Then
        strPaymentHour = CSng(arrHours(i)) * ((CSng(Request.Form("basic")) + CSng(Request.Form("add1"))) / 60)
    Elseif i > 20 Then
        strPaymentHour = CSng(arrHours(i)) * ((CSng(Request.Form("basic")) + CSng(Request.Form("add2"))) / 60)
    Else
        strPaymentHour = CSng(arrHours(i)) * (CSng(Request.Form("basic")) / 60)
    End If
    strPayment = CSng(strPayment) + CSng(strPaymentHour)
    Response.Write i & "-" & (i + 1) & " : " & CSng(arrHours(i)) & " min." & vbTab & strPaymentHour & " kr.<br>"
Next%>

<br>
Samlet løn: <%=strPayment%>
<%End If%>

<form method="POST">
<b>Fra og til</b><br>
<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"><br>

<b>Basisløn</b><br>
<input type="text" name="basic" size="5"><br>
<b>Tillæg fra 18 - 21</b><br>
<input type="text" name="add1" size="5"><br>
<b>Tillæg fra 21 - 00</b><br>
<input type="text" name="add2" size="5"><br>
<b>Tillæg fra 00 - 06</b><br>
<input type="text" name="add3" size="5"><br>

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

</form>
Avatar billede hjaelp Nybegynder
01. juni 2007 - 20:14 #5
Perfekt

Vil du svare?
Avatar billede soerenlyn Nybegynder
01. juni 2007 - 22:31 #6
Jeps, her :)
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

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