Ms access 计算日期内有多少个周末?
我需要计算两个日期内有多少个周末?我的意思是,我有两个约会,想知道这两个日期之间的星期六和星期日的计数Ms access 计算日期内有多少个周末?,ms-access,ms-access-2007,vba,ms-access-2010,Ms Access,Ms Access 2007,Vba,Ms Access 2010,我需要计算两个日期内有多少个周末?我的意思是,我有两个约会,想知道这两个日期之间的星期六和星期日的计数 我在每条记录上有两个日期(从日期到日期),希望查询周末的计数。以下VBA函数将允许您运行表单的访问查询 SELECT CountWeekendDays([from date], [to date]) AS WeekendDays FROM YourTable 只需在Access中创建一个新的模块,并将以下代码粘贴到其中: Public Function CountWeekendDays(Da
我在每条记录上有两个日期(从日期到日期),希望查询周末的计数。以下VBA函数将允许您运行表单的访问查询
SELECT CountWeekendDays([from date], [to date]) AS WeekendDays FROM YourTable
只需在Access中创建一个新的模块
,并将以下代码粘贴到其中:
Public Function CountWeekendDays(Date1 As Date, Date2 As Date) As Long
Dim StartDate As Date, EndDate As Date, _
WeekendDays As Long, i As Long
If Date1 > Date2 Then
StartDate = Date2
EndDate = Date1
Else
StartDate = Date1
EndDate = Date2
End If
WeekendDays = 0
For i = 0 To DateDiff("d", StartDate, EndDate)
Select Case Weekday(DateAdd("d", i, StartDate))
Case 1, 7
WeekendDays = WeekendDays + 1
End Select
Next
CountWeekendDays = WeekendDays
End Function
你尝试了什么?我对我的问题做了更多的澄清,换句话说,什么都没有。你说的“什么都没有”是什么意思?