Excel VBAをはじめから(その07/X) - 「大人の教養・知識・気付き」を伸ばすブログ

　仕事で未だに使うことのある $\mathrm{Excel\ VBA}$ を改めて体系的に学びたく

Excel VBAの教科書

作者:古川順平
SBクリエイティブ

Amazon

を読んでいく。

power-of-awareness.com

4.　「文字列」と「日付」と「時間」の扱い方

4.2　日付や時間の扱い方

　前節で言及したように、日付シリアルを扱うには#(シャープ)で挟む。 $\mathrm{VBA}$ の日付シリアル値は、 $\mathrm{1899/12/31\ 0:00:00}$ を $\mathrm{1.0}$ として以降、1日が経過するごとに $1$ を加算する。このように日付データは、内部でシリアル値という仕組みで管理されている。

4.2.1　日付に変換する関数

　文字列や年月日等を表す文字列や数値をシリアル値に変換できる関数が用意されている。

関数	説明
$\mathrm{DateValue}$	日付形式の文字列を日付シリアル値に変換する
$\mathrm{TimeValue}$	時刻形式の文字列を日付シリアル値に変換する
$\mathrm{DateSerial}$	引数に渡した「年」「月」「日」のシリアル値に変換する
$\mathrm{TimeSerial}$	引数に渡した「時」「分」「秒」のシリアル値に変換する

' DateValue(日付形式の文字列)
DateValue("2018年5月1日")

' TimeValue(時刻形式の文字列)
TimeValue("12時30分")

' DateSerial(年,月,日)
DateSerial(2018,10,5)

' TimeSerial(時,分,秒)
TimeSerial(14,25,30)

4.2.2　日付の繰り越し

　 $\mathrm{DateSerial}$ 関数および $\mathrm{TimeSerial}$ 関数において、各引数は自動的に繰り越しを行なう。

DateSerial(2018, 12 + 5, 1) ' 結果は「2019/05/01」の日付を表すシリアル値

4.2.3　日付の特定要素を取り出す関数

　シリアル値から「年」「月」「日」の部分を取り出す関数も用意されている。

関数	説明
$\mathrm{Year}$	「年」を取り出す
$\mathrm{Month}$	「月」を取り出す
$\mathrm{Day}$	「日」を取り出す
$\mathrm{Hour}$	「時」を取り出す
$\mathrm{Minute}$	「分」を取り出す
$\mathrm{Second}$	「秒」を取り出す

Year(#2018/05/10#) ' 2018を返す
Year("2018/05/10")  '文字列でも正しく2018を返す

4.2.4　曜日を取り出す関数

　 $\mathrm{Weekday}$ 関数で曜日の情報を取り出す。日曜が $1$ で以降、 $1,2,\cdots$ を月曜日、火曜日…とし、 $7$ が土曜日に相当する*1。また曜日の文字列が欲しければ $\mathrm{WeekdayName}$ 関数を用いる。

' WeekdayName(曜日を表す数値[,曜日を省略するか][,最初の曜日])
WeekdayName(5) '木曜日

4.2.5　日付を使った計算を行う計算

　 $\mathrm{DateAdd}$ 関数および $\mathrm{DateDiff}$ 関数を用いると、日付を用いた計算をできる。

関数	説明
$\mathrm{DateAdd}$	特定の日付から、指定日時経過後の日付を返す
$\mathrm{DateDiff}$	2つの日付の差分を返す

' DateAdd(要素の指定,加算値, 基準シリアル値)
DateAdd("d", 15, #2018/01/01#) ' 2018/1/1から15日後

' DateDiff(要素の指定,日付1,日付2)
DateDiff("d",#2018/01/01#,#2018/03/01#) '「59」日

$\mathrm{DateAdd}$ 関数で第1引数に用いる要素

文字列	対象
$\mathrm{yyyy}$	年
$\mathrm{m}$	月
$\mathrm{d}$	日
$\mathrm{h}$	時
$\mathrm{n}$	分
$\mathrm{s}$	秒

4.2.5　月末日を求める計算

　月末日を得るには、次月の1日から1日前に戻るのが定番である。

Dim tmpDate As Date

' 基準日の設定
tmpDate = #12/10/2018#

' 当月の月末日
Debug.Print "当月末：", DateSeria(Year(tmpDate), _
   Month(tmpDate) + 1,1) -1

' 2か月後の月末日
Debug.Print "2か月後：", DateSeria(Year(tmpDate), _
   Month(tmpDate) + 3,1) -1