主题：时间格式问题

表格中记录的时间格式是这样的，28-12月-16

 

如何把他转换成2016-12-28 这样的格式导入SQL数据库

参考代码

 

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)

我有好几万条这样的数据呢，并且是在数据还保存在EXCEL中，我需要先在EXCEL中转换，麻烦会的帮忙解决一下！

把数据导入foxtable，然后循环每一行处理。

现在我想在一个按钮点击事件执行修改。

 

要处理的数据表：茂名地址关联覆盖设备解绑操作记录2  列：TIME     

目前这列的数据格式 ：31-1月 -17

 

转换后的数据格式：2017-1-31

 

麻烦帮忙写一下，谢谢！

新增一列【修改后的值】

 

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

此主题相关图片如下：qq截图20170222153935.jpg

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