以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  格式化数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75222)
--  作者：一笑
--  发布时间：2015/9/30 14:46:00
--  格式化数据
1. 表中有一个日期列“开始日期”，想把“2008/11/9”导出为2008年11月9日格式，用了以下代码，不管用，求解
原来是：st1 =  dr1("机号") & "飞机" & dr1("开始日期")  ，导出“2008/11/9”格式；
改为：st1 = dr1("机号") & "飞机" & Format(dr1("开始日期") ,"D") 
        st1 = dr1("机号") & "飞机" & Format(dr1("开始日期") ,"yyyy年MM月dd日") 
都不管用。

2. 想把代码中阿拉伯数字变量“i” 变为中文，如2变为“二”，该如何修改，谢谢
For i As Integer = 0 To drs.count-1
                Dim dr As DataRow = drs(i)                
                    str & = (i) & ")  " &  dr("小结")                
            Next
--  作者：大红袍
--  发布时间：2015/9/30 14:51:00
--  

1、st1 = dr1("机号") & "飞机" & Format(CDate(dr1("开始日期")), "yyyy年MM月dd日")

 

2、http://www.foxtable.com/help/topics/2616.htm