sherinalavenda
sherinalavenda> hi,rekan milis...
sherinalavenda> help me please...
sherinalavenda> ada yg bisa kasih pencerahan?
sherinalavenda> gimana bikin program utk menghitung pph?
sherinalavenda> 0 s/d 50jt pertama kena 10%
sherinalavenda> 50 s/d 100jt kena 15%
sherinalavenda> 100 jt keatas kena 30%
sherinalavenda> thanks before
Silahkan dipelajari lagi ya
npjk1 = 25000000
npjk2 = 50000000
npjk3 = 100000000
npjk4 = 200000000
If CDbl(TxtNilai(17).Value) <= npjk1 Then
TxtNilai(18).Value = (CDbl(TxtNilai(17).Value) *
0.05)
End If
If CDbl(TxtNilai(17).Value) > npjk1 And
CDbl(TxtNilai(17).Value) <= npjk2 Then
TxtNilai(18).Value = CDbl((TxtNilai(17).Value -
npjk1) * 0.1) + (npjk1 * 0.05)
End If
If CDbl(TxtNilai(17).Value) > npjk2 And
CDbl(TxtNilai(17).Value) <= npjk3 Then
TxtNilai(18).Value = CDbl((TxtNilai(17).Value -
npjk2) * 0.15) + (npjk1 * 0.1) + (npjk1 * 0.05)
End If
If CDbl(TxtNilai(17).Value) >= npjk3 And
CDbl(TxtNilai(17).Value) <= npjk4 Then
TxtNilai(18).Value = CDbl((TxtNilai(17).Value -
npjk3) * 0.25) + (npjk2 * 0.15) + (npjk1 * 0.1) + (npjk1 * 0.05)
End If
If CDbl(TxtNilai(17).Value) > npjk4 Then
TxtNilai(18).Value = CDbl((TxtNilai(17).Value -
npjk4) * 0.35) + (npjk3 * 0.25) + (npjk2 * 0.15) + (npjk1 * 0.1) + (npjk1 *
0.05)
End If
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
