Sideway BICK BlogSideway BICK BLOG from Sideway

A Sideway to Sideway Home
Home
Output.to

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

Unicode from unicode.org

Unicode

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

Script, Scripting Language, VBScript elements, Server-Side VBScript Function DateValue, TimeValue Function

VBScript Date/Time Functions

Functions for manipulating date or time expression.

DateValue Function

last updated 9/18/2017

Create a date part of date from a given acceptable date string.

Syntax

DateValue(date)

Argument

dateRequired. Any acceptable date String expression that is used for the evaluation of the date part.

Returns

Returns a Variant of Date data subtype containing the date part of a date converted from a given acceptable date string.

Special returns of function:

datereturn valueNullRun-time ErrorEmptyRun-time Error""Run-time Error

Remarks

  • DateValue function converts any acceptable given date String to a Variant of Date data subtype containing the given date String in Short date format with no time part. For example, M/d/yyyy, or M/d/yy.
  • DateValue function can recognize dates with long month name, abbreviated month name, 2-digit year, and 4-digit year.
  • Since the valid date can be any date String expression between January 1, 100 12:00:00 AM and December 31, 9999 11:59:59 PM inclusive, the date argument is therefore between January 1, 100 and December 31, 9999 inclusive.
  • For any invalid date argument or the value of of date argument falling outside the valid range, DateValue function returns Run-time error.
  • However, if date argument only contains time part of date, DateValue function returns 12:00:00 AM without date part.
  • For the date separator, "/" is the standard date part separator, and ":" is the standard time part separator. Other separators for date part are " ", "-", ",". Other separators for time part is ".".
  • Normally the date argument is divided into three items, however the date argument can also be divided into two items only.
  • For 2-item date argument, if no year item is identified, the two items are assumed to be the month and day parts, with pattern month/day (default) or day/month, and the current year of the local systme date is then used as the year part. However, if year item is identified, the two items are assumed to be the year and month parts, with pattern year/month or month/year, and the day 1 of month is then used as the day part.
  • For 3-item date argument, the three acceptable patterns are month/day/year (default), day/month/year, and year/month/day.
  • The DateValue function will evaluate the given date one by one accordingly.
  • The year item can only be the first item or the third item of date.
  • The DateValue function will first assume the third item is the year part. If both month/day/year (default) and day/month/year does not return a valid date, the DateValue function will then assume the first item is the year part. However, the item after year must be month, that is year/month/day.

Requirement

1

Examples

Examples of DateValue function

ASP VbScript Command:
<script runat="server" language="VBScript">
Dim vars,dte,cmda,var:var=0
cmda=array("DateValue(dte)")
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

