[VBA][Excel]日付や時刻の分解と生成

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記を実行すると

Private Sub CommandButton1_Click()
'指定した引数を年・月・日・時・分・秒に分解し、それぞれのバリアント型(内部処理形式 Integer)を求めるサンプルです

Sheet1.Range("A1").Value = Year(Now)
Sheet1.Range("A2").Value = Month(Now)
Sheet1.Range("A3").Value = Day(Now)
Sheet1.Range("A4").Value = Hour(Now)
Sheet1.Range("A5").Value = Minute(Now)
Sheet1.Range("A6").Value = Second(Now)
Sheet1.Range("A7").Value = Year("2016/4/6 12:34:56")
Sheet1.Range("A8").Value = Minute("2016/4/6 12:34:56")


'指定した数値から日付や時刻のバリアント型(内部処理形式 Date)を求めるサンプルです
'通常、値のセットと同時にセルの書式が変更されます

Sheet1.Range("A9").Value = DateSerial(2016, 4, 7)
Sheet1.Range("A10").Value = TimeSerial(10, 23, 45)


End Sub

このようになります。

vba-excel-dateserial-timeserial