Excel(エクセル) VBA関数：日付の関数

• このページではExcel VBAの時刻・時間に関する関数をまとめて説明しています。
• 時刻の間隔などの計算はDateAdd関数やDateDiff関数が使えます。これらの関数については日付の関数をご覧ください。

Time関数　　　Topへ

• パソコン(システム)の時刻が返されます。
• 使用例
  • Sub test1()
    　　Range("A1").Value = Time
    End Sub
  • A1セルにはPCの時刻が「10:20:40」(10時20分40秒)のように返ります。

Now関数　　　Topへ

• パソコン(システム)の日付と時刻が返されます。
• 使用例
  • Sub test2()
    　　Range("A1").Value = Now
    End Sub
  • A1セルにはPCの日付と時刻が「2008/11/2 14:44:40」(2008年11月2日　10時20分40秒)のように返ります。

Hour関数　　　Topへ

• パソコン(システム)の時刻の時数が返されます。
• 使用例1
  • Sub test3-1()
    　　Range("A1").Value = Hour(Time)
    End Sub
  • A1セルにはPCの時刻が10時20分40秒のとき、時数の「10」が返ります。
• 使用例2
  • Sub test3-2()
    　　Range("A2").Value = Hour("14時30分")
    End Sub
  • A2セルには時数の「14」が返ります。

Minute関数　　　Topへ

• パソコン(システム)の時刻の分数が返されます。
• 使用例1
  • Sub test4-1()
    　　Range("A1").Value = Minute(Now)
    End Sub
  • A1セルにはPCの時刻が10時20分40秒のとき、分数の「20」が返ります。
  使用例2
  • Sub test4-2()
    　　 Range("A2").Value = Minute("14時30分")
    End Sub
  • A2セルには分数の「30」が返ります。

Second関数　　　Topへ

• パソコン(システム)の時刻の秒数が返されます。
• 使用例1
  • Sub test5-1()
    　　Range("A1").Value = Second(Now)
    End Sub
  • A1セルにはPCの時刻が10時20分40秒のとき、秒数の「40」が返ります。
  使用例2
  • Sub test5-2()
    　　Range("A2").Value = Second("14時30分15秒")
    End Sub
  • A2セルには秒数の「15」が返ります。

TimeValue関数　　　Topへ

• 時刻を表す値を返します
• 構文：TimeValue(time)
  • time：0:00:00 (12:00:00 AM)〜23:59:59(11:59:59 PM)の範囲の時刻を表す文字列式を指定します。
• 使用例
  • Sub test6()
    　　Range("B1").Value = TimeValue("10：20：40")
    　　Range("B2").Value = TimeValue("10：20：40 PM")
    　　 Range("B1:B2").NumberFormatLocal = "h:mm:ss"
    End Sub
  • B1セルには時刻「10：20：40」を返します。セルの値はシリアル値です。
    B2セルには時刻「22：20：40」を返します。セルの値はシリアル値です。

TimeSerial関数　　　Topへ

• 引数に指定した時、分、秒に対応する値を返します。
• 構文：TimeSerial(hour, minute, second)
  • hour：必ず指定します。時を表す 0 (12:00 AM) 〜 23 (11:00 PM) の範囲の数値または数式を指定します。
  • minute：必ず指定します。分を表す 0 〜 59 の範囲の数値または任意の数式を指定します。
  • second：必ず指定します。秒を表す 0 〜 59 の範囲の数値または任意の数式を指定します。
• 使用例
  • Sub test7()
    　　Range("C1").Value = TimeSerial(10, 20, 40)
    End Sub
  • C1セルには時刻「10：20：40」のシリアル値が返されます。

PageViewCounter
　
　Since2006/2/27