access中datepart函数使用

 

ACCESS数据库
 
想要从表中日期字段中取出所需要的格式。
如：表中有个date字段，数据如下：
2003-12-05
2004-4-02
2004-4-20
 
 
取出的数据想成为这样：
2003-12
2004-4
以年份和月份来分组。
 
这个应该很简单，使用sql的datepart函数搞定，可恶的是，access中竟没有这个函数的详细帮助。
select datepart(year,xx) from yy 错误
select datepart('year',xx) form yy 错误
......
 
最后还是在MSDN上找到了“ Visual Basic 语言参考  

DatePart 函数”
详细表述如下：

　　

DatePart 函数
返回一个 Integer 值，其中包含给定 Date 值的指定组件。

Public Overloads Function DatePart( _
   ByVal Interval As DateInterval, _
   ByVal DateValue As DateTime, _
   Optional ByVal FirstDayOfWeekValue As FirstDayOfWeek = VbSunday, _
   Optional ByVal FirstWeekOfYearValue As FirstWeekOfYear = VbFirstJan1 _
) As Integer
－ 或 －

Public Overloads Function DatePart( _
    ByVal Interval As String, _
   ByVal DateValue As Object, _
   Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday, _
   Optional ByVal WeekOfYear As FirstWeekOfYear = FirstWeekOfYear.Jan1 _
) As Integer
参数
Interval 
必选项。DateInterval 枚举值或 String 表达式，它表示所要返回的日期/时间值部分。 
DateValue 
必选项。所要计算的 Date 值。 
FirstDayOfWeekValue 
可选项。选自 FirstDayOfWeek 枚举的值，该枚举用于指定周的第一天。若未指定，则使用 FirstDayOfWeek.Sunday。 
FirstWeekOfYearValue 
可选项。选自 FirstWeekOfYear 枚举的值，该枚举用于指定年的第一周。若未指定，则使用 FirstWeekOfYear.Jan1。 
设置
Interval 参数可以有以下设置。

枚举值 字符串 所要返回的日期/时间值部分 
DateInterval.Day  d 月中的哪一天（从 1 到 31） 
DateInterval.DayOfYear  y 年中的哪一天（从 1 到 366） 
DateInterval.Hour  h 小时 
DateInterval.Minute  n  分钟 
DateInterval.Month  m 月 
DateInterval.Quarter  q  季度 
DateInterval.Second  s 秒钟 
DateInterval.Weekday  w 星期几（从 1 到 7） 
DateInterval.WeekOfYear  ww  年中的哪一周（从 1 到 53） 
DateInterval.Year  yyyy 年 

FirstDayOfWeekValue 参数可以有以下设置。

枚举值 值 说明 
FirstDayOfWeek.System  0  系统设置中指定的周的第一天  
FirstDayOfWeek.Sunday  1  星期日（默认） 
FirstDayOfWeek.Monday  2  星期一（依照 ISO 8601 标准第 3.17 节)  
FirstDayOfWeek.Tuesday  3  星期二 
FirstDayOfWeek.Wednesday  4  星期三 
FirstDayOfWeek.Thursday  5  星期四 
FirstDayOfWeek.Friday  6  星期五 
FirstDayOfWeek.Saturday  7  星期六 

FirstWeekOfYearValue 参数可以有以下设置。

枚举值 值 说明 
FirstWeekOfYear.System  0  系统设置中指定的年的第一周 
FirstWeekOfYear.Jan1  1  1 月 1 日所在的周（默认） 
FirstWeekOfYear.FirstFourDays  2  至少有四天属于新年的周（依照 ISO 8601 标准第 3.17 节） 
FirstWeekOfYear.FirstFullWeek  3  新年的第一个全周 

异常/错误
异常类型 错误号 条件 
ArgumentException 5 Interval 无效。  
InvalidCastException 13 DateValue 不能被强制为 Date。 

备注
可以使用 DatePart 函数来计算日期/时间值并返回一个特定组件。例如，可以使用 DatePart 计算某个日期是星期几或目前为几点钟。

若为 Interval 参数选择 DateInterval.Weekday，返回的值与 FirstDayOfWeek 枚举的值一致。若选择 DateInterval.WeekOfYear，DatePart 使用 System.Globalization 命名空间的 Calendar 和 CultureInfo 类来确定当前设置。

FirstDayOfWeekValue 参数会影响使用 DateInterval.Weekday 和 DateInterval.WeekOfYear Interval 设置所进行的计算。FirstWeekOfYearValue 参数影响为 Interval 指定 DateInterval.WeekOfYear 的计算。

如果有任何参数的值无效，就会发生 ArgumentException 错误。若 DateValue 参数值无法被强制为有效的 Date 值，则会发生 InvalidCastException 错误。

因为每个 Date 值都由 DateTime 结构支持，其方法在检索日期/时间部分中提供了额外的选项。例如，将时间值设置为午夜，可以获取 Date 变量的完整日期值，如下所示：

Dim CurrDatTim As Date = Now   ' Current date and time.
Dim LastMidnight As Date = CurrDatTim.Date   ' At midnight.
示例
本示例取得一个日期，并使用 DatePart 函数显示该日期所在的季度。

Dim FirstDate, Msg As String   'Declare variables.
Dim SecondDate As Date
FirstDate = InputBox("Enter a date:")
SecondDate = CDate(FirstDate)
Msg = "Quarter: " & DatePart(DateInterval.Quarter, SecondDate)
MsgBox (Msg)
最后写为:
select (cstr(datepart('yyyy',xx'-'+cstr(datepart('m',xx))) from yy