主题：日期时间拆分问题

请教蓝老师，某家银行输出的对账单日期列格式是“20230301 16:03:25”，我想合并在狐表中“日期”(日期型)变为“2023-03-01”不知如何实现？

我用下面代码实现了字符拆分，但“日期”、“时间”两列都是字符型

If e.DataCol.Name = "日期时间" Then

    If e.DataRow.IsNull("日期时间") Then   

        e.DataRow("日期") = Nothing '日期是字符型   

        e.DataRow("时间") = Nothing '时间是字符型   

    Else

        Dim dr1 As DataRow = e.DataRow

        Dim Tel As String = dr1("日期时间")

        Dim Parts() As String = Tel.Split(" ")   

        dr1("日期") = Parts(0)   

        dr1("时间") = Parts(1)     

    End If

End If

我只需要“日期”(日期型)变为“2023-03-01”不知如何实现？敬请指导

dr1("日期") = Parts(0).insert(6,"-").insert(4,"-")