怎样把一个日期型变量加上固定的时间？

[22wolf]

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

[lizhizhe2000]

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

[水如烟]

不明白你的意思:

Dim d As Date = Now
Dim c As Date = d.Date
Console.WriteLine(d.ToString)
Console.WriteLine(c.ToString)

[LAOC]

dt1 = date1.ToShortDateString.Replace("/", "-") & " 00:00:00"
dt2 = date2.ToShortDateString.Replace("/", "-") & " 23:59:59"

[xray2005]

学习iin...

[22wolf]

可能我没说清楚吧。
现在有两个日期型变量：date1，date2，只有日期没有时间
现在我想给这两个变量加上一个固定的时间值，改成date1=date1 00:00:00 date2=date2 23:59:59
怎么做呢？

[viena]

date1 = new date(date1.Year,date1.Month,date1.Day)
date2 = new date(date1.Year,date1.Month,date1.Day,23,59,59)

[viena]

date1 = new date(date1.Year,date1.Month,date1.Day)
date2 = new date(date2.Year,date2.Month,date2.Day,23,59,59)

[viena]

只有日期没有时间的话，本身就是00:00:00，date1直接用就可以了

[viena]

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

[viena]

不好意思，我的代码是示意代码，可能不规范,VB.NET不熟悉~

[水如烟]

使用:
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

[22wolf]

谢谢各位了，结贴！