DatePart
从日期获取间隔
Declare Function DatePart ( ByRef interval As Const String, ByVal date_serial As Double, ByVal firstdayofweek As Integer = fbUseSystem, ByVal firstdayofyear As Integer = fbUseSystem ) As Integer
#include "vbcompat.bi"
result = DatePart( interval , date_serial , first_dayofWeek [, first_week_of_year ] )
interval
interval 指定日期的哪一部分的字符串指定如下：
first_dayofweek 当需要'w'间隔时会影响输出。
first_weekofyear 指定哪一年（上一个或下一个）跨越一年结束的一周和下一个的开始应该包括在内。当需要'ww'间隔时会影响输出。
除非包含vbcompat.bi或datetime.bi，编译器将无法识别此函数。
语法
Declare Function DatePart ( ByRef interval As Const String, ByVal date_serial As Double, ByVal firstdayofweek As Integer = fbUseSystem, ByVal firstdayofyear As Integer = fbUseSystem ) As Integer
用法
#include "vbcompat.bi"
result = DatePart( interval , date_serial , first_dayofWeek [, first_week_of_year ] )
参数
interval
字符串，指示需要哪一部分日期
date_serial 日期串行解码
firstdayofweek 一周的第一天
firstdayofyear 一年的第一天
返回值
说明
interval 指定日期的哪一部分的字符串指定如下：
| 值 | 间隔 |
| YYYY | 年份 |
| q | 季度（三个月） |
| m | 个月 |
| w | 平日 |
| ww | 一年的一周 |
| y | 一年中的一天 |
| d | 一个月的日子 |
| h | 小时 |
| n | 分钟 |
| s | 秒 |
| 值 | 一周的第一天 | 不变 |
| 省略 | 星期日 | |
| 0 | 本地设置 | fbUseSystem |
| 1 | 星期日 | fbSunday |
| 2 | 星期一 | fbMonday |
| 3 | 星期二 | fbTuesday |
| 4 | 星期三 | fbWednesday |
| 5 | 星期四 | fbThursday |
| 6 | 星期五 | fbFriday |
| 7 | 星期六 | fbSaturday |
| 值 | 一年的第一周 | 不变 |
| 0 | 本地设置 | fbUseSystem |
| 1 | 1月1日的一周 | fbFirstJan1 |
| 2 | 第一周有四天在一年 | fbFirstFourDays |
| 3 | 一年的第一个整周 | fbFirstFullWeek |
例子
#include "vbcompat.bi"
Dim d As Double
d = Now()
Print "今天是天" & DatePart( "y", d );
Print "在一周" & DatePart( "ww", d );
Print "的一年" & DatePart( "YYYY", d )
Dim d As Double
d = Now()
Print "今天是天" & DatePart( "y", d );
Print "在一周" & DatePart( "ww", d );
Print "的一年" & DatePart( "YYYY", d )
与QB差别
- 在QB中不存在此函数出现在Visual Basic中。
参考