vars="dte= Now":dsp_x
vars="dte= #9:25:59#":dsp_x
vars="dte= #October 26,2017 #":dsp_x
vars="dte= #9:25#":dsp_x
vars="dte= #9/25/63#":dsp_x
vars="dte= ""9/25/63""":dsp_x
vars="dte= ""9:25:59""":dsp_x
vars="dte= #9/25/8#":dsp_x
vars="dte= #1909/2/8#":dsp_x
vars="dte= ""9/25/8""":dsp_x
vars="dte= #29/3/63#":dsp_x
vars="dte= #29/3/28#":dsp_x
vars="dte= #28/2/31#":dsp_x
vars="dte= #29/3/31#":dsp_x
vars="dte= #29/3/32#":dsp_x
vars="dte= ""29/3/63""":dsp_x
vars="dte= ""29/3/28""":dsp_x
vars="dte= #9/25#":dsp_x
vars="dte= ""9/25""":dsp_x
vars="dte= ""9/3""":dsp_x
vars="dte= ""3/9""":dsp_x
vars="dte= #9/3#":dsp_x
vars="dte= #3/9#":dsp_x
vars="dte= #29/3#":dsp_x
vars="dte= ""29/3""":dsp_x
vars="dte= #29/12#":dsp_x
vars="dte= ""29/12""":dsp_x
vars="dte= #63/9/25#":dsp_x
vars="dte= ""63/9/25""":dsp_x
vars="dte= #63-2#":dsp_x
vars="dte= ""63-2""":dsp_x
vars="dte= #29-2#":dsp_x
vars="dte= ""29-2""":dsp_x
vars="dte= #3/9/25#":dsp_x
vars="dte= ""3/9/25""":dsp_x
vars="dte= #3 9 25#":dsp_x
vars="dte= ""3 9 25""":dsp_x
vars="dte= #3/9/5#":dsp_x
vars="dte= ""3/9/5""":dsp_x
vars="dte= #3 9 5#":dsp_x
vars="dte= ""3 9 5""":dsp_x
vars="dte= #13 9 5#":dsp_x
vars="dte= ""13 9 5""":dsp_x
vars="dte= #3 9 15#":dsp_x
vars="dte= ""13 9 15""":dsp_x
vars="dte= ""13.9.15""":dsp_x
vars="dte= #25/3/9#":dsp_x
vars="dte= ""25/3/9""":dsp_x
vars="dte= #25 3 9#":dsp_x
vars="dte= ""25 3 9""":dsp_x
vars="dte= #3/19/25#":dsp_x
vars="dte= ""3/19/25""":dsp_x
vars="dte= #3 19 25#":dsp_x
vars="dte= ""3 19 25""":dsp_x
vars="dte= #25/3/19#":dsp_x
vars="dte= ""25/3/19""":dsp_x
vars="dte= #25 3 19#":dsp_x
vars="dte= ""25 3 19""":dsp_x
vars="dte= #13/9/25#":dsp_x
vars="dte= ""13/9/25""":dsp_x
vars="dte= #13 9 25#":dsp_x
vars="dte= ""13 9 25""":dsp_x
vars="dte= #2513/9#":dsp_x
vars="dte= ""2513/9""":dsp_x
vars="dte= #2513/Dec#":dsp_x
vars="dte= ""2513/Dec""":dsp_x
vars="dte= #2513 9#":dsp_x
vars="dte= ""2513 9""":dsp_x
vars="dte= #9/2513#":dsp_x
vars="dte= ""9/2513""":dsp_x
vars="dte= #Dec/2513#":dsp_x
vars="dte= ""Dec/2513""":dsp_x
vars="dte= #2513 Dec#":dsp_x
vars="dte= ""2513 Dec""":dsp_x
vars="dte= #9 2513#":dsp_x
vars="dte= ""9 2513""":dsp_x
vars="dte= #13-2-3#":dsp_x
vars="dte= ""13-2-3""":dsp_x
vars="dte= #13/2/3#":dsp_x
vars="dte= ""13/2/3""":dsp_x
vars="dte=""01/01""":dsp_x
vars="dte=""01/31""":dsp_x
vars="dte=""31/01""":dsp_x
vars="dte=""31/01/30""":dsp_x
vars="dte=""01/31/30""":dsp_x
vars="dte=""31/01/28""":dsp_x
vars="dte=""01/31/28""":dsp_x
vars="dte=""28/01/30""":dsp_x
vars="dte=""01/28/30""":dsp_x
vars="dte=""2/31""":dsp_x
vars="dte=""31/2""":dsp_x
vars="dte=""2/25/24""":dsp_x
vars="dte=""25/2/24""":dsp_x
vars="dte=""2/25/26""":dsp_x
vars="dte=""25/2/26""":dsp_x
vars="dte=""3/9/1999""":dsp_x
vars="dte=""9/3/1999""":dsp_x
vars="dte=""3/29/1999""":dsp_x
vars="dte=""29/3/1999""":dsp_x
vars="dte= #63 9 25#":dsp_x
vars="dte= #63 2 3#":dsp_x
vars="dte= #6 9 25#":dsp_x
vars="dte= #6 2 3#":dsp_x
vars="dte= #9 25 63#":dsp_x
vars="dte= #2 3 63#":dsp_x
vars="dte= #9 25#":dsp_x
vars="dte= #2 3#":dsp_x
vars="dte=""01 01""":dsp_x
vars="dte=""01-31""":dsp_x
vars="dte=""31,01""":dsp_x
vars="dte=""31,01,30""":dsp_x
vars="dte=""01/31/1930""":dsp_x
vars="dte=""31/01/1928""":dsp_x
vars="dte=""01/31/1928""":dsp_x
vars="dte=""1928/01/30""":dsp_x
vars="dte=""01/28/1930""":dsp_x
vars="dte=""2/21/1920""":dsp_x
vars="dte=""21/2/1920""":dsp_x
vars="dte=""2/25/1924""":dsp_x
vars="dte=""1925/2/24""":dsp_x
vars="dte=""2/25/1926""":dsp_x
vars="dte=""1925/2/26""":dsp_x
vars="dte=""1903/9/19""":dsp_x
vars="dte=""1999/3/19""":dsp_x
vars="dte=""3/29/1999""":dsp_x
vars="dte=""1929/3/19""":dsp_x
vars="dte=""31 Dec""":dsp_x
vars="dte=""Dec 31""":dsp_x
vars="dte=""31 December""":dsp_x
vars="dte=""December 31""":dsp_x
vars="dte=""31 Dec 25""":dsp_x
vars="dte=""25 Dec 31""":dsp_x
vars="dte=""Dec 31 25""":dsp_x
vars="dte=""Dec 25 31""":dsp_x
vars="dte=""32 Dec 25""":dsp_x
vars="dte=""32 Dec 31""":dsp_x
vars="dte=""Dec 32 25""":dsp_x
vars="dte=""Dec 32 31""":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
varsDateValue(dte), TypeNamedte= Now[3/27/2019], Datedte= #9:25:59#[12:00:00 AM], Datedte= #October 26,2017 #[10/26/2017], Datedte= #9:25#[12:00:00 AM], Datedte= #9/25/63#[9/25/1963], Datedte= "9/25/63"[9/25/1963], Datedte= "9:25:59"[12:00:00 AM], Datedte= #9/25/8#[9/25/2008], Datedte= #1909/2/8#[2/8/1909], Datedte= "9/25/8"[9/25/2008], Datedte= #29/3/63#[3/29/1963], Datedte= #29/3/28#[3/28/2029], Datedte= #28/2/31#[2/28/1931], Datedte= #29/3/31#[3/31/2029], Datedte= #29/3/32#[3/29/1932], Datedte= "29/3/63"[3/29/1963], Datedte= "29/3/28"[3/28/2029], Datedte= #9/25#[9/25/2019], Datedte= "9/25"[9/25/2019], Datedte= "9/3"[9/3/2019], Datedte= "3/9"[3/9/2019], Datedte= #9/3#[9/3/2019], Datedte= #3/9#[3/9/2019], Datedte= #29/3#[3/29/2019], Datedte= "29/3"[3/29/2019], Datedte= #29/12#[12/29/2019], Datedte= "29/12"[12/29/2019], Datedte= #63/9/25#[9/25/1963], Datedte= "63/9/25"[9/25/1963], Datedte= #63-2#[2/1/1963], Datedte= "63-2"[2/1/1963], Datedte= #29-2#[2/1/2029], Datedte= "29-2"[2/1/2029], Datedte= #3/9/25#[3/9/2025], Datedte= "3/9/25"[3/9/2025], Datedte= #3 9 25#[3/9/2025], Datedte= "3 9 25"[3/9/2025], Datedte= #3/9/5#[3/9/2005], Datedte= "3/9/5"[3/9/2005], Datedte= #3 9 5#[3/9/2005], Datedte= "3 9 5"[3/9/2005], Datedte= #13 9 5#[9/5/2013], Datedte= "13 9 5"[9/5/2013], Datedte= #3 9 15#[3/9/2015], Datedte= "13 9 15"[9/15/2013], Datedte= "13.9.15"[12:00:00 AM], Datedte= #25/3/9#[3/9/2025], Datedte= "25/3/9"[3/9/2025], Datedte= #25 3 9#[3/9/2025], Datedte= "25 3 9"[3/9/2025], Datedte= #3/19/25#[3/19/2025], Datedte= "3/19/25"[3/19/2025], Datedte= #3 19 25#[3/19/2025], Datedte= "3 19 25"[3/19/2025], Datedte= #25/3/19#[3/19/2025], Datedte= "25/3/19"[3/19/2025], Datedte= #25 3 19#[3/19/2025], Datedte= "25 3 19"[3/19/2025], Datedte= #13/9/25#[9/25/2013], Datedte= "13/9/25"[9/25/2013], Datedte= #13 9 25#[9/25/2013], Datedte= "13 9 25"[9/25/2013], Datedte= #2513/9#[9/1/2513], Datedte= "2513/9"[9/1/2513], Datedte= #2513/Dec#[12/1/2513], Datedte= "2513/Dec"[12/1/2513], Datedte= #2513 9#[9/1/2513], Datedte= "2513 9"[9/1/2513], Datedte= #9/2513#[9/1/2513], Datedte= "9/2513"[9/1/2513], Datedte= #Dec/2513#[12/1/2513], Datedte= "Dec/2513"[12/1/2513], Datedte= #2513 Dec#[12/1/2513], Datedte= "2513 Dec"[12/1/2513], Datedte= #9 2513#[9/1/2513], Datedte= "9 2513"[9/1/2513], Datedte= #13-2-3#[2/3/2013], Datedte= "13-2-3"[2/3/2013], Datedte= #13/2/3#[2/3/2013], Datedte= "13/2/3"[2/3/2013], Datedte="01/01"[1/1/2019], Datedte="01/31"[1/31/2019], Datedte="31/01"[1/31/2019], Datedte="31/01/30"[1/30/1931], Datedte="01/31/30"[1/31/1930], Datedte="31/01/28"[1/28/1931], Datedte="01/31/28"[1/31/2028], Datedte="28/01/30"[1/30/2028], Datedte="01/28/30"[1/28/1930], Datedte="2/31"[2/1/1931], Datedte="31/2"[2/1/1931], Datedte="2/25/24"[2/25/2024], Datedte="25/2/24"[2/24/2025], Datedte="2/25/26"[2/25/2026], Datedte="25/2/26"[2/26/2025], Datedte="3/9/1999"[3/9/1999], Datedte="9/3/1999"[9/3/1999], Datedte="3/29/1999"[3/29/1999], Datedte="29/3/1999"[3/29/1999], Datedte= #63 9 25#[9/25/1963], Datedte= #63 2 3#[2/3/1963], Datedte= #6 9 25#[6/9/2025], Datedte= #6 2 3#[6/2/2003], Datedte= #9 25 63#[9/25/1963], Datedte= #2 3 63#[2/3/1963], Datedte= #9 25#[9/25/2019], Datedte= #2 3#[2/3/2019], Datedte="01 01"[1/1/2019], Datedte="01-31"[1/31/2019], Datedte="31,01"[1/31/2019], Datedte="31,01,30"[1/30/1931], Datedte="01/31/1930"[1/31/1930], Datedte="31/01/1928"[1/31/1928], Datedte="01/31/1928"[1/31/1928], Datedte="1928/01/30"[1/30/1928], Datedte="01/28/1930"[1/28/1930], Datedte="2/21/1920"[2/21/1920], Datedte="21/2/1920"[2/21/1920], Datedte="2/25/1924"[2/25/1924], Datedte="1925/2/24"[2/24/1925], Datedte="2/25/1926"[2/25/1926], Datedte="1925/2/26"[2/26/1925], Datedte="1903/9/19"[9/19/1903], Datedte="1999/3/19"[3/19/1999], Datedte="3/29/1999"[3/29/1999], Datedte="1929/3/19"[3/19/1929], Datedte="31 Dec"[12/31/2019], Datedte="Dec 31"[12/31/2019], Datedte="31 December"[12/31/2019], Datedte="December 31"[12/31/2019], Datedte="31 Dec 25"[12/31/2025], Datedte="25 Dec 31"[12/25/1931], Datedte="Dec 31 25"[12/31/2025], Datedte="Dec 25 31"[12/25/1931], Datedte="32 Dec 25"[12/25/1932], Datedte="32 Dec 31"[12/31/1932], Datedte="Dec 32 25"[12/25/1932], Datedte="Dec 32 31"[12/31/1932], Date

