以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  timespan异常，days的代码有错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190561)
--  作者：lur320
--  发布时间：2024/2/22 16:23:00
--  timespan异常，days的代码有错误
 Dim ts As New TimeSpan

Dim d1 As Date = #02/21/2024 09:30:00#
Dim d2 As Date = #02/20/2024 14:33:00#

ts = d1 - d2
Output.Show(ts.days)


结果是0？ 如何得到1？
--  作者：lur320
--  发布时间：2024/2/22 16:24:00
--  
 
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2024/2/22 16:29:00
--  
Output.Show(math.Ceiling(ts.Hours / 24))
--  作者：lur320
--  发布时间：2024/2/22 16:55:00
--  
 根本不符合逻辑，hours也有这样的问题。。。2024-01-30 08:30:00    2024-01-31 09:22:00 之间的hours=0
--  作者：有点蓝
--  发布时间：2024/2/22 17:06:00
--  
这个您得向微软投诉，.net就是这种结果，因为这是时段，不满1小时肯定就是0小时，然后使用分钟显示，比如0小时35分钟

所以要进位的话，1小时要使用分钟/60向上取整来计算，