Minut tæller - Hvordan?

Jeg har denne funktoin :


function TimeCalc(StartTime, FinishTime) 
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
dage = int(dif / (60*60*24))
hours = int((diff-dage*60*60*24) / (60*60))
mins = Int(60*(diff / (60*60) - hours))
secs = Int(diff - ((60*60)* hours) - (60 * mins))
mins = Right("0" & mins,2)
secs = Right("0" & secs,2)
TimeCalc = hours & ":" & mins & ":" & secs
end function <%


function TimeCalc(StartTime, FinishTime) 
Dim diff, dage, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
dage = int(diff / (60*60*24))
diff = diff-dage*60*60*24
hours = int(diff / (60*60))
diff = diff-hours*60*60
mins = Int(diff / 60)
secs = diff-mins*60
if dage=1 then TimeCalc = dage & " dag "
if dage>1 then TimeCalc = dage & " dage "
if hours=1 then TimeCalc = TimeCalc & hours & " time "
if hours>1 or hours=0 then TimeCalc = TimeCalc & hours & " timer "
if mins=1 then TimeCalc = TimeCalc & mins & " minut "
if mins>1 or mins=0 then TimeCalc = TimeCalc & mins & " minter "
if secs=1 then TimeCalc = TimeCalc & secs & " sekund "
if secs>1 or secs=0 then TimeCalc = TimeCalc & secs & " sekunder "
end function


Response.Write TimeCalc("27-02-2004 23:00:00",Now())

%>

Hmm.. Så kommer den med denne her fejl: www.sykonia.dk/test.asp

doh?? hvad har jeg fået kopier ind, det ser helt galt ud. Jeg prøver lige igen :)

Prøv at tage dette kode:


<%
function TimeCalc(StartTime, FinishTime) 
Dim diff, dage, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
dage = int(diff / (60*60*24))
diff = diff-dage*60*60*24
hours = int(diff / (60*60))
diff = diff-hours*60*60
mins = Int(diff / 60)
secs = diff-mins*60
if dage=1 then TimeCalc = dage & " dag "
if dage>1 then TimeCalc = dage & " dage "
if hours=1 then TimeCalc = TimeCalc & hours & " time "
if hours>1 or hours=0 then TimeCalc = TimeCalc & hours & " timer "
if mins=1 then TimeCalc = TimeCalc & mins & " minut "
if mins>1 or mins=0 then TimeCalc = TimeCalc & mins & " minter "
if secs=1 then TimeCalc = TimeCalc & secs & " sekund "
if secs>1 or secs=0 then TimeCalc = TimeCalc & secs & " sekunder "
end function


Response.Write TimeCalc("27-02-2004 23:00:00",Now())
%>

1000 tak det virker! :P

Nu står der hvordan man laver koden i ASP, men hvad skal man skrive hvis den skal være i PHP eller evt. i JavaScript??

Ved jeg ikke?

Opret et spørgsmål ..

oki Bobo