求教：领取时间自动加上保修期限12月份后得到的时间和当前日期比较如果大于当前日期代码怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教：领取时间自动加上保修期限12月份后得到的时间和当前日期比较如果大于当前日期代码怎么写

共有4135人关注过本帖树形打印复制链接主题：求教：领取时间自动加上保修期限12月份后得到的时间和当前日期比较如果大于当前日期代码怎么写

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

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

Post By：2014/8/25 22:55:00 [只看该作者]

求解：

在一表中有如下三个字段

领取时间保修期限保修状态失效天数

领取时间 2014-08-25 12:52:12

保修期限 12

保修状态保修期内

过保时间

失效天数

想实现领取时间自动加上保修期限12月份后得到的时间和当前日期比较如果大于当前日期保修状态为 “保修期内” 反之为“保修失效” 并计算出“失效天数”

求教部份为：领取时间自动加上保修期限12月份后得到的时间和当前日期比较如果大于当前日期反之要计算出”失效天数“

Select Case e.DataCol.Name

Case "领取时间","保修期限"

e.DataRow("过保时间")=e.DataRow("领取时间").AddDays(e.DataRow("保修期限"))

end select

if e.DataRow("过保时间")<date.now then

e.DataRow("失效天数")=date.now - e.DataRow("过保时间")

end if

我怎么也计算不出结果求解！

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/25 23:00:00 [只看该作者]

[此贴子已经被作者于2014-8-25 23:00:29编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/25 23:02:00 [只看该作者]

lect Case e.DataCol.Name
Case "领取时间","保修期限"
    e.DataRow("过保时间") = e.DataRow("领取时间").AddMonths(e.DataRow("保修期限"))
    If e.DataRow("过保时间") < Date.now Then
        e.DataRow("失效天数")= (Date.now - e.DataRow("过保时间")).TotalDays
        e.DataRow("保修状态")= "保修失效"
    Else
        e.DataRow("失效天数")= Nothing
        e.DataRow("保修状态")= "保修期内"
    End If
End Select

hws005

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：272 积分：2189 威望：0 精华：0 注册：2013/9/26 1:49:00

Post By：2014/8/25 23:19:00 [只看该作者]

公式就这样，你改改

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

[此贴子已经被作者于2014-8-25 23:19:11编辑过]