Excel

日付と時刻の取得

投稿日:2019年9月8日 更新日:

VBAで現在の日付と時刻を取得する方法をご紹介します。

日付や時刻の取得には以下の関数が使用できます。

取得するもの 関数(引数)
日付 Date
Year(Date)
Month(Date)
Day(Date)
時刻 Time
Hour(Time)
Minute(Time)
Second(Time)
日付&時刻 Now

以下のように記述していきます。

Dim d_Date
Dim d_Year
Dim d_Month Dim d_Day
Dim t_Time
Dim t_Hour
Dim t_Minute Dim t_Second
Dim dt_Now
Sub Get_date_time()

d_Date = Date
Range(
A6) = d_Date  

d_Year = Year(Date)
Range(
B6) = d_Year d_Month = Month(Date)
Range(
C6) = d_Month 

d_Day = Day(Date)
Range(
D6) = d_Day   

t_Time = Time
Range(
E6) = t_Time 

t_Hour = Hour(Time)
Range(
F6) = t_Hour 

t_Minute = Minute(Time)
Range(
G6) = t_Minute t_Second = Second(Time)
Range(
H6) = t_Second 

dt_Now = Now
Range(
I6) = dt_Now  

End Sub

実際に表示させてみたものがこちら。

-Excel

執筆者:


comment

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

関連記事

セルに値を設定する【Excel】【VBA】

今回はExcelのセルに値を設定する方法をご紹介します。 以下のようにソースコードを記述します。 Sub 値設定() Dim a1 As String a1 = “あいうえお“ …

Excelのリスト化でファイルが壊れる件

訳あってVBAでセルをリスト化する機会があり、今回はその時躓いたことを記事にしました。 [目次] 1.起こったバグ2.原因3.対処法 1.起こったバグ セルをリスト化するものとして、今回は以下のソース …

ファイルを移動させる[Name … As …]

今回はVBAでファイルを移動させる方法について記事にします。 まずはソースコードを準備します。 Sub ファイル移動() before_file_path = ThisWorkbook.Workshe …

CSVファイルを取り込んで並び替える

VBAでCSVファイルを取り込んで並び替える処理を記事にします。 CSVファイルとマクロ有効ファイルを一つずつ準備します。 in00.csvの中身は以下の内容で準備します。 [ボタンシート]にマクロを …

【SAS】SASで良く使うテクニック。その4 「参照元のトレース」~データセットの差分がある箇所を探すのに便利~【Excel】

今回はSASで良く使うテクニックということで、データセットの差分がある箇所を探すときは「参照元のトレース」が役に立つ理由を解説していきます。 (参考:【SAS】SASで良く使うテクニック。その1 Ex …