1
ห้อง MS Access / อยากให้แสดงตัวเลข เศษที่่เหลือรวมในงวดสุดท้าย และ วันที่ตามกำหนดดิวครับ
« เมื่อ: 31 มี.ค. 64 , 13:26:23 »
ผมได้ตัวอย่างในบอร์ดมาครับ จะทำคำนวณเงินต้นและดอกเบี้ย แต่งวดสุดท้ายถ้า Sum รวมกันแล้วมันเกินเงินต้นอยากให้งวดสุดท้าย รวมเศษที่เหลือทั้งหมดรวมกับค่างวดในงวดสุดท้ายนั้นด้วยครับ
ผมมีตาราง Table1 เก็บข้อมูลตาม Code ครับ
มีคำถาม 2 ข้อครับ
1. มีดิวกำหนดชำระทุกวันที่5 ถ้าบวก 30 วันที่จะไม่ตรง แต่อยากให้วันที่เป็นวันที่ 5 (หรือวันที่กำหนด) ทุกเดือน
2. อยากให้เอาเศษที่เหลือรวมงวดสุดท้าย เมื่อเอาเงินต้นมาหารงวด เศษที่เหลือเท่าไหร่เอารวมในงวดสุดท้ายครับ
ขอบคุณครับ
ผมมีตาราง Table1 เก็บข้อมูลตาม Code ครับ
มีคำถาม 2 ข้อครับ
1. มีดิวกำหนดชำระทุกวันที่5 ถ้าบวก 30 วันที่จะไม่ตรง แต่อยากให้วันที่เป็นวันที่ 5 (หรือวันที่กำหนด) ทุกเดือน
2. อยากให้เอาเศษที่เหลือรวมงวดสุดท้าย เมื่อเอาเงินต้นมาหารงวด เศษที่เหลือเท่าไหร่เอารวมในงวดสุดท้ายครับ
ขอบคุณครับ
โค๊ด: [Select]
Dim rs As DAO.Recordset
Dim i As Integer
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
'---------------เพิ่มเรคคอร์ดใหม่--------------
For i = 1 To 36 ' ใส่จำนวนเรคคอร์ดที่ต้องการ
rs.AddNew
'ใส่ชื่อฟิลด์ที่ต้องการ และใส่ค่า โดยกำหนด Data Type ให้ถูกต้อง ถ้าเป็น Text ต้องมี "" คล่อม ถ้าเป็นตัวเลขไม่ต้องมี
rs!รหัส = "001"
rs!ชื่อสินค้า = "งวดที่ " & i
rs!วันครบกำหนด = Date + (30 * i)
rs!จำนวน = (55000) / 36
rs!ดอกเบี้ย = (((55000 * 15) / 100) / 12)
rs.Update
Next i
'-----------------------------------------
rs.Close: Set rs = Nothing