获取错误：“无效的DateTimeKind-Value.Parametername：kind”

Question

我有以下代码：

Dim TimeVon As Date = Booking.From


Dim DateVon As Date = New Date(TimeVon.Minute, TimeVon.Hour)

在Booking.From中，DateTime保存为：2/1/2013 12:30:00

我尝试用第二行获取时间，但每次出现该错误。我做错了什么？

Answer 1

我认为New Date(TimeVon.Minute, TimeVon.Hour)不是有效的构造函数，请参阅DateTime Constructors。

Date固有地始终包含Date和Time组件。你想和时间做什么？您始终可以显示DateVon.ToShortTimeString()

之类的时间