beregn tidsforskellen

DateDiff("h", tid1, tid2)

//>Rune

fisk!

?

hvor skal det ind ;)

Udskrift
tidsforbrug = TimeCalc(eventstart, eventstop)
med
tidsforbrug = DateDiff("h", eventstart, eventstop)

//>Rune

hæhæ - jeg sad lige og gjorde det, mens du skrev.
Det var fordi jeg havde genbrugt noget gammel kode.
Jeg får ganske vist en beregning nu, men den viser noget, der mere ligner og n californisk postnr.:  904312

det skal lig sige at det er et datetime-felt i sqldatabase

Prøv at byg om på dem!

tidsforbrug = DateDiff("h", eventstop, eventstart)

//>Rune

Eller evt.

DateDiff("h", dato1, dato2,vbMonday)
-men du skal jo tænke på, at den her giver forskellen i timer!

//>Rune

ombyttet giver negativ fortegn - nr. giver samme resultat

Setting Description
yyyy    Year
q      Quarter
m      Month
y      Day of year
d      Day
w      Weekday
ww      Week of year
h      Hour
n      Minute
s      Second

//>Rune

Hvad kunne være en evt. dato?

Fx. hvad kunne eventstop og eventstart indeholde?

//>Rune

27-02-2003 15:30:01

Og hvad vil du have skrevet i Tidsforbrug?

//>Rune

forskellen mellem eventstart & evenstop
eksempel:
[i databasen]
id | opgavenr | eventting | tid
1  | 9160    | START    |  27-02-2003 15:30:01
2  | 9160    | STOP      |  27-02-2003 16:35:12

[på siden]
tidsforbrug: 1:05:11

hvis der så kommer flere records på samme opgavenummer:

3  | 9160    | START    |  27-02-2003 16:40:10
4  | 9160    | STOP    |  27-02-2003 16:45:12

skal den vise samlede tidsforbrug for det hele; altså de 1:05:11 + ny forskel (0:05:02)

tidsforbrug: 1:10:13

