新手求助值班代码问题

无罪的叹息发布于 2014-03-03 14:44， 593 次点击

程序代码：

<%
dim i
dim datestrat
i=4
datestart = "2014-2-23" '第一天值班开始日期
redim job(i-1)
job(0) = "值班领导：甲"
job(1) = "值班领导：乙"
job(2) = "值班领导：丙"
job(3) = "值班领导：丁"

Response.write date() &" 今日值班:"&job((date()-cdate(datestart)) mod i)
%>

如何才能在上午8:00在开始换班呢，现在系统是默认每天0:00正式执行

2 回复

ysf01812014-03-04 13:54

if hour(now()) >= 8 then
zhi = (date()-cdate(datestart)) mod i)

else
zhi = (date()-cdate(datestart)) mod i) - 1
end if
Response.write date() &" 今日值班:"&job(zhi)

'至于 zhi 的变化，你自己加条件判断

无罪的叹息2014-03-06 09:07

谢谢版主！