Date型は日時型である。
この値を日付型と時刻型に分けたいという場合について。
Date型は、整数部が日付型、小数部が時刻型なので、それぞれに分ければよい。
ただ、一番確実な方法は、DateValue()やTimeValue()を使う方法であろう。
┌──────────────────────────────────────┐
│日付 = DateValue(日時)                                                      │
├──────────────────────────────────────┤
│時刻 = TimeValue(日時)                                                      │
└──────────────────────────────────────┘
これらは、主に文字列を日時に変換する関数だが、日時をインプットにしても動くのだ。

他には、一旦各要素に変換して、そこから生成し直すというやり方もある。
┌──────────────────────────────────────┐
│日付 = DateSerial(Year(日時), Month(日時), Day(日時))                       │
├──────────────────────────────────────┤
│時刻 = TimeSerial(Hour(日時), Minute(日時), Second(日時))                   │
└──────────────────────────────────────┘