Tid

hvis brugeren ikke er medlem (er logget ind + logge ud), så er der nok kun den ene metode, at ty til global.asa.

ja, har tænkt meget på det, men jeg har allerede store scripts der tæller forskellige ting. Kan desværre ikke det.

Jeg har et scritp som kan regne tiden ud mellem to tider... :

sStartTime = "24-12-2002 14:00:00"
sEndTime = "25-12-2002 16:23:15"

sTimeDiff = TimeCalc("database", sStartTime, sEndTime)
response.write sTimeDiff


---- og functionen --------:

function aTimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours
diff = datediff("n",StartTime,FinishTime)
' set the hours ignoring the remaining fraction
hours = int(diff / 60)
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = round(60*(diff / 60 - hours),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
' how do we want to return the calculation..?
select case lcase(Display)
  case "screen"
    aTimeCalc = hours & " hours and " & mins & " minutes"
  case "database"
    aTimeCalc = hours & ":" & mins
end select
end function

beklager, jeg kan ikke få noget frem. Jeg får bare en blank side

jamn, jens har du de to tider (login og logud)?

jeg bruger bare dem du har defineret.

underligt... hvordan ser din kode ud?

dam sorry forkert function du har fået..

<%


sStartTime = "14:00:00"
sEndTime = "16:23:15"

sTimeDiff = sTimeCalc("screen", sStartTime, sEndTime)
response.write sTimeDiff


function sTimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours
diff = datediff("n",StartTime,FinishTime)
hours = int(diff / 60)
mins = round(60*(diff / 60 - hours),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
select case lcase(Display)
  case "screen"
    aTimeCalc = hours & " hours and " & mins & " minutes"
  case "database"
    aTimeCalc = hours & ":" & mins
end select
end function
%>

det må du undskylde her er den rigtige function:

function TimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
'set the minutes ignoring the remaining fraction
hours = int(diff / (60*60))
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = round(60*(diff / (60*60) - hours),0)
secs = round(diff - ((60*60)* hours) - (60 * mins),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs
' how do we want to return the calculation..?
select case lcase(Display)
  case "screen"
    TimeCalc = hours & " hours and " & mins & " minutes"
  case "database"
    TimeCalc = hours & ":" & mins & ":" & secs
end select
end function

der hvor du kalder den:
sTimeDiff = sTimeCalc("screen", sStartTime, sEndTime)

Ret til:
sTimeDiff = TimeCalc("screen", sStartTime, sEndTime)

total fedt, nu virker det

takker.

Nu er jeg lidt newbie.....men sTimeDiff - er det ikke en string?

Ja det er det.