tidsberegning -> overflow

Jeg fik engang hjælp til noget kode, der kunne tidsberegne. Den skal jeg genbruge i en anden kode, men synes ikke at få det til at virke.
Sagen er den at jeg har en event [eventting] og et tidstempel [tid] pr linie. Koden skal udregne tidsforbrug mellem start og stop.

|---- kode start ----|
<% sqltid="SELECT * From tidsforbrug Where opgavenr = '" & request("ID") & "'"
set rstid = conn.execute(sqltid)
totalhours = 0
totalmins = 0
%>
<% do while not rstid.EOF %>
<% If rstid("eventting") = "START" Then
eventstart = rstid("tid")
Else
eventstop = rstid("tid")
  sek = datediff("s", eventstart, eventstop)

  min = sek \ 60
  hours = min \ 60
  min = min mod 60
  sek = sek mod 60

  totalhours = totalhours + hours
  totalmins = totalmins + min
  totalseks = totalseks + sek
 
  If hours = 0 Then
    Response.Write min & " minutter og " & sek & " sekunder"
  Else
    Response.Write hours & " time(r) og " & min & " minutter"
  End If
End If
%>
<% rstid.movenext %>
<% loop %>

<%
  totalmins  = totalmins + (totalseks \ 60)
  totalseks  = totalseks mod 60
  totalhours = totalhours + (totalmins \ 60)
  totalmins  = totalmins mod 60

    If totalhours <> 0 Then
    Response.Write "<h3>Samlet tidsforbrug:" & totalhours & "&nbsp;time(r) og&nbsp;" & totalmins & "&nbsp;minutter</h3>"
    Else
    Response.Write "<h3>Samlet tidsforbrug:" & totalmins & "&nbsp;minutter</h3>"
    End If
%>
<%
rstid.Close
Set rstid = Nothing
%>

|---- kode slut ---|

Jeg er ikke engang sikker på at jeg kan bruge det her, for tidsstemplet er rigtigt tidsfelt [datetime]