※全ての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
このようになります。