Transformation just saw a brother to ask the question, finished just found already knot paste, depressed ah ~ ~
Just see this thing is useful, so posted out from the reward hehe
Ideas:
At first the thought of using Select, for the loop to convert each Arabic numeral to the corresponding Chinese, and then think of actually can use an array, this looks less code, after all, 0~9, can correspond, but ~ problem appeared, for 10~31, to become "two pick one" such format, hehe ~ Add a judgment, Well, ~11 can not be converted into "one pick one", in addition to judge
Oh ~ basically good, still need to judge is not the number, ok! This should be can be over!
<%
T=now ()
Function Datetostr (t)
Dim Stryear,strmonth,strday,strresult
Stryear = year (t)
Strmonth = Month (t)
Strday = Day (t)
Datetostr = Casei (stryear) & "Year" & Casei (Strmonth) & "Month" & Casei (strday) & "Day"
End Function
Function Casei (i)
Dim Arrnum,arrcnnum
If (IsNumeric (i)) Then
Arrnum = Split (i)
Arrcnnum=split ("Zero, one, II, three, establishments, Wu, Lu, Qi, BA, JIU", ",")
If (i<10 OR i>31) Then
For It=1 to Len (i)
strresult = strresult & Arrcnnum (CInt (Mid (i,it,1))
Next
ElseIf (i > 9 and I <) Then
strresult = "Pick Up" & Arrcnnum (CInt (Mid (i,2,1))
Else
strresult = Arrcnnum (CInt (Mid (i,1,1)) & "Pick" & Arrcnnum (CInt (Mid (i,2,1))
End If
End If
Casei = Strresult
End Function
Response.Write (Datetostr (t))
%>
