主题：想知道某一时段内不用上班的天数,求算法 (已解决)

假设星期六 星期天不用上班的话,从2013-12-12 到2013-12-25 有4天不用上班,各位大侠有没有好的算法?

Dim Sdate,Tdate As Date

Sdate="2013-12-12"

Tdate="2013-12-25"

Dim T As TimeSpan

Dim N,M As Integer

N=7-Sdate.DayOfWeek

T=(TDate-Sdate)

M=Math.Floor((T.Days-N)/7)*2

M=M+iif(Sdate.DayOfWeek=0,3,2)

M=M+iif(TDate.DayOfWeek=6,1,0)

Message.Show(M)

非常正确 ,有点甜 谢谢了