[VBA][Excel]DateValue と TimeValue – サキガケの雑記帳

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

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

下記を実行すると

Private Sub CommandButton1_Click()

'文字列をバリアント型(内部処理形式　Date)で返します
Sheet1.Range("A1").Value = DateValue("2016/4/6")

'引数を日付型(Date)で返します
Sheet1.Range("A2").Value = CDate("2016/4/6")


'文字列をバリアント型(内部処理形式　Date)で返します
Sheet1.Range("A4").Value = TimeValue("9:11:12")
Sheet1.Range("A5").Value = TimeValue("9:11:12 PM")


'時刻が含まれていても日付のみをバリアント型で返します
Sheet1.Range("A7").Value = DateValue("2016/4/7 10:34:56 AM")

'日付が含まれていても時刻のみをバリアント型で返します
Sheet1.Range("A8").Value = TimeValue("2016/4/7 10:34:56 AM")

End Sub

このようになります。

vba-excel-datevalue-timevalue