Beregne sekunder til alm. tid samt samlet tidsforbrug

Hvad mener du med nummerisk og alfanummerisk?

Prodtime viser eksempelvis ved 7 sekunder bare tallet 7 (det er ikke et rigtigt tidsstempel)
Jeg vil gerne have det til at vise 0:0:07

0:00:07 .. selvfølgelig

Du kan lave en function som udregner det for dig eks:



function ConvertSekunder(antalSec)
Dim diff, mins, hours, secs
diff = antalSec
hours = int(diff / (60*60))
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))

if len(hours) = 1 then hours = "0" & hours
if len(mins) = 1 then mins = "0" & mins
if len(secs) = 1 then secs = "0" & secs

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



og så kalde den sådah her:

<h4 style="margin: 0 3"><% =ConvertSekunder(rsoracle("Prodtime"))%></h4>

uden for loop et kan du lave en variable som sættes til 0 for total tiden..:

<%
  totalAntalSec = 0
  do while not rsoracle.EOF
    totalAntalSec = totalAntalSec + Clng(rsoracle("Prodtime")) %>
..
..
<%rsoracle.movenext%>
<% loop %>

Response.write "Total tid = " & ConvertSekunder(totalAntalSec)

kan man godt det, når det "bare" er et tal i tabellen ?
Jeg synes ikke rigtigt det virker - men det er nok fordi jeg stadig er en spasser til functions og beregninger...)

Hvad gør du?

ok.. der er også en fejl i functionen sådan her skal den være:

function ConvertSekunder(antalSec)
Dim diff, mins, hours, secs
diff = antalSec
hours = int(diff / (60*60))
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))

if len(hours) = 1 then hours = "0" & hours
if len(mins) = 1 then mins = "0" & mins
if len(secs) = 1 then secs = "0" & secs

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

<% if not rsoracle.EOF then %>
<%
function ConvertSekunder(antalSec)
Dim diff, mins, hours, secs
diff = antalSec
hours = int(diff / (60*60))
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))

if len(hours) = 1 then hours = "0" & hours
if len(mins) = 1 then mins = "0" & mins
if len(secs) = 1 then secs = "0" & secs

TimeCalc = hours & ":" & mins & ":" & secs
end function
%>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
  <tr>
    <td colspan="4">
    <h3>historik for <%=get_adno%></h3>
    <tr>
          <td width="150" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato &amp; tid</h3></td>
          <td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
          <td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
          <td width="135" bgcolor="#E6E6D0"><h3 style="margin: 0 3">tidsforbrug:</h3></td>
        </tr>
<% do while not rsoracle.EOF %>
        <tr>
          <td>
            <h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4>
          </td>
          <td>
            <h4 style="margin: 0 3"><% =rsoracle("event")%></h4>
          </td>
          <td>
            <h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4>
          </td>
          <td>
            <h4 style="margin: 0 3"><% =ConvertSekunder(rsoracle("Prodtime"))%></h4>
          </td>
        </tr>
<%rsoracle.movenext%>
<% loop %>

<% end if %>

Resultatet er at feltet er tomt (men jeg ved der står 7, uden ovenstående beregning)

ja, den sidste var bedre

Hvis du vil gemme det i dette format 0:00:07 i databasen så skal det gemmes i et dato/klokkeslet type. Så kan man ikke ligge 65 sekuner i databasen så skal man ligge 0:01:05 i databasen så udregningen skal du havde et eller andet sted...

det er nemlig der problemet ligger.. jeg bestemmer ikke input-feltet - det gør en xtension til quark

Skriver den (xtension) selv til databasen eller får du et variable som indeholder sekuner?

Jeg er dessvære nød til at smutte et par timer..

ok - jeg leger videre med total-tiden - den driller nemlig også

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Clng'

/prepres/sapss/default_adm_history_copy(1).asp, line 328
-----
linie 328:    totalAntalSec = totalAntalSec + Clng(rsoracle("Prodtime"))

Prøv det her:

If isNull(rsoracle("Prodtime")) then
  totalAntalSec = totalAntalSec + 0
else
  totalAntalSec = totalAntalSec + Clng(rsoracle("Prodtime"))
end if

jeps - det virkede sammen med at jeg lige skulle rykke
<%
  totalAntalSec = 0
  do while not rsoracle.EOF
    totalAntalSec = totalAntalSec + Clng(rsoracle("Prodtime")) %>
på plads - smid lige et svar... så deler I

Jeg synes, at eagleeye fortjener pointene!

ok - som du vil