修正一下:
Dim dt1 As Date = #6/3/2013#
Dim dt2 As Date = #6/24/2013#
Dim dt As Date
Dim cnt As Integer
For i As Integer = 0 To (dt2-dt1).TotalDays
dt = dt1.AddDays(i)
If dt.DayOfWeek = 1 Then
cnt = cnt + 1
End If
Next
output.show("老大低效率但準確的 ===> " & cnt)
'===============================
Dim n1 As Integer
Dim d1,d2 As Date
n1 =dt1.DayOfWeek
d1 = dt1.addDays(1-n1 )
d2 = dt2.addDays(1-n1)
n1 = Int(((d2-d1).TotalDays+1)/7)+1
n1+=iif(dt2.DayOfWeek =0,-1,0)
output.show("測試高效率的 ===> " & n1)