主题：突发异常

今天公司里所有电脑打开系统某个窗口时都弹出下面提示,导致这个窗口不能正常运行.其他窗口有些也涉及日期格式但正常.

Year, Month, and Day parameters describe an un-representable DateTime.

有遇到过相同问题的吗?怎么破?

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim d As Integer = Date.Today.Day
Dim mt1,mt2 As Date

If m > 2 Then
    mt1 = New Date(y, m - 2, d)
    mt2 = New Date(y, m, d)
Else
    mt1 = New Date(y - 1, 10 + m, d)
    mt2 = New Date(y, m, d)
End If

貌似是上面那段代码出问题,我直接改成

mt1 = New Date(2018, 1, 1)
mt2 = New Date(2018, 1, 31)

测试就能通过.但是之前用那段代码一直正常的呀.

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim d As Integer = Date.Today.Day
Dim mt1,mt2 As Date
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable

'If m > 2 Then
 '   mt1 = New Date(y, m - 2, d)
  '  mt2 = New Date(y, m, d) '获取本月的最后一天
'Else
 '   mt1 = New Date(y - 1, 10 + m, d)
  '  mt2 = New Date(y, m, d) '获取本月的最后一天
'End If
 mt1 = New Date(2018, 1, 1)
    mt2 = New Date(2018, 1, 31) '获取本月的最后一天
cmd.CommandText = "SELECT DISTINCT 客户名称,收货仓,司机,装卸,车号 Fro m {销售明细} WHERE 日期 >= #" & mt1 & "# And 日期 <= #" & mt2 & "#"
dt = cmd.ExecuteReader()

完整的代码

标注没有删除,实际是取当天之前三个月时间段.

三个月即90天前是这样用吧?

Date.Today.AddDays(-90))