怎样把一个日期型变量加上固定的时间？该如何解决

怎样把一个日期型变量加上固定的时间？
例如，我要把2007-1-16转换成2007-1-16   00:00:00.000，日期可以变，时间不变，能做到吗？
或者把带时间的日期变量格式化也行。

------解决方案--------------------
DataTime类有以下的方法：
Add 将指定的 TimeSpan 的值加到此实例的值上。
AddDays 将指定的天数加到此实例的值上。
AddHours 将指定的小时数加到此实例的值上。
AddMilliseconds 将指定的毫秒数加到此实例的值上。
AddMinutes 将指定的分钟数加到此实例的值上。
AddMonths 将指定的月份数加到此实例的值上。
AddSeconds 将指定的秒数加到此实例的值上。
AddTicks 将指定的刻度数加到此实例的值上。
AddYears 将指定的年份数加到此实例的值上。

------解决方案--------------------
如果固定要23:59:59，还有个办法
date2 = new date(date2.Year,date2.Month,date2.Day).AddDays(1).AddSeconds(-1)

------解决方案--------------------
使用:
Dim t As New TimeInterval(Now, Now)
Console.WriteLine(t.ToString)
结果:
Form 2007-1-17 0:00:00 To 2007-1-17 23:59:59

Public Class TimeInterval
Private gFirst As Date
Private gLast As Date

Public Property Fist() As Date
Get
Return gFirst.Date
End Get
Set(ByVal value As Date)
gFirst = value
End Set
End Property

Public Property Last() As Date
Get
Return gLast.Date.AddDays(1).AddSeconds(-1)
End Get
Set(ByVal value As Date)
gLast = value
End Set
End Property

Sub New()
End Sub

Sub New(ByVal first As Date, ByVal last As Date)
gFirst = first
gLast = last
End Sub

Public Overrides Function ToString() As String
Return String.Format( "Form {0} To {1} ", Me.Fist.ToString, Me.Last.ToString)
End Function

End Class
------解决方案--------------------
dt1 = date1.ToShortDateString.Replace( "/ ", "- ") & " 00:00:00 "
dt2 = date2.ToShortDateString.Replace( "/ ", "- ") & " 23:59:59 "