2017年7月20日

【Excel】日付や時刻の指定した部分を取得するマクロ

2017年7月20日 (木) 21:45 in ,


日付や時刻の指定した部分を取得するには、DatePart関数を使います。

例

Sub GetDatePart()

    MsgBox "現在日時：" & Now & vbCrLf & vbCrLf & _
           "　　　年：" & DatePart("yyyy", Now) & vbCrLf & _
           "　　　月：" & DatePart("m", Now) & vbCrLf & _
           "　　　日：" & DatePart("d", Now) & vbCrLf & _
           "　　　時：" & DatePart("h", Now) & vbCrLf & _
           "　　　分：" & DatePart("n", Now) & vbCrLf & _
           "　　　秒：" & DatePart("s", Now) & vbCrLf & _
           "　　曜日：" & DatePart("w", Now) & vbCrLf & _
           "　　　週：" & DatePart("ww", Now) & vbCrLf & _
           "　四半期：" & DatePart("q", Now) & vbCrLf & _
           "　通算日：" & DatePart("y", Now)

End Sub
第１引数で取り出したい時間の間隔を指定します。この設定値については下記の表を参照してください。

実行結果



第１引数（時間間隔）の設定値
設定 説明
yyyy 年
q 四半期
m 月
y 通日
d 日
w 曜日
ww 週
h 時間
n 分
s 秒



＜参考サイト＞
DatePart 関数 | Office VBA 言語リファレンス

スポンサーリンク