Example Code:
<% = now %>
<%
response.write now
%>
-----------------------------------------
<%
' design by ezer.com code
' Length can be changed for special need
' Adjustable time string length
AskTime=Now()
' --- ezer time example 1
sYear = ezer(cStr(Year(AskTime)),4)
sMonth = ezer(cStr(Month(AskTime)),2)
sDay = ezer(cStr(Day(AskTime)),2)
sHour = ezer(cStr(Hour(AskTime)),2)
sMin = ezer(cStr(Minute(AskTime)),2)
sSec = ezer(cStr(Second(AskTime)),2)
' --- ezer time example 2
syyyyDatePart =ezer(cStr(DatePart("yyyy",AskTime)),4) 'year day
sqDatePart =ezer(cStr(DatePart("q",AskTime)),2) 'year quarter
smDatePart =ezer(cStr(DatePart("m",AskTime)),2) 'year month
swwDatePart=ezer(cStr(DatePart("ww",AskTime)),2) 'year week
syDatePart =ezer(cStr(DatePart("y",AskTime)),3) 'year day
sdDatePart =ezer(cStr(DatePart("d",AskTime)),2) 'month day
swDatePart =ezer(cStr(DatePart("w",AskTime)),1) 'week day
shDatePart =ezer(cStr(DatePart("h",AskTime)),2) 'day hour
snDatePart =ezer(cStr(DatePart("n",AskTime)),2) 'hout minute
ssDatePart =ezer(cStr(DatePart("s",AskTime)),2) 'minute second
'------------------may also usage for time diff-------------------
'sHourTimediff=ezer(cStr(timediff("h",Time1,Time2)),10)
Function ezer(sString, ezerLength)
For i=1 to ezerLength - Len(sString)
sString="0"&sString
next
ezer=sString
End function
response.write "<h1>Adjustable time string length</h1>"
response.write "<h2>The asking time is :: "&Asktime&"<h2>"
response.write "<b>Example 1 : </b><br>"
response.write sYear&"-"&sMonth&"-"&sDay&"-"&sHour&"-"&sMin&"-"&sSec&"<p>"
response.write "<b>Example 2 : </b><br>"
response.write "year day no: "&syyyyDatePart&"<br>"
response.write "year quarter no: "&sqDatePart&"<br>"
response.write "year month no: "&smDatePart&"<br>"
response.write "year week no: "&swwDatePart&"<br>"
response.write "year day no: "&syDatePart&"<br>"
response.write "month day no: "&sdDatePart&"<br>"
response.write "week day no: "&swDatePart&"<br>"
response.write "day hour no: "&shDatePart&"<br>"
response.write "hour minute no: "&snDatePart&"<br>"
response.write "minute second no: "&ssDatePart&"<br>"
%>
---- Example 3 : most easy to change length ----
<%
response.write right("0000" & year(now()),4)
response.write right("00" & month(now()),2)
response.write right("00" & day(now()),2)
%>
螢幕顯示出(=)主機時間(now)
螢幕顯示出(response.write)
---------skill tips 技巧------
可運用 cStr, Len, Loop 來調整成一致性的字串長度,
Ezer 設計了簡易又可調整時間變數與長度變數的常用程式
|