字符如何转日期？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符如何转日期？

共有2694人关注过本帖树形打印复制链接主题：字符如何转日期？

kolen

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

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

字符如何转日期？ 发帖心情

Post By：2016/8/22 18:05:00 [只看该作者]

在表b的销售日期列中存着字符20160801（类型是字符8），要讲该数据保存到表a的日期列，类型是date,

tables("表a").current("日期") = tables("表b").current("销货日期") ，这样报错，要用什么函数转换一下呢？

请老师们帮我看看，谢谢！

[此贴子已经被作者于2016/8/22 18:14:13编辑过]

kolen

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

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2016/8/22 18:16:00 [只看该作者]

Dim s As String = Tables("b").Current("销货日期")

Dim s1 As String = s.SubString(0,4)

Dim s2 As String = s.SubString(4,2)

Dim s3 As String = s.SubString(6,2)

Tables("表a").Current("日期") = "#"& s2 & "/" & s3 & "/" & s1 & "#"

这样搞了一下，好像行了。图片点击可在新窗口打开查看

是不是还有更好的方法呢？

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/22 18:52:00 [只看该作者]

Tables("表a").Current("日期") = new date(s1, s2, s3)

主题：字符如何转日期？