[VBScript] DatePart関数

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧

■構文
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

■説明
指定した日付から、月や分など日時の一部を返します。
第一引数：時間間隔の単位を指定します。

設定値	内容	設定値	内容
yyyy	年	w	週日
q	四半期	ww	週
m	月	h	時
y	年間通算日	n	分
d	日	s	秒

第二引数：日付を指定（この日付から第一引数で指定した時間間隔に該当する部分を返す）
第三引数：（省略可能）週の初めの日を何曜日にするか指定。省略した場合は日曜日

定数	値	内容
vbUseSystem	0	NLS APIの設定値を使います
vbSunday	1	(規定値)日曜
vbMonday	2	月曜
vbTuesday	3	火曜
vbWednesdasy	4	水曜
vbThursday	5	木曜
vbFriday	6	土曜
vbSaturday	7	日曜

第四引数：（省略可能）年の始めの週を何周目にするか指定。省略した場合1月1日を含む週

定数	値	内容
vbUseSystem	0	NLS APIの設定値を使います
vbFirstJan1	1	(規定値)1月1日を含む週を年度の第一週とします。
vbFirstFourDays	2	7日のうち少なくとも4日が新年度に含まれる週を年度の第一週としてます。
vbFirstFullWeek	3	全体が新年度に含まれる最初の週を年度の第一週とします。

■サンプルコード

Option Explicit

Dim SampleDate
SampleDate = "2011/12/4 1:23:45"

Wscript.Echo DatePart("yyyy", SampleDate) '2011
Wscript.Echo DatePart("q", SampleDate)    '4
Wscript.Echo DatePart("m", SampleDate)    '12
Wscript.Echo DatePart("y", SampleDate)    '338
Wscript.Echo DatePart("d", SampleDate)    '4
Wscript.Echo DatePart("w", SampleDate)    '1
Wscript.Echo DatePart("ww", SampleDate)   '50
Wscript.Echo DatePart("h", SampleDate)    '1
Wscript.Echo DatePart("n", SampleDate)    '23
Wscript.Echo DatePart("s", SampleDate)    '45


Wscript.Echo Year(SampleDate)   'DatePart("yyyy",SampleDate)と一緒
Wscript.Echo Month(SampleDate)  'DatePart("m",SampleDate)と一緒
Wscript.Echo Day(SampleDate)    'DatePart("d",SampleDate)と一緒

Wscript.Echo Hour(SampleDate)   'DatePart("h", SampleDate)と一緒
Wscript.Echo Minute(SampleDate) 'DatePart("n", SampleDate)と一緒
Wscript.Echo Second(SampleDate) 'DatePart("s", SampleDate)と一緒

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