如何导入excel中的时间格式（h：mm）数据？

Question

如题，无法导入时间格式的数据，如12:12。但以0开头的时间可以导入，如0:26.
相关代码如下，望高人指点。
dfsys.rs时刻表备上行.Fields("南京") = "     "
If Trim(xlssheet.Cells(i, Asc(cmbsx1.Text) - 64)) <> "" Then
 If Asc(Left(Trim(xlssheet.Cells(i, Asc(cmbsx1.Text) - 64)), 1)) >= 48 And Asc(Left(Trim(xlssheet.Cells(i,   Asc(cmbsx1.Text) - 64)), 1)) <= 57 Then
    If Mid(Trim(xlssheet.Cells(i, Asc(cmbsx1.Text) - 64)), 2, 1) <> ":" Then
    dfsys.rs时刻表备上行.Fields("南京") = Format(Trim(xlssheet.Cells(i, Asc(cmbsx1.Text) - 64)), "HH:MM")
    Else
    dfsys.rs时刻表备上行.Fields("南京") = "0" & Trim(xlssheet.Cells(i, Asc(cmbsx1.Text) - 64))
    End If
 End If

Answer 1

Format() 函数是用来将时间格式化为文本，既然你已经是文本 12:12，直接赋值给字段就可以了。

Answer 2

dfsys.rs时刻表备上行.Fields("南京") = CDate(Trim(xlssheet.Cells(i, Asc(cmbsx1.Text) - 64))