Sideway BICK BlogSideway BICK BLOG from Sideway

A Sideway to Sideway Home
Home
Output.to

Link:http://output.to/sideway/default.asp?qno=180302702

Resources and links .MS MSDN DotNet Framework 4.7, 4.6, and 4.5

DotNet links from msdn.microsoft.com

Source/Reference:
https://msdn.microsoft.com/library/ff361664(v=vs.110).aspx

Link:http://output.to/sideway/default.asp?qno=180300027

Script, Scripting Language, VBScript elements, Server-Side VBScript Function Timer Function

VBScript Date/Time Functions

Functions for manipulating date or time dexpression.

Timer Function

last updated 9/21/2017

Create a numeric value from time part of current local system time by counting the elapsed seconds since 12:00 AM, midnight, or 00:00.

Syntax

Timer

Returns

Returns a Variant of the Single data subtype containing the numeric value obtained from time part of current local system time by counting the elapsed seconds since 12:00 AM, or midnight, or 00:00.

Remarks

  • Timer function can only be used to count the elapsed time of current local system time in second since 00:00.
  • The return value of Timer function is always the raw value of DateDiff("s",Date,Now).
  • In other words, Timer function cannot be used to count second over midnight.
  • The return value of Timer function is greater than or equal 0, and less than 86400.

Requirement

5

Examples

Examples of Timer functions

ASP VbScript Command:
<script runat="server" language="VBScript">
Dim vars,cmda,var:var=1
cmda=array("Now","DateDiff(""s"",Date,Now)","Timer","Timer()")
Dim ucnt,tmp,i:ucnt=UBound(cmda):If var=1 Then:tmp="":Else:tmp="<b>vars</b>":End If:For i=0 to ucnt:tmp=tmp&"<b>"&rmv_ctrl(cmda(i))&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If varx=0  Then:Execute vars:End If:If var=1 Then:tmp_a="":Else:tmp_a=rmv_ctrl(vars):End If:For i=0 to ucnt:tmp_b=cmd_b(cmda(i)):if i/2=fix(i/2) Then:tmp_b="<b>"&tmp_b&"</b>":End If:tmp_a=tmp_a&tmp_b:Next:Response.Write "<i>"&tmp_a&"</i>":End Function
Function rmv_ctrl(blk_str):Select Case blk_str:Case chr(0):blk_str="NUL":Case chr(1):blk_str="SOH":Case chr(2):blk_str="STX":Case chr(3):blk_str="ETX":Case chr(4):blk_str="EOT":Case chr(5):blk_str="ENQ":Case chr(6):blk_str="ACK":Case chr(7):blk_str="BEL":Case chr(8):blk_str="BS":Case chr(9):blk_str="HT":Case chr(10):blk_str="LF":Case chr(11):blk_str="VT":Case chr(12):blk_str="FF":Case chr(13):blk_str="CR":Case chr(14):blk_str="SO":Case chr(15):blk_str="SI":Case chr(16):blk_str="DLE":Case chr(17):blk_str="DC1":Case chr(18):blk_str="DC2":Case chr(19):blk_str="DC3":Case chr(20):blk_str="DC4":Case chr(21):blk_str="NAK":Case chr(22):blk_str="SYN":Case chr(23):blk_str="ETB":Case chr(24):blk_str="CAN":Case chr(25):blk_str="EM":Case chr(26):blk_str="SUB":Case chr(27):blk_str="ESC":Case chr(28):blk_str="FS":Case chr(29):blk_str="GS":Case chr(30):blk_str="RS":Case chr(31):blk_str="US":Case chr(127):blk_str="DEL":End Select:rmv_ctrl=blk_str:If IsNull(blk_str) OR IsEmpty(Blk_str) OR blk_str="" OR IsNumeric(Blk_str) Then:Else:rmv_ctrl=Replace(Replace(Replace(Replace(Replace(blk_str,"&","&amp;"),"  "," &nbsp;"),"""","&quot;"),"<","&lt;"),">","&gt;"): End If :End Function
Function cmd_b(blk_str):cmd_b="["&cmd_x(blk_str)&"], "&cmd_x("TypeName("&blk_str&")"):End Function
Function cmd_x(blk_str):On Error Resume Next:Dim xans, tmp:xans="":tmp="":execute "xans="&blk_str:If Err.Number <> 0  Then:xans=cmd_x("TypeName("&blk_str&")"):Select Case xans:Case 9::Case Else:xans="error":End Select:End If:If IsArray(xans)=False Then:cmd_x=rmv_ctrl(xans): Else:tmp=lst_arry(xans):cmd_x=trim(tmp):End If:End Function
Function lst_arry(blk_str):Dim tmp,i,q:q="""":tmp="":For i=0 to UBound(blk_str):if VarType(blk_str(i))>1 And VarType(blk_str(i))<6 Then:q="'":End If:tmp=tmp&" "&q&rmv_ctrl(blk_str(i))&q:Next:lst_arry=trim(tmp):End Function

dsp_x
</script>
HTML Web Page In-line Output:
Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp
Now, TypeNameDateDiff("s",Date,Now), TypeNameTimer, TypeNameTimer(), TypeName
Previous Month  MAR  2018  Next Month
SMTWTFS
123
45678910
11121314151617
18192021222324
25262728293031

Previous Month  SEP  2016  Next Month
SMTWTFS
123
45678910
11121314151617
18192021222324
252627282930

Sideway BICK Blog

27/03

Copyright © 2000-2020 Sideway . All rights reserved Disclaimerslast modified on 26 January 2013