Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何计算天数的问题


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

主题：如何计算天数的问题
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		如何计算天数的问题  发帖心情 Post By：2015/3/15 19:27:00 [显示全部帖子]

提这个问题看来有点幼稚了。
我想要计算出一个时间段的天数。我在论坛上查了，看到了几篇这方面的内容，我也照做了。可是，我做时候，报出我做的是错误的。
我的目地：结止日期-通知日期=超期天数。我要做的就是这个式子。
我用了两种方式。
第一种：
Select Case e.DataCol.Name
    Case "通知日期","结止日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("通知日期") OrElse dr.IsNull("结止日期") Then
            dr("超期天数") = Nothing
        Else
            Dim tp As TimeSpan = dr("结止日期") - dr("通知日期") 
            dr("超期天数") = tp.TotalDays
        End If
End Select
这段代码提式我编泽错误：类型”DataColEventArgs”的值无法转换为”DataRow”。Dim dr As DataRow = e:DataRow
第二种：
Dim dr As DataRow = e.DataRow
If dc.Name = "起始日期" OrElse dc.Name = "执行天数" Then
    If dr.IsNull("起始日期") OrElse dr.IsNull("执行天数") Then
        dr("完成日期") = Nothing
    Else
        dr("完成日期") = dr("起始日期").AddDays(dr("执行天数"))
    End If
End If
这段代码提式我编泽错误：e是"private",因上它在此上下文中不可访问。错误代码：Dim dc As DataCol = e.DataCol
请问，我这是哪里错了？？？？？
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/16 9:55:00 [显示全部帖子]

我的这些贷码就是写在表属性-事件-数据“DataColChanged”里的。

 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/16 11:40:00 [显示全部帖子]

还要问一个问题。
我想用今天的日期减一个月前的日期，数出天数，这个得怎么写代码啊？
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/17 12:00:00 [显示全部帖子]

我按照你这个代码改了，可还是不行，出来的错误代码是select case e.datacol,name　这e是"private",因上它在此上下文中不可访问

我还看你的网址了，哪没有的提到与我这个问题一样的说法，所以没看懂。
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/17 12:38:00 [显示全部帖子]

我要的结果是，通过一个日期，算出滞纳金的交款额。

这里要满足三个条件。

一是算出，自“通知日期”到“终止日期”的“间隔天数”

二是算出，自“终止日期”到今天的“超期天数”

三是算出“超期天数”内的5‰“千分之五”的罚金额。

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:滞纳金.zip

，
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/18 9:57:00 [显示全部帖子]

If e.DataCol.Name ="金额" Then
    If e.DataRow.IsNull("金额")
        e.DataRow("第八列") = Nothing
    Else
        Dim cnj As Double = e.DataRow "金额" * 0.005
        e.DataRow("第八列") = cnj.Double
    End If
End If

我用你给的样，试着做的这个计算，也不知道写的对不对，想请你给指点，能给我讲一下，我这哪错了，好吗？
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/18 10:06:00 [显示全部帖子]

请问，我把你给的样里的代码复制出来，放到命令窗口中，试着执行，为什么就不行了？提式我错误。
在表的属性里写代码与在命令窗口里写代码有什么不同么？这两者的区别是什么？
还有就是代码中，“e”这个字母出现很多次，它有什么不同的意义么？
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/22 9:01:00 [显示全部帖子]


If e.DataCol.Name = "金额" Then
    If e.DataRow.IsNull("金额") Then
        e.DataRow("滞纳金") = Nothing
    Else
        Dim c As Double = e.DataRow("金额") * cDate(e.DataRow("总天数"))
        e.DataRow("滞纳金") = c
    End If
End If


谢问，我这段代码哪里写错了？？
请指教，谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/23 8:37:00 [显示全部帖子]

我做了一个快递单的打印。
有三个问题：
1、我想要用三张表上的信息，在同一张piao据上打印，这个“上一条”、“下一条”的代码得怎么写？
2、在预览时，他分页了？
3、能不能不用预览，可以直接打印？
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:三张表用同一窗口.zip
 回到顶部
帅哥哟，离线，有人找我吗？
筑梦踏实
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：47 积分：516 威望：0 精华：0 注册：2015/2/19 1:30:00 		  发帖心情 Post By：2015/3/23 9:48:00 [显示全部帖子]

If e.DataCol.Name = "入库应结止日期" Then
    If e.DataRow.IsNull("入库应结止日期") Then
        e.DataRow("已超期天数") = Nothing
    Else
        Dim ycqts As TimeSpan = Date.Today - cDate(e.DataRow("入库应结止日期"))  '计算超期天数.用当前日期,减结止日期.
        If ycqts.TotalDays > 0 Then
            e.DataRow("已超期天数") = ycqts.TotalDays
        End If
    End If
End If

为什么“已超期天数”这列不显示内容啊？
是代码的错误么？
我将“已超期天数”设为整数列。
 回到顶部
总数 22 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 7 次数据查询