Foxtable(狐表)用户栏目专家坐堂 → [求助]日期时间段计算问题


  共有4699人关注过本帖树形打印复制链接

主题:[求助]日期时间段计算问题

帅哥哟,离线,有人找我吗?
chnfo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2239 积分:18446 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]日期时间段计算问题  发帖心情 Post By: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")

这个应当怎么正确使用?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/16 13:55:00 [只看该作者]

Dim x As TimeSpan = t - cdate(Vars("X"))

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2239 积分:18446 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/16 14:16:00 [只看该作者]

这种计算必须要保证日期一致

 回到顶部