- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 时间格式问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96468)
-- 发布时间：2017/2/21 15:48:00
-- 时间格式问题
| 表格中记录的时间格式是这样的，28-12月-16 |
如何把他转换成2016-12-28 这样的格式导入SQL数据库
-- 发布时间：2017/2/21 16:00:00
--
参考代码
Dim str As String = "28-12月-16"
Dim ary() As String = str.split("-")
Dim d As Date = new Date(2000+ary(2), val(ary(1)), ary(0))
msgbox(d)
-- 发布时间：2017/2/21 16:34:00
-- 我有好几万条这样的数据呢
我有好几万条这样的数据呢，并且是在数据还保存在EXCEL中，我需要先在EXCEL中转换，麻烦会的帮忙解决一下！
-- 发布时间：2017/2/21 18:19:00
--
把数据导入foxtable，然后循环每一行处理。
-- 发布时间：2017/2/22 14:51:00
-- 麻烦帮我写个代码，
现在我想在一个按钮点击事件执行修改。
要处理的数据表：茂名地址关联覆盖设备解绑操作记录2 列：TIME
目前这列的数据格式 ：31-1月 -17
转换后的数据格式：2017-1-31
麻烦帮忙写一下，谢谢！
-- 发布时间：2017/2/22 15:07:00
--
新增一列【修改后的值】
For Each dr As DataRow In DataTables("表A").Select("")
Dim str As String = dr("Time")
Dim ary() As String = str.split("-")
Dim d As Date = new Date(2000+ary(2), val(ary(1)), ary(0))
dr("修改后的值") = d
Next
-- 发布时间：2017/2/22 15:39:00
--
此主题相关图片如下：qq截图20170222153935.jpg
-- 发布时间：2017/2/22 15:47:00
--
For Each dr As DataRow In DataTables("表A").Select("")
Dim str As String = dr("Time")
Dim ary() As String = str.split("-")
If ary.length >= 3 Then
Dim d As Date = new Date(2000+ary(2), val(ary(1)), ary(0))
dr("修改后的值") = d
End If
Next