ACCESS 如何英文補習班在非連結表單用指令鈕算出天數和利息
發問:
ACCESS 如何在非連結表單用指令鈕算出天數和利息，並顯示年月?假設有本金, 利率1,利率2,交易日,到期日請問如何在表單上輸入本金10000,利率1=5%,利率2=3%交易日2009/1/20... 顯示更多 ACCESS 如何在非連結表單用指令鈕算出天數和利息，並顯示年月? 假設有 本金, 利率1,利率2,交易日,到期日 請問 如何在表單上輸入本金10000,利率1=5%,利率2=3% 交易日2009/1/20 到期日2009/8/10後 自動顯示出各月的天數和利息, ......年月...........天數.....利息 EX:200901.......21.........1000 ......200902.......28..........1200 . . ......200908.......10.........500 公式如下： 一月利息=(本金*18/31)*(利率1-利率2)*(31/365) 其中的18是2009/1/14到1月底經過的天數 而31是指1月的總天數 . 二月利息=(本金*28/28)*(利率1-利率2)*(28/365) 其中第一個28是指2月經過的總天數 其餘的28是2月的總天數 P.S. 因交易日是1/14,到期日是8/20 所以2到7月一定是經過整個月 . 三月利息=(本金*31/31)*(利率1-利率2)*(31/365) 四月利息=(本金*30/30)*(利率1-利率2)*(30/365) 依此類推.... 八月利息=(本金*20/31)*(利率1-利率2)*(31/365) 其中的20是因為到期日是2009/8/20 所以8月經過20天,而31是因為8月總共有31天 以上還得考慮閏年及誇年的問題 因為有可能交易日是2009/10/20 而到期日是2010/5/15 原則上期間應該不會超過一年 謝謝 更新: 我有問過相似的問題，差別在於會有2個利率相減以及 公式有變動。 因程式對我太難了，無法依樣畫葫蘆參考以前大大提供的範例。 請各位大大們再幫個忙 更新 2: TO POP大大 範例已寄出 謝謝 更新 3: 謝謝清澈的熊給予意見 我試過POP大大和大流士的 只是本人功力不夠 想換成我的控制項都無法成功 好像卡在這裡 For z = 1 To 5: dd.Fields(z - 1) = Me.Controls("TR" & z): Next 我有5個控制項 pop大大用的是TR1~TR5 我怎麼替換都無法成功
最佳解答:
清澈的熊大大好: 版主好: '如果題意如下 '......年月...........天數.....利息 'EX:200901.......21.........1000 '......200902.......28..........1200 Dim i%, I2%, Y1%, I3 As Single, I4 As Single Dim V%, V1%, V2%, V3%, V4%, I41 As Single, J3% If TR1 <> "" And TR2 <> "" And TR3 <> "" And TR4 <> "" And TR5 <> "" Then V1 = Format(TR4, "YYYY"): V2 = Format(TR5, "YYYY") V3 = Format(TR4, "M") - 1: V4 = DateDiff("M", TR4, TR5) + 1 Dim dd As DAO.Recordset Set dd = CurrentDb.OpenRecordset("利息單") For V = V1 To V2 For i = 1 + d To V4 d = d + 1 J3 = (i + V3) Mod 12 If J3 Then J3 = J3 Mod 12 Else J3 = 12 Select Case J3 Case 1, 3, 5, 7, 8, 10, 12: I2 = 31 Case 4, 6, 9, 11: I2 = 30 Case 2: If V Mod 4 Then I2 = 28 Else I2 = 29 End Select I3 = I2 If V = V1 And i = 1 Then I3 = DateDiff("D", TR4, Format(TR4, "yyyy/M/") & I2) + 1 If V = V2 And i = V4 Then I3 = DateDiff("D", Format(TR5, "yyyy/M/") & 1, TR5) + 1 I41 = (TR1 * I3 / I2) * (TR2 - TR3) * (I2 / 365) dd.AddNew '此處如清澈的熊大大所提_將欄位與控制項作對應設定 For z = 1 To 5: dd.Fields(z - 1) = Me.Controls("TR" & z): Next dd.Fields(5) = V & Format(J3, "00") dd.Fields(6) = I3 dd.Fields(7) = I41 dd.Fields(8) = "利率: " & TR2 & "~" & TR3 & " 期間: " & V & "/" & J3 & "/" & IIf(i = 1, Format(TR4, "d"), 1) & "~" & V & "/" & J3 & "/" & IIf(i = V4, Format(TR5, "d"), I2) dd.Update If J3 = 12 Then Exit For Next Next I2 = 0: I3 = 0: I4 = 0: i = 0: I33 = 0: J3 = 0: d = 0: Set dd = Nothing For z = 1 To 5: Me.Controls("TR" & z) = "": Next TR1.SetFocus End If Me!B2利息單.Requery 以上_希望有幫上忙.
其他蘋果派生活美語公職補習班解答:
上次 pop大大的回答， 就可以解決你的問題喔， 不過資料表欄位跟表單控制項， 還要要配合程式來設定名稱， 看 pop 大大能不能上來幫你解答說明一下， 或是你配合程式建立資料表跟表單控制項試試看。29077F888C89A7E7
文章標籤
全站熱搜
留言列表
