| 项目搜索 |
| |
|
代码片段库:
查看代码片段
浏览
| 提交新的代码片段
| 创建代码包
Loan Calculator
|
类型:
Sample Code (HOWTO) |
类别:
Math Functions
|
许可证:
GNU General Public License |
语言:
Visual Basic
|
描述:
Copy the declarations and code below and paste directly into your VB project.
|
该代码片段的版本系列:
片段ID |
下载版本 |
提交时间 |
提交人 |
删除 |
4832 | 1.0 | 2003-11-24 23:15 | cbd001 | |
点击"下载版本"来下载该代码片段.
最新版本的代码片段: 1.0
Private Sub Label2_Click()
End Sub
Private Sub cmdCalculate_Click()
Dim crPrincipal As Currency, sgInterest As Single
Dim crPayment As Currency, inTerm As Integer
Dim sgFctr As Single
Dim sgNext As Single
Dim crnxtyr As Currency
crPrincipal = txtprincipal.Text
sgInterest = txtinterest.Text / 1200
inTerm = txtterm.Text
sgFctr = (1 + sgInterest) ^ (inTerm * 12)
crPayment = sgInterest * sgFctr * crPrincipal / (sgFctr - 1)
txtpayment.Text = Format(crPayment, "Fixed")
End Sub
Private Sub cmdclr_Click()
txtprincipal.Text = ""
txtterm.Text = ""
txtinterest.Text = ""
txtpayment.Text = ""
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub List1_Click()
End Sub
Private Sub VScroll1_Change()
End Sub
Private Sub lstnxtyr_Click()
Dim sglstnxtyr As Single
sglstnxtyr = txtpayment.Text * (2)
End Sub
Private Sub Form_Load()
End Sub
如果您修改了一个代码片段并且觉得很应该让别人共享,您可以把这作为这个代码片段的最新版本提交上来. |
|