DatePart 関数

DatePart(syrInterval, varDate [, firstdayofweek, firstweekofyear])

指定された日付の一部分を返します。

引数

syrInterval

時間間隔の単位を表す文字列式を指定します。

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

varDate

評価する日付式を指定します。

firstdayofweek

省略可能です。
週の始まりの曜日を表す定数を指定します。省略すると、日曜日が指定されます。

定数	値	内容
vbUseSystemDayOfWeek	0	各国語対応 (NLS) API の設定値を使用します。
vbSunday	1	日曜
vbMonday	2	月曜
vbTuesday	3	火曜
vbWednesday	4	水曜
vbThursday	5	木曜
vbFriday	6	金曜
vbSaturday	7	土曜

firstweekofyear

省略可能です。
年度の第 1 週を表す定数を指定します。省略すると、1 月 1 日を含む週が第 1 週と指定されます。

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

使用例

次のコードは、DatePart 関数を使って日付を取得し、その四半期を表示します。

Function GetQuarter(TheDate)
   GetQuarter = DatePart("q", TheDate)
End Function

解説

DatePart 関数を使うと、日付を評価し、特定の時間間隔部分を取得できます。たとえば、週日や現在の時刻などを計算できます。
引数 firstdayofweek は、引数 interval に週 ("w" および "ww") を指定した場合の計算値に影響します。
引数 date に日付リテラルを指定した場合、指定した年が日付の固定部分となります。ただし、引数 date をダブルクォーテーション (") で囲み、年を省略すると、引数 date の式が評価されるたびにコードに現在の年が挿入されます。これを利用すると、異なる年度で使用できるコードを記述することが可能になります。

関連

DateAdd 関数 | DateDiff 関数

この記事を読んで当サイトが面白いと思ったら、ぜひRSSリーダーやはてブなどに登録していただいて、また遊びにきてくださいね！ツイッターでも、更新履歴を流してます。

最速攻略VBScriptサンプル大全集

好評の「最速攻略 VBScript サンプル大全集」の改訂版です。これまでのWindows2000／XPに加え、Windows Vista、最新のWindows 7環境にも対応しています。Windows上での処理の自動化や一括処理（バッチ処理）をテーマとしたVBScriptのサンプルスクリプト集です。付属 CD-ROMには、すぐに使うことができる100以上のサンプルスクリプトを用意しています。

VBScriptポケットリファレンス改訂版

ＷｅｂでもＷｉｎｄｏｗｓでも使えるＶＢＳｃｒｉｐｔだから手元においてさっと引けるこの一冊！ＶＢＳｃｒｉｐｔ５．６に対応！待望の改訂版！目的別リファレンスでやりたいことから調べられます。すべての項目にサンプルコード掲載！ＷＳＨ、ＡＳＰ、ＩＥすべての環境でお役に立ちます。

Excel VBAポケットリファレンス改訂第3版

好評のExcel VBAポケットリファレンスが改訂第3版としてリニューアルしました。知りたいコマンドがすぐ調べられる機能引きリファレンスはそのままに、最新の Excel 2010に完全対応。もちろん、これまでのExcel 97、2000、2002、2003、2007のすべてのバージョンに対応しています。「こんなときどうするの？」「どう書けばいいの？」という疑問がすぐ解決する、全てのExcel VBAユーザー必携の、最強のリファレンスブックです！

Access VBA逆引きハンドブック

本書はAccess VBAの各機能を、豊富なプログラミング例を使って、初心者にもわかりやすく、かつ網羅的に解説しています。また、やりたいことを目的別に簡単に探せる「逆引き」の構成になっています。

スポンサードリンク