Simple time compare

[ironhide1975]

I'm sure this is really simple but I'm having a hard time finding an example. I want to do a time compare before an ASP page starts a calculation and when it ends. I am somewhat close with this but I can't get the write formatting of this with seconds and minutes. Can someone help me clarify this forumla?

<%
todaysDate=now()
StartTime = FormatDateTime(todaysDate,3)

'lots of stuff happen here

todaysDate=now()
EndTime = FormatDateTime(todaysDate,3)

DiffTime = DateDiff("s",StartTime,EndTime)
DiffTime = FormatDateTime(DiffTime,3)
      
h1 = (DateDiff("h",StartTime,EndTime))
n1 = (DateDiff("n",StartTime,EndTime))
s1 = (DateDiff("s",StartTime,EndTime))

%>
Time Difference <%=h1 %>:<%=n1 %>:<%=s1 %> <br />

 

[Sheco]

How about leaving both "Before" and "After" as dates rather than converting them to strings. Then you won't have the implicit conversion back to dates by the DateDiff funciton.

<%
StartTime = now()

'lots of stuff happen here

EndTime = now()
      
h1 = (DateDiff("h",StartTime,EndTime))
n1 = (DateDiff("n",StartTime,EndTime))
s1 = (DateDiff("s",StartTime,EndTime))
%>
Time Difference <%=h1 %>:<%=n1 %>:<%=s1 %> <br />

 

[Sheco]

Or maybe something like this:

<%
StartTime = now()

'lots of stuff happen here

EndTime = now()

MathTime = cDate(cDbl(StartTime ) - cDbl(EndTime ))
h1 = Hour(MathTime)
n1 = Minute(MathTime)
s1 = Second(MathTime)
%>
Time Difference <%=h1 %>:<%=n1 %>:<%=s1 %> <br />

 

[damber]

Did you want something like this:

http://www.w3schools.com/vbscript/func_timer.asp

store the Timer value at the start and at the end then compare the two.. will give you a rough idea of the time taken for the page to load... but it's level of accuracy is pretty rubbish - 10th of a second or something like that, so it depends on how fast your page loads as to how useful the result will be.

If you want better accuracy, then use a jscript function at the start and end of the page and use the getMillisecond method of Date() to return a more accurate number. You should be able to reference the JScript variables in your normal VBScript too.

Hope that helps

A smile is worth a thousand kind words. So smile, it's easy!

 

[ironhide1975]

okay I get error

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'cDbl'

 

[Sheco]

Try just pasting the following into a new ASP and then request it from your web server:

<%
StartTime = now()

'lots of stuff happen here
y = 0
for x = 1 to 15000000
  y = y + 1
next

EndTime = now()

MathTime = cDate(cDbl(StartTime ) - cDbl(EndTime ))
h1 = Hour(MathTime)
n1 = Minute(MathTime)
s1 = Second(MathTime)
%>
Time Difference <%=h1 %>:<%=n1 %>:<%=s1 %> <br />

This should display how many seconds it takes to count to fifteen million. Probably 10 or less.

 

[ironhide1975]

I removed the cDbl and it worked fine. many thanks.