TimeValue Function

last updated 9/21/2017

Create the time part of a date from a given date string.

Syntax

TimeValue(time)

Argument

timeRequired. Any acceptable date String expression that is used for the evaluation of the time part.

Returns

Returns a Variant of Date data subtype containing the time part of a date converted from a given valid date string.

Special returns of function:

datereturn valueNullRun-time ErrorEmptyRun-time Error""Run-time Error

Remarks

  • TimeValue function converts any acceptable given date String to a Variant of Date data subtype containing the given date String in Long time format with no date part. For example, h:mm:ss tt.
  • TimeValue function can recognize dates with long time, short time, 12-hour clock, or 24-hour clock.
  • Since the valid date can be any date String expression between January 1, 100 12:00:00 AM and December 31, 9999 11:59:59 PM inclusive, the valid date argument is therefore between 12:00:00 AM (00:00:00) and 11:59:59 PM (23:59:59) inclusive.
  • For any invalid date argument or the value of of date argument falling outside the valid range, DateValue function returns Run-time error.
  • However, if date argument only contains date part of date, DateValue function returns 12:00:00 AM without date part.
  • For the time separator, ":" is the standard time part separator, and "/" is the standard date part separator. Other separator for time part is ".". Other separators for date part are " ", "-", ",".
  • Normally the time argument is divided into three items, however the time argument can also be divided into two items only.
  • For 2-item time argument, the two items are assumed to be the hour and minute parts, with pattern hour:minute, and 0 is used as the second part.
  • For 3-item time argument, the three items are assumed to be the hour, minute and second parts, with pattern hour:minute:second.

