以文本方式查看主题

-  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)

 这样?