以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel时间导入的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173169)
--  作者：rjh4078
--  发布时间：2021/11/17 15:04:00
--  excel时间导入的问题
原始excel中数据的时间是 2021-11-17  14:59:36
使用编码导入 在FT中显示成 2021-11-17  00:00:00
使用messagebox.show(sheet(x,0).value)或者text弹出的都是2021-11-17  并没有获取到时间部分 老师们有办法吗?
--  作者：rjh4078
--  发布时间：2021/11/17 15:08:00
--  
导入代码 ;使用FT系统菜单里的高速合并,数据进去是正常的
Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim Style As Xls.Style = Book.NewStyle \'新建一个样式
    Style.BackColor = Color.Red
    Dim Styleb As Xls.Style = Book.NewStyle \'新建一个样式
    Styleb.BackColor = Color.green
    Dim nms() As String = {"产品编号","开始时间","结束时间","备注"}
    
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row=t.addnew
        r("产品编号")=sheet(n,0).Text
        r("开始时间")=sheet(n,1).Text
\'\'r("开始时间")=cdate(sheet(n,1).Text)
\'\'r("开始时间")=cdate(sheet(n,1).value)
        r("结束时间")=sheet(n,2).Text        
        r("备注")=sheet(n,3).Text
    Next
--  作者：有点蓝
--  发布时间：2021/11/17 15:09:00
--  
长日期要使用vba导：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0