Foxtable(狐表)用户栏目专家坐堂 → 有关日期之间的加减计算问题


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

主题:有关日期之间的加减计算问题

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


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
有关日期之间的加减计算问题  发帖心情 Post By:2009/4/8 20:06:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


想请教有关时间计算的方法

第一批到货日期=采购定单下发日期-供货周期
最后到货日期=采购定单下发日期-供应商生产天数

时间数值与单精数值能不能相互计算得到一个日期数值...




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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/4/8 20:44:00 [只看该作者]

不明白,下单日期减供货周期,岂不是没下单就得到货?

 回到顶部
美女呀,离线,留言给我吧!
长今
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:260 威望:0 精华:0 注册:2008/12/24 20:30:00
  发帖心情 Post By:2009/4/8 20:46:00 [只看该作者]

这样吧
If e.DataCol.Name = "采购下定单日期" OrElse e.DataCol.Name = "供货周期" Then
    If e.DataRow.IsNull("采购下定单日期") OrElse e.DataRow.IsNull("供货周期") Then
        e.DataRow("第一批到货日期") = Nothing
        e.DataRow("最后到货日期") = Nothing
    Else
        e.DataRow("第一批到货日期") = CDate(e.DataRow("采购下定单日期")).AddDays(-e.DataRow("供货周期"))
        e.DataRow("最后到货日期") = CDate(e.DataRow("采购下定单日期")).AddDays(-e.DataRow("需要生产天数"))
    End If
End If

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/4/8 20:47:00 [只看该作者]

不知道供货周期是不是天数?

Dim dr As DataRow = e.DataRow
if e.DataCol.Name = "供货周期"  Then
    if dr.IsNull("供货周期") = false Then
        dr("第一批到货日期") = dr("采购下定单日期").AddDays(dr("供货周期"))
    Else
        dr("第一批到货日期") = Nothing
    End If
End If


这是加的,减也随意改,代码中的周期为天数。

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


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
  发帖心情 Post By:2009/4/9 8:11:00 [只看该作者]

对不起是我写错了
应该是加


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2009/4/9 8:52:00 [只看该作者]

那就改成这样:

Dim dr As DataRow = e.DataRow
if dr.IsNull("供货周期") = false Then
    if e.DataCol.Name = "供货周期"  Then
        if dr.IsNull("供货周期") = false Then
            dr("第一批到货日期") = dr("采购下定单日期").AddDays(dr("供货周期"))
        Else
            dr("第一批到货日期") = Nothing
        End If
    End If
    if e.DataCol.Name = "需要生产天数"  Then
        if dr.IsNull("需要生产天数") = false Then
            dr("最后到货日期") = dr("采购下定单日期").AddDays(dr("需要生产天数"))
        Else
            dr("最后到货日期") =  Nothing
        End If
    End If
End If

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


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
  发帖心情 Post By:2009/4/9 9:56:00 [只看该作者]

周期是天数...
生产也是天数
周期指得是丛下定单到供应商能生产出第一批物品的天数
生产天数是根据定单数量计算出供应商整个定单完成生产需要的天数.

 回到顶部