以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这样的时间如何判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186026)

--  作者:bigeng
--  发布时间:2023/4/1 22:30:00
--  [求助]这样的时间如何判断

图片点击可在新窗口打开查看此主题相关图片如下:1680359293668.png
图片点击可在新窗口打开查看
像这样的怎么弄啊实在不知道这个时间怎么判断。
--  作者:chnfo
--  发布时间:2023/4/1 23:03:00
--  
值变化事件

select case e.datacol.name
case "日期","时间"
dim d as date =  Cdate(e.datarow("日期"))
dim t as time = Cdate(e.datarow("时间"))
if t.hour > 19 then 
e.datarow("结算时间") = d.adddays(1)
e.datarow("类型") = "夜班"
else
e.datarow("结算时间") = d
e.datarow("类型") = "白班"
end if 
end select 

[此贴子已经被作者于2023/4/1 23:09:05编辑过]

--  作者:bigeng
--  发布时间:2023/4/4 12:53:00
--  
非常感谢!