Dear nyom,
ni aku punya sedikit dan kbetulan lagi dapet projek bikin program BPR
Mrate = Val(Text3.Text)>>>>>>rate bunga
Mlama = Val(Text4.Text)>>>>>>>lama pinjaman (satuan bulan)
poKok = JumLahKredit>>>>pokok hutang
mtGlanG = Text5.Text>>>>tanggal angsur pertama untuk mengisi tanggal
angsur selanjutnya
noPk = Trim(Text9.Text)>>>>nomor perjanjian kredit
xbunga = poKok * Mrate / 100 'angsuran bunga= pokok * rate bunga
xpokok = poKok / Mlama 'angsuran pokok/bulan angsuran
Set rsKon = New ADODB.Recordset
rsKon.Open "select * from jadwal", db, adOpenStatic,
adLockBatchOptimistic>>>>>tbl jadwal untuk menyimpan amortisasi
n = 1
Do While n <= Mlama
jmlbunga = jmlbunga + xbunga 'total bunga
jmlpokok = jmlpokok + xpokok 'total pokok
'menyimpan di jadwal
rsKon.AddNew
rsKon.Fields("nopk") = Trim(noPk)
rsKon.Fields("tanggal") = mtGlanG
rsKon.Fields("pokok") = xpokok
rsKon.Fields("bunga") = xbunga
rsKon.UpdateBatch
'end of menyimpan di jadwal
mtGlanG = DateAdd("m", 1, mtGlanG)
n = n + 1
Loop
rsKon.Close
maaf aku g bikin function, jadi terjemahkan sendiri aja..ini anggab aja
algoritma :)
smoga membantu
Thax's
Rendi Yuliantoro
--- Pada Kam, 5/3/09, Nyom2 <[email protected]> menulis:
Dari: Nyom2 <[email protected]>
Topik: [Programmer-VB] Menghitung Angs Pokok Bunga Anuitas
Kepada: [email protected]
Tanggal: Kamis, 5 Maret, 2009, 3:30 AM
Netters,
Mhn bantuannya, bila menggunakan VB bagaimana
logika, atau mungkin ada rumus untuk mencari angsuran pokok suatu kredit dengan
bunga anuitas ?? atas bantuannya, thx
salam
nyoman
Menambah banyak teman sangatlah mudah dan cepat. Undang teman dari
Hotmail, Gmail ke Yahoo! Messenger sekarang!
http://id.messenger.yahoo.com/invite/
