主题：求教：领取时间自动加上保修期限12月份 后得到的时间和当前日期比较 如果大于当前日期 代码怎么写

公式就这样，你改改

Dim Day As Date = #8/25/2014#

Dim dt As Date = Date.Today  '当前日期   #8/29/2015#
Dim gb As Date = day.AddMonths(12)
Dim ts As TimeSpan = gb - dt
If gb < dt
    output.show("已过期:" & ts.Days & "天")
Else
    output.show("保修期内")
End If