
日付や時刻の指定した部分を取得するには、DatePart関数を使います。
例
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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 |
実行結果

第1引数(時間間隔)の設定値
設定 | 説明 |
---|---|
yyyy | 年 |
q | 四半期 |
m | 月 |
y | 通日 |
d | 日 |
w | 曜日 |
ww | 週 |
h | 時間 |
n | 分 |
s | 秒 |
<参考サイト>
DatePart 関数 | Office VBA 言語リファレンス
スポンサーリンク