主题：[求助]计算两个日期列的工作日（已解决）

回复8楼

 

Dim d As Date = #8/1/2014#
Dim start As Date = new Date(d.Year, d.Month, 1)
d = start.AddMonths(1)
Dim c As Integer = 1-start.DayOfWeek
start = start.AddDays(c)
msgbox((((d- start).TotalDays + 1) \ 7) * 5 + c + d.AddDays(-1).DayOfWeek)

Dim d As Date=e.Form.Controls("日期").Value
Dim start As Date = new Date(d.Year, d.Month, 1)
d = start.AddMonths(1)
Dim c As Integer = 1-start.DayOfWeek
start = start.AddDays(c)
e.Form.Controls("双休").Text = ((((d- start).TotalDays + 1) \ 7) * 6 + c + d.AddDays(-1).DayOfWeek) & "天"

 要这样写才行

 

Dim d As Date = #11/1/2014#
Dim start As Date = new Date(d.Year, d.Month, 1)
d = start.AddMonths(1)
Dim c As Integer = 1-start.DayOfWeek
start = start.AddDays(c)
If c > 0 Then c = 0
If d.AddDays(-1).DayOfWeek <> 6 Then
    c += d.AddDays(-1).DayOfWeek
End If
msgbox((((d- start).TotalDays + 1) \ 7) * 6 + c)

 看14楼

14楼的代码是正确，单休日的，双休日的你对应改一些就行。