Requirement

1

Examples

Examples of TimeValue function

ASP VbScript Command:
<script runat="server" language="VBScript">
Dim vars,tme,cmda,var:var=0
cmda=array("TimeValue(tme)")
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

vars="tme=""01/11""":dsp_x
vars="tme=""01/11/25""":dsp_x
vars="tme=""01 11 12""":dsp_x
vars="tme=""01.11.12""":dsp_x
vars="tme=""12,9,01""":dsp_x
vars="tme=""01:11:12""":dsp_x
vars="tme=""01:11""":dsp_x
vars="tme=""01.11""":dsp_x
vars="tme=0.11":dsp_x
vars="tme=""0.11 PM""":dsp_x
vars="tme=""1:11:12""":dsp_x
vars="tme=""1:11""":dsp_x
vars="tme=""13:11:12""":dsp_x
vars="tme=""13:11""":dsp_x
vars="tme=""01:11:12 AM""":dsp_x
vars="tme=""01:11 AM""":dsp_x
vars="tme=""01:11:12 PM""":dsp_x
vars="tme=""01:11 PM""":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
varsTimeValue(tme), TypeNametme="01/11"[12:00:00 AM], Datetme="01/11/25"[12:00:00 AM], Datetme="01 11 12"[12:00:00 AM], Datetme="01.11.12"[1:11:12 AM], Datetme="12,9,01"[12:00:00 AM], Datetme="01:11:12"[1:11:12 AM], Datetme="01:11"[1:11:00 AM], Datetme="01.11"[1:11:00 AM], Datetme=0.11[12:11:00 AM], Datetme="0.11 PM"[12:11:00 PM], Datetme="1:11:12"[1:11:12 AM], Datetme="1:11"[1:11:00 AM], Datetme="13:11:12"[1:11:12 PM], Datetme="13:11"[1:11:00 PM], Datetme="01:11:12 AM"[1:11:12 AM], Datetme="01:11 AM"[1:11:00 AM], Datetme="01:11:12 PM"[1:11:12 PM], Datetme="01:11 PM"[1:11:00 PM], Date
Previous Month  MAR  2018  Next Month
SMTWTFS
123
45678910
11121314151617
18192021222324
25262728293031

Previous Month  NOV  2017  Next Month
SMTWTFS
1234
567891011
12131415161718
19202122232425
2627282930

Sideway BICK Blog

29/03

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