以文本方式查看主题

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

--  作者:jd72789
--  发布时间:2021/2/23 10:54:00
--  狐表内字符型如何转为日期型
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2021/2/23 10:59:00
--  
新建一个另外日期列,使用代码把字符转换为日期,然后删除旧日期列,把新日期列改名回来
--  作者:jd72789
--  发布时间:2021/2/23 13:03:00
--  
谢谢大神秒回,我早上用命令窗口没实现,用ECEL清洗后贴进去了。但我还是想学你的操作哈,代码要咋写呀?图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2021/2/23 13:38:00
--  
for each r as row in tables("表A").rows
if r.isnull("日期") = false then
r("日期2") = cdate(r("日期").insert(6,"-").insert(4,"-") )
end if
next
[此贴子已经被作者于2021/2/24 9:37:07编辑过]

--  作者:jd72789
--  发布时间:2021/2/24 9:33:00
--  
For Each r As Row In Tables("表A").rows
If r.isnull("日期") = False Then
r("日期2") = cdate(r("日期").insert(6,"-").insert(4,"-") )
End If
Next
运行成功,感谢。