0

我正在使用DateAdd函数将年份添加到我现有的日期，但我想转到该特定月份的最后一个日期。

我正在使用这段代码：

    Dim wr As Integer = Val(txtWar_per.Text)
    Dim ins_dt As Date = dtpInstall.Value
    Dim war_till As Date = DateAdd(DateInterval.Year, wr, dtpInstall.Value)
    dtpWar_till.Value = war_till

输出：

dtpinstall.value= 12/1/2012

txtWar_per.text=  2

dtpWar_till.value=12/1/2014

但我希望dtpWar_till.value 为：

31/1/2014

请尽早解决我的问题。非常非常非常紧急。

4

4 回答 4

2

将日期减去 1 得到该月的第一天，加上一年和一个月，然后在上个月的最后一天减去另一天：

Dim war_till As Date = ins_dt.AddDays(1 - ins.dt.Day).AddMonths(13).AddDays(-1)

减去天数两次确保它适用于具有不同天数的月份，例如从 2013-01-30 将您带到 2014-01-31 而不是 2014-03-01。

于 2013-03-15T11:07:06.047 回答
1

更多代码，但更直观：

Dim year As Integer = ins_dt.Year + wr
Dim month As Integer = ins_dt.Month
dtpWar_till.Value = New DateTime(year, month, DateTime.DaysInMonth(year, month))
于 2013-03-15T11:30:16.120 回答
0

尝试：

Dim war_till As Date = DateAdd(DateInterval.Day,-1,DateAdd(DateInterval.Month,2,DateAdd(DateInterval.Year, wr, dtpInstall.Value)))
于 2013-03-15T11:08:00.873 回答
0

使用闰年进行测试

    Dim tstDate1 As Date = #2/28/2011#
    Dim tstDate2 As Date = #2/29/2012#

    For numYears As Integer = 1 To 5
        'add years and set date to the first day of the month
        Dim newD As Date = New Date(tstDate1.Year + numYears, tstDate1.Month, 1)
        'then add days in month-1 to date
        newD = newD.AddDays(Date.DaysInMonth(newD.Year, newD.Month) - 1)
        'show it
        Debug.WriteLine(newD)


        newD = New Date(tstDate2.Year + numYears, tstDate2.Month, 1)
        newD = newD.AddDays(Date.DaysInMonth(newD.Year, newD.Month) - 1)
        Debug.WriteLine(newD)
    Next
于 2013-03-29T14:52:44.063 回答