ACCESS FEED: [belajar-access] Re: Jadwal Angsuran

Senin, 19 September 2011

[belajar-access] Re: Jadwal Angsuran

Karena tidak ada yang jawab , saya lagi deh yang jawab ( pada kemana sih yang lain ? Silakan bantu tuh rekan2 yg tanya )

Siapkan dahulu Tabel , misal Jadwal dengan struktur :

ID	AutoNumber
Periode	Number	integer
tanggal	Date/Time
hari	Number	integer
Pokok	Number	double
AngsuranPokok	Number	double
AngsuranBunga	Number	double

buat module ( VBA ) :

Dim Bunganya As Single

Dim periodeke As Integer
Dim bTgl, cTgl As Date
Dim cjumlahhari As Integer
Dim cPokok As Long
Dim cAngsuranBunga As Long
Dim cAngsuranPokok As Long
Dim bBakiDebet, cBakiDebet As Long

Sub isijadwal()
    DoCmd.SetWarnings False


    termAngsuran = 1
    bBakiDebet = 500000000
    jkwaktu = 36 'bulan
    Bunganya = 9 / 100 '9%
    bTgl = #8/26/2011#
    jthTempo = DateAdd("m", jkwaktu, bTgl)

    periodeke = 0
    cTgl = bTgl
    jumlahhari = 0

    cPokok = 0
    cAngsuranPokok = 0
    cAngsuranBunga = 0

strSql = "INSERT INTO Jadwal (periode,Tanggal,Hari,Pokok,AngsuranPokok,AngsuranBunga) values (" & periodeke & ", #" & cTgl & "# ," & jumlahhari & "," & cPokok & "," & cAngsuranPokok & "," & cAngsuranBunga & ");"

    DoCmd.RunSQL strSql

    cAngsuranPokok = Int(termAngsuran * bBakiDebet / (jkwaktu))

    If Day(bTgl) >= 25 Then
        majunya = 2
    Else
        majunya = 1
    End If

    cTgl = DateAdd("m", majunya, bTgl)
    cTgl = DateSerial(Year(cTgl), Month(cTgl), 25)
    periodeke = periodeke + 1
    Call isidata
    majunya = 1



    While periodeke < jkwaktu
        periodeke = periodeke + 1
        cTgl = DateAdd("m", majunya, bTgl)
        If periodeke = jkwaktu Then
            cAngsuranPokok = bBakiDebet
            cTgl = jthTempo
        End If

        Call isidata
    Wend


End Sub
Sub isidata()
        cjumlahhari = DateDiff("d", bTgl, cTgl)
        cPokok = bBakiDebet
        cAngsuranBunga = Round((cPokok * Bunganya * cjumlahhari) / 360)
'        cAngsuranPokok = AngsuranPokok
        cBakiDebet = bBakiDebet - cAngsuranPokok

        strSql = "INSERT INTO Jadwal (periode,Tanggal,Hari,Pokok,AngsuranPokok,AngsuranBunga) values (" & periodeke & ", #" & cTgl & "# ," & cjumlahhari & "," & cPokok & "," & cAngsuranPokok & "," & cAngsuranBunga & ");"
        DoCmd.RunSQL strSql


        bTgl = cTgl
        bBakiDebet = cBakiDebet
End Sub

--- In belajar-access@yahoogroups.com, "jkssbma" <jkssbma@...> wrote:
>
> Coba anda kirim file access yang anda buat . Semoga rekan2 Be-Accesser dapat membantu.
>
> catatan : hallo rekan2 kok tidak ada yang membantu untuk jawab ya ,
> sedang dimana , ya ????
>
> --- In belajar-access@yahoogroups.com, Dian Rezi Pasopati xirezi@ wrote:
> >
> > Assalamualaikum ,
> > Kpd suhu2 yg terhormat,
> >
> > saya mau mencoba buat program pinjaman.
> >
> > nah ini kepentok untk menentukan detail tanggal angsurannya tiap
> >
> > bulan (tgl angsuran ditetapkan setiap tgl 25 pd bulan berikutnya), berikut dengan angsuran ke nya.
> > dan menentukan JT nya utk Pinjaman Bulanan, 3 bulanan, dan 6 bulanan.plus rumus utk bunga sliding.(diexcel sy sertakan rumus perhitungannya)
> >
> > dan pinginnya klo sy pilih jk waktu 12,36 bulan lsg muncul 12 baris atau ,36 baris
> >
> > sy sdh coba utak utik blm dpt, apakah sdh ada yg pernah membahas mengenai ini..?,jika sdh apakah sy bisa mendapatkan rumusnya..??atau contoh aplikasinya,??
> >
> > terima kasih atas bantuannya
> >
> > -Rezi-
> >
> >
> > berikut saya sertakan ilustrasi jadwal angsuran dengan format Excel.
> >
>