Eagleeye lavede engang denne function for mig, men jeg kan ikke få det til at virke:
function TimeCalc(StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
hours = int(diff / (60*60))
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs

TimeCalc = hours & ":" & mins & ":" & secs
end function

Hmm hvis jeg gør sådan her:

    dato1 = "27-02-2003 15:30:01"
    dato2 = "27-02-2003 16:35:12"
    strTimeForbrug = DateDiff("h", dato1, dato2)
        Response.Write(strTimeForbrug)

Så udskriver den én time!

//>Rune

<%
function TimeCalc(StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
hours = int(diff / (60*60))
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs

TimeCalc = hours & ":" & mins & ":" & secs
end function
%>

<% sqltid="SELECT eventting, tid From tidsforbrug Where opgavenr = '" & request("ID") & "'"
set rstid = conn.execute(sqltid)

do while not rstid.EOF
If rstid("eventting") = "START" Then
eventstart = rstid("tid")
tidsforbrug = ""
Else
eventstop = rstid("tid")
tidsforbrug = TimeCalc(eventstart, eventstop)
end if
rstid.movenext
loop %>
<TD>
  <h3 style="margin-bottom: 3">Brugt tid:</h3>
  <h3 style="margin-bottom: 3"><%Response.write Tidsforbrug%></h3>
</TD>
<%rstid.close%>
<%set rstid = nothing%>

Prøv sådan!

//>Rune

Name redefined

/websupport/edit_task_copy.asp, line 196

function TimeCalc(StartTime, FinishTime)
---------^

??? prøv lige at vis mig hele din kode!

//>Rune

ok - here goes:
<!-- #include file="global_start.asp" -->
<!-- #include file="global_dbconn.asp" -->

<%
Dim DBCMD
Dim DBCMD1
Dim StrCreateNew
Dim strCreateNew1
Dim dbsupport
Dim strconn
Dim tekst
Dim betegnelse
Dim priornr
Dim deadline
Dim tidsestimat
Dim status
Dim losning
Dim ansvarlig
Dim Slutdato
Dim check_afsluttet
Dim check_vist
Dim SQLstmt
Dim lostaf
Dim mode
Dim kommentar_tid
Dim kommentar_ID
Dim kommentar_user
Dim kommentar_txt
Dim strCreatekommentar
Dim problem_overskrift
dim sql3
dim rs3
dim sqltid
dim rstid

dim eventstop
dim eventstart

dim hours
dim minuts
dim secs

dim TimeCalc
dim tidsforbrug

    set DBCMD = Server.CreateObject("ADODB.Connection")
    DBCMD.Open = "DSN=websupport"

%>

<html>
<head>
<!-- #include file="global_header.asp" -->
<LINK REL="STYLESHEET" TYPE="text/css" HREF="../scripts/style_websupport.css">
<title>WebSupport - Ret i opgave</title>
</head>

<body>
<!--#include file="global_menu.asp"-->
<%
    SQL = "SELECT prioritet.tekst, opgave.priornr, Prioritet.nummer, opgave.id, opgave.rekvirent, opgave.registreret, opgave.deadline, opgave.status, opgave.ansvarlig, opgave.betegnelse, opgave.problem, opgave.losning, opgave.kategori, opgave.Afsluttet, opgave.vist, opgave.tidsestimat FROM Opgave INNER JOIN Prioritet ON Opgave.Prioritet = Prioritet.Nummer WHERE ID = '" & request("ID") & "'"
    set rs = Conn.Execute(sql)
%>
<%
problem_overskrift = rs("betegnelse")
problem_overskrift = replace (problem_overskrift, "'","´")
%>
<div align="center">
  <center>
<table border="0" width="99%" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
    <td align="center">
      <div align="left">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="450" id="AutoNumber1" bgcolor="#666666">
<% if mode = "ok" then %>
    <tr>
      <td bgcolor="#EFEFEF"><h2>Opgaven er nu opdateret</h2><br></td>
    </tr>
<% else %>
          <tr>
            <td valign="top" width="8"><img border="0" src="images/round_top_left.gif"></td>
            <td><h3><font color="#FFFFFF"><%=rs("id")%>: <%=problem_overskrift%></Font></h2></td>
            <td valign="top" width="8"><p align="right"><img border="0" src="images/round_top_right.gif"></td>
          </tr>
        </table>
      </div>
    </td>
</table>
<table bgcolor="#666666" border="0" width="99%" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111">
    <td align="center">
      <div align="left">
        <table bgcolor="#EFEFEF" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" bgcolor="#666666">
          <tr>
        <form method="post" action="Edit_Task.asp?mode=update&id=<%=rs("id")%>">
          <TR>   
            <TD colspan="2">
              <h3>Overskrift:</h3><h4>
              <input type="text" name="Betegnelse" size="60" value="<%=problem_overskrift%>"></h4>
            </TD>
          <TR>   
            <TD colspan="2">
              <h3>Problembeskrivelse:</h3><h4><%=rs("problem")%></h4>
            </TD>
          <tr>
            <TD colspan=2"><h3><hr color="#000000" size="1"></h3></TD>
          </tr>
          <td colspan="2">
        <table bgcolor="#EFEFEF" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
          <tr>
            <TD>
              <h4><b>Opgave modtaget: </b><%=rs("Registreret")%> - <b>rekvireret af: </b>
              <font face="Wingdings">*</font>&nbsp;<a href="mailto:<%=rs("rekvirent")%>?subject=Vedr. WebSupport opgavenr. <%=rs("id")%>&nbsp;:&nbsp;<%=rs("Betegnelse")%>"><%=rs("Rekvirent")%></a></h4>
            </TD>
          </TR>
<table>
          <TR>
            <TD valign="top"><h3 style="margin-bottom: 3"><b>Prioritet:</h3>
              <h3 style="margin-bottom: 3">
              <select size="1" name="ny_prioritet" style="border-style:solid; border-width:1; background-color:#E6E6D0">
              <option value="<%=rs("nummer")%>" selected><%=rs("Tekst")%></option>
              <option value="1">Meget høj</option>
              <option value="2">Høj</option>
              <option value="3">Mellem</option>
              <option value="4">Lav</option>
              <option value="5">Meget lav</option>
              <option value="16">Fast opgave</option>
              <option value="98">Skal prioriteres</option>
              </select></h3>
            </TD>
            <TD valign="top">
              <h3 style="margin-bottom: 3">Prioritsnr:</h3>
              <h3 style="margin-bottom: 3">
              <select size="1" name="ny_priornr" style="border-style:solid; border-width:1; background-color:#E6E6D0">
              <option value="<%=rs("priornr")%>" selected><%=rs("priornr")%></option>
              <option value="ikke fastsat">ikke fastsat</option>
              <option value="01">01</option>
              <option value="02">02</option>
              <option value="03">03</option>
              <option value="04">04</option>
              <option value="05">05</option>
              <option value="06">06</option>
              <option value="07">07</option>
              <option value="08">08</option>
              <option value="09">09</option>
              <option value="10">10</option>
              <option value="11">11</option>
              <option value="12">12</option>
              <option value="13">13</option>
              <option value="14">14</option>
              <option value="15">15</option>
              <option value="16">16</option>
              <option value="17">17</option>
              <option value="18">18</option>
              <option value="19">19</option>
              <option value="20">20</option>
              </select></h3>
            </TD>
            <TD>
              <h3 style="margin-bottom: 3">Ansvarlig:</h3>
              <h3 style="margin-bottom: 3"><select size="1" name="ny_ansvarlig" style="border-style:solid; border-width:1; background-color:#E6E6D0">
              <option value="<%=rs("ansvarlig")%>" selected><%=rs("ansvarlig")%></option>
              <option><%= Session("BrugerID")%></option>
            <%    sql2="SELECT Distinct Betegnelse From Afdeling Where Prioritet = 1 ORDER BY betegnelse"
                  set rs2 = conn.execute(sql2)
                Do While Not rs2.EOF %>
                <option value="<%=rs2("Betegnelse")%>" "selected"><%=rs2("Betegnelse")%></option>
            <%    rs2.MoveNext
                Loop
                rs2.Close
            %>
                </select></h3>
            </TD>
            <TD>
              <h3 style="margin-bottom: 3">Deadline:</h3>
              <h3 style="margin-bottom: 3"><input type="text" name="ny_deadline" size="9" value="<%=rs("Deadline")%>" style="background-color: #E6E6D0"></h3>
            </TD>
          </TR>
          <tr>
            <TD>
              <h3 style="margin-bottom: 3">Opgavens status:</h3>
              <h3 style="margin-bottom: 3"><select size="1" name="ny_status" style="border-style:solid; border-width:1; background-color:#E6E6D0">
              <option value="<%=rs("Status")%>" selected><%=rs("Status")%></option>
              <option>EJ PÅBEGYNDT</option>
              <option>Igang (<%= Session("BrugerID")%>)</option>
              <option>Venter (<%= Session("BrugerID")%>)</option>
              <option value="Løbende opgave">Løbende opgave</option>
              <option>Projekt</option>
              <option>Venter - se kommentar</option>
              <option>På hold - se kommentar</option>
              <option>Afventer svar fra <%=rs("rekvirent")%></option>
              <option>Anden support - Intern</option>
              <option>Anden support - Ekstern</option>
              </select></h3>
            </TD>
            <TD>
              <h3 style="margin-bottom: 3">Estimeret tidsforbrug:</h3>
              <h3 style="margin-bottom: 3"><input type="text" name="tidsestimat" size="8" value="<%=rs("Tidsestimat")%>" style="background-color: #E6E6D0; text-align:right">&nbsp;timer</h3>
            </TD>
<!-- tidsforbrug -->
<%
function TimeCalc(StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
hours = int(diff / (60*60))
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs

TimeCalc = hours & ":" & mins & ":" & secs
end function
%>

<% sqltid="SELECT eventting, tid From tidsforbrug Where opgavenr = '" & request("ID") & "'"
set rstid = conn.execute(sqltid)

do while not rstid.EOF
If rstid("eventting") = "START" Then
eventstart = rstid("tid")
tidsforbrug = ""
Else
eventstop = rstid("tid")
tidsforbrug = TimeCalc(eventstart, eventstop)
end if
rstid.movenext
loop %>
<TD>
  <h3 style="margin-bottom: 3">Brugt tid:</h3>
  <h3 style="margin-bottom: 3"><%Response.write Tidsforbrug%></h3>
</TD>
<%rstid.close%>
<%set rstid = nothing%>
            <TD>
              <h3 style="margin-bottom: 3">Brugt tid:</h3>
              <h3 style="margin-bottom: 3"><%=rs("Tidsestimat")%></h3>
            </TD>
          </tr>
        </table>
        </td>
        </tr>
          <TR>   
            <TD valign="top">
              <h3>Løsning/kommentar:</h3>
              <h4><textarea rows="8" name="ny_losning" cols="45"></textarea><br>&nbsp;</h4>
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
                <tr>
                  <td width="100%">
<table border="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
          <TR>   
<% if rs("afsluttet") = 0 then %>
            <TD><h3><input type="checkbox" name="Afsluttet" value="0">Opgave
            løst</h3></TD>
<% else %>
            <TD><h3><input type="checkbox" name="Afsluttet" value="0" checked>Opgave
            løst</h3></TD>
<% end if %>
<% if rs("vist") = 0 then %>
              <TD><h3><input type="checkbox" name="Vist" value="0">Vis i
            videndeling</h3></TD>
<% else %>
              <TD><h3><input type="checkbox" name="Vist" value="0" checked>Vis i
            videndeling</h3></TD>
<% end if %>
<% end if %>
            <TD><h3><INPUT type=submit value=Opdatér style="border: 1px solid #000000; background-color: #E6E6D0"></h3></TD>
          </TR>
</table>

                  </td>
                </tr>
              </table>
            </TD>
            <TD width="60%" valign="top" rowspan="4">
                  <h5>Tidligere kommentarer:</h5>
                  <table border="0" cellpadding="0" cellspacing="4" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#FFFEEE">
                <%    sql3 = "SELECT kommentar_tid, kommentar_user, kommentar_txt From kommentar Where kommentar_ID = '"&request("id")&"' ORDER BY kommentar_tid"
                    set rs3 = conn.execute(sql3)
                    Do While Not rs3.EOF
                %>
                  <tr><td><h6><%=rs3("kommentar_tid")%> | <a href="mailto:<%=rs3("kommentar_user")%>"><%=rs3("kommentar_user")%></a><br><%=rs3("kommentar_txt")%></h6></tr>
                  <tr><td background="images/spacer.gif" height="1" bgcolor="#666666"><img border="0" src="images/spacer.gif"></td></tr>           
                <%
                    rs3.MoveNext
                    Loop
                    rs3.Close
                %>
              </table>
            </TD>
          </TR>
        </form>
           
            </td>
          </tr>
        </table>
      </div>
    </td>
</table>
    </td>
  </tr>
</table>
  </center>
</div>
</body>
</html>
<!-- tidsberegning -->

<%
    rs.Close
    Set rs = Nothing
    Set SQL = Nothing
%>


<%mode = Request.QueryString("mode")%>
<% If mode = "update" then %>

<%
'###### indsæt kommentar ######

if request.form("ny_losning") <> "" then
kommentar_tid = date + time
kommentar_ID = request("ID")
kommentar_user = session("BrugerID")
kommentar_txt = Request.Form("ny_losning")

kommentar_txt = Replace(kommentar_txt,"'","''")
kommentar_txt = Replace(kommentar_txt,chr(13),"<BR>")

    Set dbsupport = CreateObject("ADODB.Connection")
    strConn = "dsn=websupport"
    dbsupport.Open strConn
    strCreateNew="Insert into kommentar (kommentar_tid,kommentar_user,kommentar_txt,kommentar_id) VALUES ('" & kommentar_tid & "','" & kommentar_user & "','" & kommentar_txt & "','" & kommentar_id & "')"

    response.write strCreateNew
    DBCMD.Execute strCreateNew
    DBCMD.Close
    set DBCMD = nothing
end if
'###### slut på kommentar ######

'###### Start på opgaveopdatering ######
Set dbsupport = CreateObject("ADODB.Connection")
strConn = "dsn=websupport"
dbsupport.Open strConn

Betegnelse = Request.Form("Betegnelse")
'Betegnelse = Replace(Betegnelse,"'","''")

Tekst = Request.Form("ny_prioritet")
Priornr = Request.Form("ny_priornr")
tidsestimat = Request.Form("tidsestimat")
tidsestimat = CDBL(tidsestimat)
deadline = Request.Form("ny_deadline")
Status = Request.Form("ny_status")
Ansvarlig = Request.Form("ny_ansvarlig")
Slutdato = date + time
lostaf = session("BrugerID")
losning = request.form("ny_losning")

if request.form("afsluttet") <> "" then
  check_afsluttet = 1    'Eller true
  Status = "Afsluttet"
else
  check_afsluttet = 0    'Eller false
end if

if request.form("Vist") <> "" then
  check_Vist = 1    'Eller true
else
  check_Vist = 0    'Eller false
end if

If check_vist = 1 then
    SQLstmt = "UPDATE opgave SET Betegnelse = '" & Betegnelse & "', Prioritet = '" & Tekst & "',Priornr = '" & Priornr & "',deadline = '" & deadline & "',Tidsestimat = '" & tidsestimat & "',Status = '" & Status & "',Ansvarlig = '" & Ansvarlig & "',Slutdato = '" & Slutdato & "',Afsluttet = '" & check_afsluttet & "', Vist = '" & check_vist & "', lostaf = '" & lostaf & "' WHERE ID = '" & request("ID") & "' "
    'SQLstmt = SQLstmt & "VALUES ('" & Request.Form("Betegnelse") & "','" & Request.Form("ny_prioritet") & "','" & Request.Form("ny_priornr") & "','" & Request.Form("ny_deadline") & "','" & Request.Form("tidsestimat") & "','" & Afsluttet & "','" & Request.Form("ny_ansvarlig") & "','" & Request.Form("Slutdato") & "','" & Request.Form("check_afsluttet") & "','" & Request.Form("check_afsluttet") & "','" & Session("BrugerID") & "')"
    response.write "<br><br>" & SQLstmt
    dbsupport.Execute (SQLstmt)

    dbsupport.Close
    Set dbsupport = nothing
    Set SQLstmt = nothing

    SQL = "SELECT * from opgave WHERE ID =" & request("ID")
    set rs = Conn.Execute(sql)

DIM problem
problem = rs("problem")
problem = replace(problem,"'","''")
    set DBCMD1 = Server.CreateObject("ADODB.Connection")
    DBCMD1.Open = "DSN=websupport"
    strCreateNew="Insert into videndeling (Betegnelse,Kategori,Problem,losning,Vis_intranet,dato)VALUES ('" & rs("Betegnelse") & "','" & rs("Kategori") & "','" & problem & "','" & rs("losning") & "','" & 1 & "','" & date+time & "')"
    response.write "<br><br>" & strCreateNew
    DBCMD1.Execute strCreateNew
    DBCMD1.Close
    set DBCMD1 = nothing

    rs.Close
    Set rs = Nothing
    Set SQL = Nothing
   
    response.redirect "default.asp"
Else
   
SQLstmt = "UPDATE opgave SET Betegnelse = '" & betegnelse & "',Prioritet = '" & Tekst & "',Priornr = '" & Priornr & "',deadline = '" & deadline & "',tidsestimat = '" & tidsestimat & "',Status = '" & Status & "',Ansvarlig = '" & ansvarlig & "',Slutdato = '" & Slutdato & "',Afsluttet = '" & check_afsluttet & "',Vist = '" & check_Vist & "', lostaf = '" & lostaf & "' WHERE ID = '" & request("ID") & "' "
'SQLstmt = SQLstmt & "VALUES ('" & Request.Form('" & Request.Form("Betegnelse") & "',"ny_prioritet") & "','" & Request.Form("ny_priornr") & "','" & Request.Form("ny_deadline") & "','" & Request.Form("tidsestimat") & "','" & Request.Form("ny_status") & "','" & Request.Form("ny_Ansvarlig") & "','" & Request.Form("Slutdato") & "','" & Request.Form("check_afsluttet") & "','" & Request.Form("check_Vist") & "','" & Session("BrugerID") & "')"

    response.write sqlstmt
    dbsupport.Execute (SQLstmt)

    dbsupport.Close
    Set dbsupport = nothing
    Set SQLstmt = nothing

    End if
    response.redirect "default.asp"   
    End if
%>

Prøv at fjern

Dim TimeCalc

//>Rune

Så får jeg en Invalid procedure call or argument: 'string'

jeg formoder at jeg får fejlen p.g.a. at der er dato med i beregningen - den var genbrugt fra et kald hvor kalkulationen foregik på sekunder alene

medions -
Har du mod på at genoptage "problemet" ?

opretter et nyt spørgsmål, da dette er blevet rodet - jeg takker for kampen, men da jeg ikke har fået løst problemet, vil jeg kun slå halv skade...

Så er jeg tilbage...
-har haft en del at se til så  har ikke lige været på eksperten :-)

Håber du får løst dit problem...

Thx 4 Poinz

//>Rune