- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于字符转换的问题，请指教，谢谢！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22234)
-- 发布时间：2012/8/6 22:13:00
-- 关于字符转换的问题，请指教，谢谢！
就是如果录入的日期格式为“2012-08-06”，我想输出的时候转换为“二O一二年八月六日”，请问，该如何转换？谢谢！例子如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
[此贴子已经被作者于2012-8-6 22:26:31编辑过]
-- 发布时间：2012/8/7 0:01:00
--
直接的转换函数好像没有，这样也行吧？
Dim s As String = "〇,一,二,三,四,五,六,七,八,九,一十,一十一,一十二,一十三,一十四,一十五,一十六,一十七,一十八,一十九,二十,二十一,二十二,二十三,二十四,二十五,二十六,二十七,二十八,二十九,三十,三十一"
Dim Values() As String
Values = s.split(",")
Dim rq As Date = #08/06/2008#
Dim y,m,d,s2 As String
s2 = rq.year
For i As Integer = 0 To 3
y = y & Values(S2.SubString(i,1))
Next
m = Values(rq.Month)
d = Values(rq.Day)
Output.Show(y & "年" & m & "月" & d & "
-- 发布时间：2012/8/7 7:31:00
--
谢谢
-- 发布时间：2012/8/7 9:25:00
--
下次更细后，这种问题会很简单
-- 发布时间：2012/8/7 10:37:00
--
何时为下次?
[此贴子已经被作者于2012-8-7 10:37:15编辑过]
-- 发布时间：2012/8/7 10:41:00
--
期待下次更新！