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

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