Foxtable(狐表)用户栏目专家坐堂 → 请教:关于两个日期间的计算问题


  共有3341人关注过本帖树形打印复制链接

主题:请教:关于两个日期间的计算问题

帅哥哟,离线,有人找我吗?
peterx
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1523 威望:0 精华:0 注册:2014/7/9 16:27:00
请教:关于两个日期间的计算问题  发帖心情 Post By:2015/1/8 17:01:00 [只看该作者]

老师:想计算今天与接手日期之间的天数,如何表达?

Select Case e.DataCol.Name
    Case "免税办理_接手日期","免税办理_完成日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("免税办理_接手日期") OrElse dr.IsNull("免税办理_完成日期") Then
            dr("免税办理_已过天数") = Nothing
            If dr.IsNull("免税办理_接手日期")=False And  dr.IsNull("免税办理_完成日期") Then

                Dim tp As TimeSpan = Date.today - dr("免税办理_接手日期")


                dr("免税办理_已过天数") = tp.TotalDays
            End If
        Else
            Dim tp As TimeSpan = dr("免税办理_完成日期") - dr("免税办理_接手日期")
            dr("免税办理_已过天数") = tp.TotalDays
        End If
End Select
[此贴子已经被作者于2015-1-8 17:01:50编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/8 17:03:00 [只看该作者]

代码是这么写啊

 回到顶部
帅哥哟,离线,有人找我吗?
peterx
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1523 威望:0 精华:0 注册:2014/7/9 16:27:00
  发帖心情 Post By:2015/1/8 17:07:00 [只看该作者]

这样,通不过。

修改为下句后,提示:列“2015/1/8”不属于表 采购过程监控系统。

                Dim tp As TimeSpan = dr(Date.today) - dr("免税办理_接手日期")

[此贴子已经被作者于2015-1-8 17:20:02编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/8 17:08:00 [只看该作者]

你1楼发的代码和你3楼的代码,一样么?

Dim tp As TimeSpan = Date.today - dr("免税办理_接手日期")

 回到顶部
帅哥哟,离线,有人找我吗?
peterx
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1523 威望:0 精华:0 注册:2014/7/9 16:27:00
  发帖心情 Post By:2015/1/8 17:09:00 [只看该作者]

不一样:

Dim tp As TimeSpan = dr(Date.today) - dr("免税办理_接手日期")

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/8 17:10:00 [只看该作者]

那就是咯.去掉才是正确的

 回到顶部
帅哥哟,离线,有人找我吗?
peterx
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1523 威望:0 精华:0 注册:2014/7/9 16:27:00
  发帖心情 Post By:2015/1/8 17:20:00 [只看该作者]

去掉   编译就通不过!!

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/8 17:21:00 [只看该作者]

怎么可能呢,提示什么?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 17:22:00 [只看该作者]

Dim tp As TimeSpan = Date.today - Cdate(dr("免税办理_接手日期"))

 回到顶部
帅哥哟,离线,有人找我吗?
peterx
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1523 威望:0 精华:0 注册:2014/7/9 16:27:00
  发帖心情 Post By:2015/1/8 17:25:00 [只看该作者]

有点甜    老师   是真的很  甜   呀!谢谢
[此贴子已经被作者于2015-1-8 17:27:36编辑过]

 回到顶部