轮流值周公示算法

[xuyong001]

单位需要对值周领导进行公示：要求4位领导轮流值周，如果遇到出差办公不在单位，则后面依次向前轮流，回来后不补值周。
如：赵、钱、周、李、 四位，
如果正常值班就应该是：1赵、2钱、3周、4李、1赵、2钱、3周、4李……
但如果遇见2钱领导出差一个半月，则应该是：1赵、3周、4李、1赵、3周、4李、1赵、2钱、3周……


<%
dim i '多少组
dim datestrat '定义开始时间
i=4 '四组
datestart = "2009-2-2" '本年度第一个值班开始日期
redim job(i-1)
job(0)="1赵"
job(1)="2钱"
job(2)="3周"
job(3)="4李"

%>
<%=job(DateDiff("w", datestart,date) mod i )%>


这种算法，只能在没有领导出差的情况下正常，一旦出差回来，就会产生错误码．请各位高手指点一下，找一种最好的算法．

[xuyong001]

补充，最好用asp语言实现哈。