主题：时间格式问题

参考代码

 

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)

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

新增一列【修改后的值】

 

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

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