主题：[求助]到期提醒计算出错

在项目启动做了到期提醒，但发现提未出错了，有个营业执照是2022-11-14到期，但今天登陆竞然提示还有8天到期"（2022-11-14）-（2015-11-6)"，年份难道没有进行计算？

 For Each dr As DataRow In DataTables("企业资料").DataRows
    Dim dt As Date = dr("证件期限_营业执照")
    dt =  New Date(Date.Today.Year,dt.Month,dt.Day)
    If Date.Today.AddDays(0) < = dt And dt < = Date.Today.AddDays(30) Then
         cnt = cnt + 1
        Dim sp As TimeSpan = dt - Date.Today
        nms =  nms & "     " & cnt &"." & dr("中文简称") & ":  营业执照还有" & sp.TotalDays & "天到期" & vbcrlf
    End If
Next

在项目启动做了到期提醒，但发现提示出错了，有个营业执照是2022-11-14到期，但今天登陆竞然提示还有8天到期"（2022-11-14）-（2015-11-6)"，年份难道没有进行计算？

Dim ids As String
Dim cnt As Integer
Dim nms As String
For Each dr As DataRow In DataTables("企业资料").DataRows
    Dim dt As Date = dr("证件期限_营业执照")
    dt =  New Date(Date.Today.Year,dt.Month,dt.Day)
    If Date.Today.AddDays(0) < = dt And dt < = Date.Today.AddDays(30) Then
        ' If dr1("证件期限_停止提示2") = False Then
        cnt = cnt + 1
        Dim sp As TimeSpan = dt - Date.Today
        nms =  nms & "     " & cnt &"." & dr("中文简称") & ":  营业执照还有" & sp.TotalDays & "天到期" & vbcrlf
        '  End If
    End If
Next

求助，高手帮看下

Dim ids As String
Dim cnt As Integer
Dim nms As String
For Each dr As DataRow In DataTables("企业资料").DataRows
    Dim dt As Date = dr("证件期限_营业执照")
    Dim dtend =  New Date(Date.Today.Year,Date.Today.AddMonths(1).Month,1).AddDays(-1)

    If Date.Today <= dt AndAlso dt <= dtend  Then
        ' If dr1("证件期限_停止提示2") = False Then
        cnt = cnt + 1
        Dim sp As TimeSpan = dt - Date.Today
        nms =  nms & "     " & cnt &"." & dr("中文简称") & ":  营业执照还有" & sp.TotalDays & "天到期" & vbcrlf
        '  End If
    End If
Next