主题：两个日期之间怎样计算差值

获取小时部分进行判断，如果开始时间小时数小于12，同时结束时间小时数大于13，就减去1个小时

或者分开2次计算。如果开始时间小于12点，就使用12点的时间减去开始时间；同理下午就使用结束时间减去13点。然后2个计算结果相加

dim d2 as date = cdate("2022-7-8 15:00")

Dim tp As TimeSpan= d2 - d1

dim h as double = tp.TotalSeconds()

if d1.hour < 12 andalso d2.hour > 13 then

h = h - 3600

endif

msgbox(h)