介绍两种方法返回当前月份中的天数。 第一种方法使用一个的查询，并第二种方法使用一个用户定义函数。

Query 方法
注意 ： 此方法仅适用于 Microsoft Access 数据库 (.mdb)。
创建基于任何表以下新查询。 Microsoft Jet 数据库引擎的每个查询基于至少一个表或查询，即使要求不使用的表或查询中的一个字段。 如果没有 FROM 子句，查询将产生错误。
注意 ： 下面的示例中的下划线 (_) 用作行继续符。 重新创建此示例时，下划线删除行的末尾。

   Query: QueryTest
   -----------------------------------------------------------------
      Field: DateDiff("d",Date()-(Day(Date()- 1)), DateSerial(Year _
          (Date()),(Month(Date())+1),1))
      Total: First
      Show:  True
   
此查询将返回一个整数为在当前月份的天数。 是例如如果在当前月份是 4 月，查询将返回整数 30 个。

用户定义的函数
注意 ： 此方法适用于 Microsoft Access 数据库 (.mdb) 和 Microsoft Access 项目 (.adp)。
Microsoft 提供仅，用于说明的编程示例不附带任何明示或默示的保证。 这包括，但不限于适销性或针对特定用途的适用性的默示保证。 本文假定您熟悉所演示的编程语言和用于创建和调试过程的该工具。 Microsoft 支持工程师可以帮助解释某个特定的过程的功能，但是它们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。
创建一个模块，并声明部分中键入下面一行，如果它尚不存在：
Option Explicit
     
键入下面的过程：
Function DaysInMonth(MyDate)
   ' This function takes a date as an argument and returns
   ' the total number of days in the month.
   Dim NextMonth, EndOfMonth
   NextMonth = DateAdd("m", 1, MyDate)
   EndOfMonth = NextMonth - DatePart("d", NextMonth)
   DaysInMonth = DatePart("d",EndOfMonth)
End Function
     
要测试此函数，在立即的窗口中键入下面一行，，然后按 ENTER 键：
?DaysInMonth(Date())
      
当前月的天数返回的注意。 若要 to 特定日期的月份中的天数输入特定的日期，如下所示：
?DaysInMonth(#11/4/1999#)
      
</a0>-整数 30 个返回因为 11 月的月份中有 30 天。
若要使用查询或窗体中的此函数，使用而不是问号 (?) 函数名称之前的等号 (=)：
= DaysInMonth(<date value or variable>)