Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 计算日期内有多少个周末?_Ms Access_Ms Access 2007_Vba_Ms Access 2010 - Fatal编程技术网

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

你尝试了什么?我对我的问题做了更多的澄清,换句话说,什么都没有。你说的“什么都没有”是什么意思?