以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期时间段计算问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185315)

--  作者:chnfo
--  发布时间:2023/2/16 13:52:00
--  [求助]日期时间段计算问题
比如说下班时间是17:00,vars.add("X",gettype(date),"17:00")

但此时output.show(vars("X")),显示结果=2023-02-16 17:00:00

如果某一天实际下班时间是  dim t as date = #2023-01-15 17:21#

\'正常情况下,表示超时下班分钟数=21分钟

如果这样写:
Dim x As TimeSpan = t - Vars("X")
Output.Show(x.TotalMinutes)

就会报错:编译错误:没有为类型“Date”和“Object”定义运算符“-”。
错误代码:Dim x As TimeSpan = t - Vars("X")

这个应当怎么正确使用?

--  作者:有点蓝
--  发布时间:2023/2/16 13:55:00
--  
Dim x As TimeSpan = t - cdate(Vars("X"))
--  作者:chnfo
--  发布时间:2023/2/16 14:03:00
--  
vars.add("X", GetType(Date), "17:00")
Dim t As Date = #01/15/2023 17:21#

Dim x As TimeSpan = t - CDate(Vars("X"))
Output.Show(x.TotalMinutes)

运行结果正常情况下应当是21分钟才对。
但现在显示的结果显然有问题。

因为定的是17:00下班,某一天的下班时间是17:21分,那么就是超时加班21分钟哦

也就是说只需要计算时间差的分钟数,不需要日期
[此贴子已经被作者于2023/2/16 14:06:36编辑过]

--  作者:有点蓝
--  发布时间:2023/2/16 14:16:00
--  
这种计算必须要保证日期一致