Dim d1 as Date = #3/17/2002 12:30:29# Dim d2 as Date = #1/1/2008 10:11:49# Dim t As TimeSpan = d2 - d1 Dim Count As Integer Dim Val As Date For i As integer = 0 To t.Days Val = d1.adddays(1) If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then Count = Count + 1 End If Next Output.Show(Count)
加好友 
发短信
Post By：2009/12/29 10:42:00 [显示全部帖子]
