主题：输入日期字段时怎么默认为当前日期的时段？

设一个字段为日期类型，设为时段输入时，比如输入18：30，后台数据是默认1900-01-01 18：30 000,能否默认当前日期：2017-08-21 18：30 000？

DataColChanging事件

 

If e.DataCol.Name = "时间" Then
    If e.NewValue <> Nothing Then
        e.NewValue = Date.Today.AddHours(e.newvalue.hour).AddMinutes(e.newvalue.minute)
    End If
End If

谢谢