Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于成本分摊问题咨询


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

主题：关于成本分摊问题咨询
帅哥哟，离线，有人找我吗？
fishwoodl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：26 积分：420 威望：0 精华：0 注册：2018/6/19 22:54:00 		关于成本分摊问题咨询  发帖心情 Post By：2019/4/8 19:01:00 [只看该作者]

 资产、房租都会折旧费用分摊到每月每天，请问狐爸有这样的案例吗？
比如房租：开始时间2019-1-1，结算时间2019-3-1，共计58天，共计30万，后面就会自动拆分到每天数据，这样我好知道当月应该分摊哪些项目，哪些成本，不知道表单是否准确，我也上传不了附件和图片。


项目 开始日期 结算日期 天数 金额 2019
1
1 2 3 …… 31
房屋相关 　 　 　 　 　 　 　 　 　
房屋租赁费 　 　 　 　 　 　 　 　 　
      A场地 2019/1/1 2019/2/28 58 3090788 53289.45 53289.45 53289.45 53289.45 53289.45
B场地 2019/1/3 2019/2/3 31 2000000 　 　 64516.13 64516.13 64516.13

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106761 积分：543006 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/8 20:13:00 [只看该作者]

上传附件和图片方法：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

比如：

Select Case e.DataCol.name
    Case "天数","金额"
        Dim m As Double = 0
        If e.DataRow.isnull("天数") = False AndAlso  e.DataRow.isnull("金额") = False  AndAlso e.DataRow("天数") <> 0
            m = e.DataRow.isnull("金额") / e.DataRow.isnull("天数")
        End If
        Dim d1 As Date = e.DataRow("开始日期")
        Dim d2 As Date = e.DataRow("结算日期")
        Do While d1 <= d2
            Dim c As String = Format(d1,"yyyy_MM_dd")
            If e.datacols.contains(c)
                e.DataRow(c) = m
            End If
            d1 = d1.AddDays(1)
        Loop
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询