作者hpevd (learning)
看板Visual_Basic
标题[问题] VBA的日期表达问题
时间Sat Aug 22 21:26:49 2009
※ [本文转录自 Wanted 看板]
作者: hpevd (learning) 看板: Wanted
标题: [问题] VBA的日期表达问题
时间: Sat Aug 22 21:21:48 2009
想请问一下
下面这个式子 表示的是
若到期日在一年内 则用单利折现
若在一年以上 则用复利折现
Public Sub main()
Dim cf, rate, p As Double
Dim maturity, today As Date
MsgBox (Date)
cf = Val(InputBox("请输入现金流量"))
rate = Val(InputBox("请输入利率"))
maturity = Val(InputBox("请输入到期日"))
today = Date
If (maturity < (365 + today)) Then
p = cf / (1 + rate * ((maturity - today) / 365))
Else
p = cf / (1 + rate) ^ ((maturity - today) / 365)
End If
MsgBox p
End Sub
可是折出来的都是负的?
不知道是不是日期那边的问题?
那我该怎麽修正呢?
麻烦指导一下 谢谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.112.140.232
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.112.140.232
1F：推 fumizuki:Val(日期) = 年份 CDbl(日期) = 天数 浮点数 08/22 22:37
2F：推 fumizuki:CInt(日期) = 天数 正整数 08/22 22:37
3F：→ fumizuki:补充第一句 浮点数是CDbl(日期时间) 08/22 22:38