DatoTid funktion søges

hvor t er forskellen (now-databasetid)


<%
Function tid(t)

if day(t)>0 then
out=day(t) & " dag"
if day(t)>1 then
out=out & "e"
end if

if hour(t)>0 then
out=out & " " & hour(t) & " time"
if hour(t)>1 then
out=out & "er"
end if

if minute(t)>0 then
out=out & " " & minute(t) & " minut"
if minute(t)>1 then
out=out & "ter"
end if

if second(t)>0 then
out=out & " " & second(t) & " sekund"
if second(t)>1 then
out=out & "er"
end if

tid=out

End Function
%>

hvis det var det du tænkte på???

hov... der skal selvfølgelig være et end if mere efter hvert afsnit

Du kan lave en function som denne:


function fTimeCalc(StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
'set the minutes ignoring the remaining fraction
days = int(diff / (60*60*24))
hours = int(diff / (60*60) - days*24)
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = Int(60*(diff / (60*60) - hours - days*24))
if days > 0 then  str = str & days & " dage "
if days > 0 AND hours > 0 then str = str & hours & " timer "
str = str & mins & " minutter "
'str = str & secs & " sekunder "
fTimeCalc = str
end function



og kalde den sådan her:


strTimeDiff = fTimeCalc(rs("KOLONNE"), Now)
response.write strTimeDiff

Hmmm, fortæl mig lige hvad den gør inden jeg tester den, for jeg synes ikke den ser helt rigtig ud ... der mangler noget datediff!

Forklaring

Dato og tid fra db: 2003-07-21 16:56:16

Så skal funktionen returnerer: 1 dag(e) og 2 minutter

Gør den det?

How der er en fejl i min function hvis dage = 0 skriver den heller ikke timer ud. Brug lige dette styk kode:


function fTimeCalc(StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
'set the minutes ignoring the remaining fraction
days = int(diff / (60*60*24))
hours = int(diff / (60*60) - days*24)
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = Int(60*(diff / (60*60) - hours - days*24))
if days > 0 then  str = str & days & " dage "
str = str & hours & " timer "
str = str & mins & " minutter "
fTimeCalc = str
end function

det kræver at man har samme datoformatering... hvis now er 1/6/02 11:45 PM og man har formatteret dbtiden til 06-01-2002 23:45:00, kan man jo have problemer med at finde differense lige meget hvilke funktioner, man bruger.

Tak eagleeye...