Evi Damayanti wrote:
> atau aku kasih tau permasalahanku lebih detail lagi
> ajah yah mas...
> gini...ceritanya...
> sistem ini untuk pembayaran pinjaman...
>
> Tabel A menyimpan jadwal angsuran isi fieldnya
> kd_pinj, nm_nsbh, tgl_mulai, tgl_akhir, jml_angs,
> noangsuran, jthtempoangs, pokok, bunga, tot_angsuran
>
> Tabel B menyimpan hitungan bunga harian (dilakukan
> setiap sorehari) melihat dari Tabel A
>
> Nah, permasalahan aku adalah sebenarnya bunganya sudah
> terhitung, tapi jeleknya dia menghitung berdasarkan
> jumlah record yg ada di Tabel A, misal
> pinjaman atas nama Rudi dengan kode pinjaman 001 dari
> tgl 01/08/2007 s/d 01/08/2008, jml angsuran 12 bln
> nomor angsuran 1 s/d 12, jatuh tempo angsuran tgl
> 01/09/2007, 01/10/2007, 01/11/2007......01/08/2008
> (mas rudi gak pusing kan ? :D), jadi bunga pinjaman
> hari itu yg dia hitung adalah bunga pinjaman dari
> bulan 08/2007 sampai 08/2008, padahal seharusnya yg
> dia hitung hanya yg bulan 08/2007 nah nanti bulan
> berikutnya di menghitung bunga pinjaman yg 01/09/2007
> s/d 30/09/2007...
> nah..kira2 gimana cara penyelesaian yg terbaiknya yah
> mas...klo selama ini yg aku coba adalah melihat tgl
> jatuh tempo itu dengan tanggal yg ada di komputer
>
Kalo saya gak salah asumsi, berarti yang mbak Evi maksudkan adalah
mencari tanggal terakhir dari masing-masing bulan. Jadi misalkan
mbak Evi mau hitung bunga bulan 08/2007 dgn asumsi tgl jatuh
temponya 01/08/2007 maka yg dihitung adalah bunga mulai tgl
01/08/2007 - 31/08/2007, betul begiru mbak Evi? ato saya salah
asumsi?
Kalo betul begitu, coba ini ada code sederhana untuk mencari tanggal
terakhir dari masing-masing bulan. Di contoh ini mbak Evi cukup
membuat 2 buah textbox, dimana text1 nantinya diisi dengan tgl jatuh
tempo, dan text2 nanti akan terisi tanggal terakhir dari bulan jatuh
tempo tsb.
Private Sub Command1_Click()
Dim mDate As Date
mDate = CDate("01" & Mid(Text1.Text, 3))
Text2.Text = Format(DateAdd("d", -1, DateAdd("M", 1,
mDate)), "dd/MM/yyyy")
End Sub
Demikian semoga membantu, maaf sebelumnya jika reply ini tidak
sesuai dengan yg mbak Evi maksudkan.
Regards
Eko Heri
