在VB里有没有象SQL里面DATEPART（DATEPART，DATE）那样的函数可以调用

Question

在VB里有没有象SQL里面DATEPART（DATEPART，DATE）那样的函数可以调用,没有的话，请那位高手告诉小弟怎么做？
最好是有代码

Answer 1

有啊Year 函数
      返回 Variant (Integer)，包含表示年份的整数。语法Year(date)必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。Year 函数示例
本示例使用 Year 函数返回某个日期的年份。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。 Dim MyDate, MyYear
MyDate = #February 12, 1969#   ' 指定一日期。
MyYear = Year(MyDate)   ' MyYear 的值为 1969。Month 函数
      返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月。语法Month(date)必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
Month 函数示例
本示例使用 Month 函数来得知某个日期的月份。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。Dim MyDate, MyMonth
MyDate = #February 12, 1969#   ' 指定一日期。
MyMonth = Month(MyDate)   ' MyMonth 的值为 2。Day 函数
      返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日。语法Day(date)必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。Day 函数示例
本示例使用 Day 函数将指定的日期转换为该月的第几天。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。。Dim MyDate, MyDay
MyDate = #February 12, 1969#   ' 指定一日期。
MyDay = Day(MyDate)   ' MyDay 的值为 12。Hour 函数
      返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点。语法Hour(time)必要的 time 参数，可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。Hour 函数示例
本示例使用 Hour 函数将指定的时间转换为小时数。在开发环境中，日期和时间的原义会根据系统的地区设置，以短式日期和时间格式显示。Dim MyTime, MyHour
MyTime = #4:35:17 PM#   ' 指定一时间。
MyHour = Hour(MyTime)   ' MyHour 的值为 16。
Minute 函数
      返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟。语法Minute(time)必要的 time 参数，可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。Minute 函数示例
本示例使用 Minute 函数转换指定的时间，得到小时后面的分钟数。在开发环境中，日期和时间原义会根据系统的地区设置，以短式日期和时间格式显示。Dim MyTime, MyMinute
MyTime = #4:35:17 PM#   ' 指定一时间。
MyMinute = Minute(MyTime)   ' MyMinute 的值为 35。Second 函数
      返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒。语法Second(time)必要的 time 参数，可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。Second 函数示例
本示例使用 Second 函数转换指定的时间，得到分钟后面的秒数。在开发环境中，日期和时间原义会根据系统的地区设置，以短式日期和时间格式显示。Dim MyTime, MySecond
MyTime = #4:35:17 PM#   ' 指定一时间。
MySecond = Second(MyTime)   ' MySecond 的值为 17。