Tolong pilih kategori sesuai, jenis posting (pertanyaan atau bukan) dan sertakan tag/topik yang sesuai misal komputer, php, mysql, dll.
Promosi atau posting tidak pada tempatnya akan kami hapus.
Mencantumkan kode program di posting Anda, tolong ikuti aturan yang sesuai, baca http://diskusiweb.com/discussion/39204/aturan-cara-menyisipkan-kode-program-di-diskusiweb

Baca cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

[DELPHI] Menghitung denda angsuran dengan DateTimePicker

Permisi mohon maaf minta bantuan tentang pemograman delphi terutama komponen Datetimepicker
Misalnya begini :

Ada konsumen angsurannya Rp 100.000,- jatuh temponya adalah setiap bulan pada tanggal 10, artinya setiap tanggal 10,dalam hal ini bulan apapun,maka  ia jatuh tempo pada tanggal tersebut, apabila ia lewat membayar pada tanggal 10 maka akan dikenakan denda sebesar 0.5% dari angsurannya. Tanggal jatuh temponya diambil dari datetimepicker.date. Berarti tanggal hari ini dikurangi tanggal jatuh temponya yang ada didatetimepicker tersebut, dikalikan hasil angsuran*0.5% atau (Tanggal hari ini - Tanggal Jatuh tempo)*(angsuran*0.5%). bagaimana ya cara perhitungannya?

Terima kasih salam Delphi

Tanggapan

  • edited March 2013
    1..datetime di buat now
    2.

    misal coding di button 

    var a,b,c:string;
    begin
    a := FormatDateTime('dd',DateTimePicker1.DateTime);
    b := FormatDateTime('dd',myquery1tempo.asDateTime);

    c := floatToStr( (StrTofloat(a)-StrTofloat(b)) *5/100);


    bisa di perpendek kok codingnya :D 
  • Pertanyaan nya agak membingungkan...  :-/

    "jatuh temponya adalah setiap bulan pada tanggal 10, artinya setiap tanggal 10,dalam hal ini bulan apapun"

    "tanggal hari ini dikurangi tanggal jatuh temponya yang ada didatetimepicker tersebut, dikalikan hasil angsuran*0.5%"

    berarti DateTimePicker selalu berisi tanggal 10 bulan berjalan.

    bukankah seharusnya DateTimePicker bandingkan dengan tanggal hari ini, bila "lebih dari" maka
    bayar = angsuran + (angsuran*0,005)

    if hari_ini > tanggal_10 then
      bayar := angsuran + (angsuran * 0,005)
    else
      bayar = angsuran;

    tanggal_10
    DateTimePicker1.Date := (StartOfTheMonth(Now)) + 9;
  • @^

    pan di atas nya ke tulis : Misalnya begini

    tanggal 10 itu kayanya cuma contoh ...

    real nya tanggal jatuh tempo kalo model angsuran (pinjaman) adalah :
    tanggal aktifnya pinjaman + periode pinjaman

    kalo di atas, periode nya bulanan



    tapi kalo yg ini :
    Tanggal jatuh temponya diambil dari datetimepicker.date
    kayanya emang salah ...

    tanggal jatuh tempo mestinya bukan dipilih
    1. harusnya sudah tersimpan di database, itu pun bukan tanggal jatuh tempo, tapi berdasar tanggal aktif pinjaman
    2. pilihan harusnya adalah saat pengisiian aplikasi pinjaman untuk tanggal aktifnya pinjaman

    perhitungan sudah jalan otomatis begitu lihat laporan, tanpa harus pilih-pilih tanggal jatuh tempo
Sign In or Register to comment.