Visual Basic中的DatePart函数。改函数的作用是：返回一个包含已知日期的指定时间部分的 Variant (Integer)。
　　语法
　　DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
　　DatePart 函数语法中有下列命名参数：
　　部分描述
　　interval必要。字符串表达式，是要返回的时间间隔。
　　date必要。要计算的 Variant (Date) 值。
　　Firstdayofweek可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
　　firstweekofyear可选。指定一年第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。
　　设置
　　interval 参数的设定值如下：
　　设置描述
　　yyyy年
　　q季
　　m月
　　y一年的日数
　　d日
　　w一周的日数
　　ww周
　　h时
　　n分钟
　　s秒
　　firstdayofweek 参数的设定值如下：
　　常数值描述
　　vbUseSystem0使用 NLS API 设置。
　　vbSunday1星期日(缺省值)
　　vbMonday2星期一
　　vbTuesday3星期二
　　vbWednesday4星期三
　　vbThursday5星期四
　　vbFriday6星期五
　　vbSaturday7星期六
　　firstweekofyear 参数的设定值如下：
　　常数值描述
　　vbUseSystem0使用 NLS API 设置。
　　vbFirstJan11从包含 1 月 1 日的星期开始(缺省值)。
　　vbFirstFourDays2从第一个其大半个星期在新的一年的一周开始。
　　vbFirstFullWeek3从第一个无跨年度的星期开始。
　　说明
　　DatePart 函数可以用来计算日期并返回指定的时间间隔。例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。
　　firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。
　　如果 date 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date 用双引号 (" ") 括起来，且年份略而不提，则在每次计算 date 表达式时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。