如题,
dim 首次转班日期 as date
dim 起始日期 as date
首次转班日期 = 起始日期.AddDays(6 - 起始日期.DayOfWeek + 1)
首次转班日期 = 起始日期.AddDays(6 - Cint(weekday(起始日期.DayOfWeek)) + 1)
以上代码第3,4行运行结果,均为“首次转班日期 = 0:00:00”