怎样用代码把日期格式转换一下？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样用代码把日期格式转换一下？

共有5592人关注过本帖树形打印复制链接主题：怎样用代码把日期格式转换一下？

comnets

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

怎样用代码把日期格式转换一下？ 发帖心情

Post By：2013/5/2 16:15:00 [显示全部帖子]

日期控件的内容是 2013-05-02

怎样用代码把它变成2013年5月2日？

comnets

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 16:19:00 [显示全部帖子]

能不能用代码取第几位这样？

comnets

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 16:29:00 [显示全部帖子]

日期控件格式里面只有date datetime longtime datelongtime这些啊没有哪年哪月哪日这样的格式

comnets

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 16:50:00 [显示全部帖子]

这代码有什么不对的地方？

Dim riqi1 As String = e.Form.Controls("日期输入框1").text

Dim parts() As String = riqi1.Split("-")

Dim riqinian As String = parts(0)

Dim riqiyue As String = parts(1)

Dim riqiri As String = parts(2)

Dim riqiq As String = riqinian & "年" & riqiyue & "月" & riqiri & "日"

output.show(riqiq)

提示错误：索引超出了数组界限

comnets

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 17:01:00 [显示全部帖子]

输出格式怎么设置

comnets

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 17:03:00 [显示全部帖子]

谢狐爸~

comnets

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 17:08:00 [显示全部帖子]

Dim dt As Date = Date.Today 这里的Date.Today怎样换成日期控件riqi1的值？用了一下.text不成功
Dim sr As String = Format(dt,"yyyy年MM月dd日")
output.show(sr)

comnets

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 17:10:00 [显示全部帖子]

不需要在日期控件这么显示

是报表里需要把日期控件的内容转换成年月日的格式

求教~

comnets

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 17:22:00 [显示全部帖子]

Dim dt As Date = e.form.Controls("日期输入框1").value

Dim sr As String = Format(dt,"yyyy年MM月dd日")

messagebox.show(sr)

这样是能成功弹出年月日格式的日期的。

但是这样

Dim doc As New PrintDoc() '定义一个报表

Dim dt As Date = e.form.Controls("日期输入框1").value

Dim sr As String = Format(dt,"yyyy年MM月dd日")

Dim rt As New prt.RenderText '定义一个文本对象

rt.Text = sr '设置文本对象的内容

就不对了，信息是：从类型“datetimepiker”到类型“string”的转换无效

[此贴子已经被作者于2013-5-2 17:29:58编辑过]

comnets

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：698 积分：5612 威望：0 精华：0 注册：2013/4/9 6:59:00

Post By：2013/5/2 17:39:00 [显示全部帖子]

测试对了。

谢诸位~

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：怎样用代码把日期格式转换一下？