TimeDiff på timer og minutter?

Der findes ikke direkter en function TimeDiff og DateDiff returnere enten antal timer eller antal minutter. Prøv at kikke på dette eks men en timerFunction:

http://sourcesite.geeksatwork.com/asp/files/timeFunctions.txt

tak tak... jeg kigger lige på det :-)

Hvad er der i vejen med dette???

<%
Dim sStartTime
Dim sEndTime
Dim sMinutes
sStartTime = Minute(Time) & \":\" & Second(Time)
sEndTime = \"14:30\"
sMinutes = cdbl(TimeDiff(\"n\", sStartTime, sEndTime))

Response.Write \"Der er i dag \" & sMinutes & \"timer til vi har fri i.<br><br>\"
%>

Serveren skriver:
Microsoft VBScript runtime error \'800a01f4\'
Variable is undefined: \'TimeDiff\'

du skal havde alle de listede functioner med i din kode ...

funktioner?... mener du at jeg skal dementionere TimeDiff eller sådan et eller andet? *s* ... jeg er virkelig stadig en dummie på det her område ...

Jeg må måske nøjes med nedtælling i minutter så?

Når jeg tilføjer Dim TimeDiff, så får jeg blot en \"Type mismatch\" i besked fra serveren.

Er der virkelig ingen som har lavet denne funktion? *snøft\" ?? ... må jeg virkelig søge svaret på activeserverpages.dk?

Prøv dette eks:


<html>
<head>
</head>
<body>
<%
sStartTime = \"14:00\"
sEndTime = \"16:23\"
sMinutesInWords = TimeCalc(\"database\", sStartTime, sEndTime)
response.write sMinutesInWords
%>
</body>
</html>
<%
function TimeCalc(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\"
    TimeCalc = hours & \" hours and \" & mins & \" minutes\"
  case \"database\"
    TimeCalc = hours & \":\" & mins
end select
end function
%>

Men hvordan kan jeg så selv vælge starttiden, - lignende: sStartTime = \"Now\", Det virker bare ikke med \"now\"... kan man gøre det på en anden måde?

Virker det med Time?

sEndTime = time

ja :-) det virker godt med time, - så den regner ud hvor lang tid der er gået fra et fast tidspunkt.

Hvis du gemme start tid i Session(\"starttid\") = time
sStartTime = Session(\"starttid\")
sEndTime = time

Hvor kommer starttid fra??

Starttiden skal være det tidspunkt hvor man loader siden. Jeg ved ikke hvordan man arbejder med sessions... :-(

Ok. Men start tiden skal vel gemmens på en eller anden måde. Gemmer du i en database?

Jeps! Det her virker :-)
<%
sStartTime = time
sEndTime = \"14:30\"
...

Tak for hjælpen! *s*