以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]根据字符型的长日期减去一定时间生成另一列的长日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176821)

--  作者：YANGDADA --  发布时间：2022/4/27 20:43:00 --  [求助]根据字符型的长日期减去一定时间生成另一列的长日期 根据导入的字符型的长日期如：2022-04-27 10：20：30  减去 3：20：10（3小时20分10秒） 得到的长日期填入另一列的代码如何写？

--  作者：有点蓝 --  发布时间：2022/4/28 9:10:00 --   Dim s1 As String = "2022-04-27 10:20:30" Dim s2 As String = "3:20:10" Dim d As Date = CDate(s1) Dim d1 As Double Dim sr() As String = s2.split(":") d1 = val(sr(0)) * 3600 d1 = d1 + val(sr(1)) * 60 d1 = d1 + val(sr(2)) d = d.AddSeconds(d1) MsgBox(d)