rumus keterlambatan pada form

  1. 2 bulan yang lalu

    selamat pagi.
    apakah ada yang bisa membantu saya untuk memberikan rumus keterlmabtan pada form vba .
    (untuk tanggal kembali - tanggal pinjam ) Jika lebih dari 10 hari maka di hitung sebagai keterlmabatan

  2. saya ingin menanyakan bagaimana rumus fungsi keterlmabatan
    Jika ( Tanggal Kembali - Tanggal Pinjam ) Lebih dari 10 hari maka di hitung sebagai keterlambatan.
    Jika Pada worksheet rumus nya seperti ini '=IF((C8-E8)>5,(C8-E8)-5,0)
    saya kesulitan dalam rumus yang harus di pakai saat di form vba nya.

  3. Masdad

    Apr 30 Terverifikasi Demak + 1.803 Poin

    Coba pakai IF di VBA-nya misalnya begini:

    If (DateValue(TglKembali) - DateValue(TglPinjam)) >= 10 Then
        Lbl_Status = "Terlambat " & (DateValue(TglKembali) - DateValue(TglPinjam)) - 9 & " hari"
    Else
        Lbl_Status = "Tidak Terlambat"
    End If

    Silahkan sesuaikan dengan nama textbox dan atau label yang digunakan, untuk >= 10 bisa juga pakai >10 tergantung tanggal mulai dihitung yang diinginkan.

    Contoh hasilnya:
    status terlambat.gif

  4. Jika tidak usah pakai kata terlambat bagaimana . Jadi Dika tidak terlambat akan terisi 0 dan jika terlambat nnti terisi jumlah hari nya saja.
    Karena nnti jumlah hari terlambat nya akan saya kalikan di kolom denda

  5. @Masdad Coba pakai IF di VBA-nya misalnya begini:

    If (DateValue(TglKembali) - DateValue(TglPinjam)) >= 10 Then
        Lbl_Status = "Terlambat " & (DateValue(TglKembali) - DateValue(TglPinjam)) - 9 & " hari"
    Else
        Lbl_Status = "Tidak Terlambat"
    End If

    Silahkan sesuaikan dengan nama textbox dan atau label yang digunakan, untuk >= 10 bisa juga pakai >10 tergantung tanggal mulai dihitung yang diinginkan.

    Contoh hasilnya:
    [attachment:5eaa810342923]

    Untuk rumus denda nya bagaimana mas. Jika satu hari keterlambatan di kali Rp 2000

  6. Masdad

    Apr 30 Terverifikasi Demak + 1.803 Poin

    Mungkin seperti ini ya?

    denda.gif

    Sebenarnya tinggal di edit saja, Value_IF_True dari script VBA-nya.

    Dim Status As Double
    Status = DateValue(TglKembali) - DateValue(TglPinjam)
    If Status >= 10 Then
        Lbl_Denda = (Status - 9) * 2000
    Else
        Lbl_Denda = 0
    End If

 

atau Mendaftar untuk ikut berdiskusi!