エクセルVBAの日付と時刻
| 時間、分、秒 | のTimeValue
エクセルVBAで日付と時刻を操作する方法を学びます。
リンク置きコマンドボタンワークシート上に、以下のコード行を追加します。コード行を実行するには、シート上のコマンドボタンをクリックしてください。
日付の年、月、日
次のマクロは、日付の年を取得します。日付を宣言するには、薄暗いステートメントを使用します。日付を初期化するには、DATEVALUE関数を使用します。
コード：
Dim exampleDate As Date
exampleDate = DateValue("Jan 19, 2020")
MsgBox Year(exampleDate)
結果：
注：使用月と日の日付の月と日を取得します。
DateAdd関数
日付に日数を追加するには、DateAdd関数を使用します。 DateAdd関数は3つの引数を持っています。日を追加する最初の引数に「D」を入力してください。 2番目の引数は3日間追加するために3を入力してください。 3番目の引数は日数が追加される日付を表します。
コード：
Dim firstDate As Date, secondDate As Date
firstDate = DateValue("Jan 19, 2020")
secondDate = DateAdd("d", 3, firstDate)
MsgBox secondDate
結果：
注：現在までの月数を追加するための「M」に変更し、「D」。 Visual BasicエディターでDateAdd関数にカーソルを置き、他の間隔指定子についてのヘルプはF1をクリックします。日付は米国のフォーマットです。数ヶ月、第一、第二日。フォーマットのこのタイプは、あなたの窓地域の設定に依存します。
現在の日付と時刻を
現在の日付と時刻を取得するには、Now関数を使用します。
コード：
MsgBox Now
結果：
時、分、秒
、時間の時間を取得する時間関数を使用します。
コード：
MsgBox Hour(Now)
結果：
注：使用する分、秒の時間の分と秒を取得します。
のTimeValue
TimeValue関数は時間のシリアル番号に文字列を変換します。時間のシリアル番号は、例えば、0と1の間の数であり、正午（日途中）は0.5として表されます。
コード：
MsgBox TimeValue("9:20:01 am")
結果：
0と1の間の数字は、次のコード行を追加すると、今、明確にExcelが内部で時間を扱うことを確認します
Dim y As Double
y = TimeValue("09:20:01")
MsgBox y
結果：
