主题：时间导入问题

我要把排好了的机考导入到数据库中

 

由于XLS表中的时间格式导入是下面这个情况

 

 

此主题相关图片如下：qq截图20150612103750.png

 

所有我写了一段代码

 

如下：

Dim Valuessj() As String
           
            Dim rq2,rq3,rq4 As String
           
            Valuessj = rq1.split("/")
           
            rq2 = Valuessj(0)
           
            If Valuessj(1).Length = 1 Then
                rq3 = "0" & Valuessj(1)
            Else
                rq3 =  Valuessj(1)
            End If
           
            If Valuessj(2).Length = 1 Then
                rq4 = "0" & Valuessj(2)
            Else
                rq4 =  Valuessj(2)
            End If
           
            rq = rq2 & "-" & rq3 & "-" & rq4

 

但报错，请专家指点！

 

实例如下：

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导入问题.rar

 

点实例中的机考导入，XLS表在压缩包中！

 

谢谢！