以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符如何转日期?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89468)

--  作者:kolen
--  发布时间:2016/8/22 18:05:00
--  字符如何转日期?
在表b的销售日期列中存着字符20160801(类型是字符8),要讲该数据保存到表a的日期列,类型是date, 

tables("表a").current("日期") = tables("表b").current("销货日期") ,这样报错,要用什么函数转换一下呢?
请老师们帮我看看,谢谢!
[此贴子已经被作者于2016/8/22 18:14:13编辑过]

--  作者:kolen
--  发布时间: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 & "#"

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

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

--  作者:大红袍
--  发布时间:2016/8/22 18:52:00
--  
Tables("表a").Current("日期") = new date(s1, s2, s3)