日期列自动变成每月的最后一天

比如录入：登记日期2018-03-03         变为       账务日期：2018-03-31

e.DataRow("日期") = “2018-03-03”

e.DataRow("账务日期") = “2018-03-31”

原代码：显示成本月了

If e.DataCol.Name = "日期" Then \'如果更改的是账务日期列
    If e.DataRow.IsNull("日期") Then \'账务日期是否为空
        e.DataRow("账务日期") = Nothing \'如果为空,则清除出生日期
    Else
        \'否则从账务日期列中提取出生日期
        e.DataRow("账务日期") = Format(e.DataRow("日期"), New Date(Date.today.Year, Date.Today.Month, Date.DaysInMonth(Date.today.Year, Date.Today.Month)))
        e.DataRow("年份") = Format(e.DataRow("账务日期"), "yyyy")    \'如果为空,则清除出生日期
        e.DataRow("月份") = Format(e.DataRow("账务日期"), "MM")    \'如果为空,则清除出生日期
    End If
    e.DataRow("工资月份") = e.DataRow("年份") & e.DataRow("月份")
End If

Dim d As Date = e.DataRow("日期")

d = new date(d.year, d.month, 1)

e.DataRow("账务日期") = d.AddMonths(1).AddDays(-1)