| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何计算在特定区间的日均存款 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12223) |
| -- 作者：wubingliang -- 发布时间：2011/8/26 13:00:00 -- [求助]如何计算在特定区间的日均存款 新手求教： 一个表中，有 存款金额、存款日期、到期日期三列数据，如何计算这笔存款在特定期间的日均余额 如：存款金额为100万元，存款日期为2011.2.11，到期日期为2012.2.10，若要计算该笔存款在第一季度的日均余额（即换算成2011.1.1至2011.3.31的日均余额）或在其他任意一个期间的日均余额，这个要如何实现？
正确的计算如下： 该笔存款在第一季度实存天数A＝（2011.3.31-2011.2.11+1） 该笔业务在第一季度总存款积数B＝A*100万 第一季度累计天数C＝2011.3.31-2011.1.1+1
该笔业务在第一季度的日均余额＝B/C
因为存款日期和到期日期有可能为任意时间，上述计算方式仅是其中一种（存款日期在特定期间内，到期日期在特定期间外），假设存款日期在2011.1.1以前，到期日期在2011.3.31以后，则该笔存款在第一季度的日均余额就是100万元。而如果存款日期和到期日期均在2011.3.31以后，该笔存款在第一季度的日均余额就是为0
要如何实现上述日均存款的自动计算
[此贴子已经被作者于2011-8-27 16:08:50编辑过]
|
| -- 作者：紙上不談兵 -- 发布时间：2011/8/26 13:22:00 -- 金额/时段天数
|
| -- 作者：blackzhu -- 发布时间：2011/8/26 13:23:00 -- Dim d1 As Date = #01/01/2011# Dim d2 As Date = #03/31/2011# Dim d As Integer =DateDiff("d",d1,d2) Dim s As Integer =1000000 output.Show(S/d) 这样?
|