Dear Miss Siti & Mr. Rahadiansyah
Berikut adalah formula untuk PPh 21 tmt 1 Januari 2009:
=IF(PKP<=50Jt;PKP*5%;IF(PKP<=250Jt;(PKP-50Jt)*15%+2,5Jt;IF(PKP<=500Jt;(PKP-2
50Jt)*25%+32,5Jt;(PKP-500Jt)*30%+95Jt)))
Sedangkan UDF nya adalah sebagai berikut:
Pajak Pesangon
Public Function PajakPesangon(PES)
If PES > 25000000 Then
If PES >= 200000000 Then
PajakPesangon = (PES - 200000000) * 0.25 + 20000000 + 7500000 +
2500000
ElseIf PES>= 100000000 Then
PajakPesangon = (PES - 100000000) * 0.15 + 7500000 + 2500000
ElseIf PES >= 50000000 Then
PajakPesangon = (PES - 50000000) * 0.1 + 2500000
Else
PajakPesangon = PES * 0.05
End If
Else
PajakPesangon = 0
End If
End Function
Penghasilan Kena Pajak
Public Function Pajak(PKP)
If PKP > 0 Then
If PKP > 500000000 Then
Pajak = (PKP - 500000000) * 0.3 + 62500000 + 30000000 + 2500000
ElseIf PKP > 250000000 Then
Pajak = (PKP - 250000000) * 0.25 + 30000000 + 2500000
ElseIf PKP > 50000000 Then
Pajak = (PKP - 50000000) * 0.15 + 2500000
Else
Pajak = PKP * 0.05
End If
Else
Pajak = 0
End If
End Function
Penghasilan Tidak Kena Pajak
Public Function PTKP(StatusKawin)
StatusKawin = UCase$(StatusKawin)
Select Case StatusKawin
Case Is = "K/0", "TK/1"
PTKP = 17160000
Case Is = "K/1", "TK/2"
PTKP = 18480000
Case Is = "K/2", "TK/3"
PTKP = 19800000
Case Is = "K/3"
PTKP = 21120000
Case Is = "TK/0"
PTKP = 15840000
Case Else
PTKP = 0
End Select
End Function
Biaya Jabatan (Pengurang Penghasilan Bruto)
Public Function BiayaJabatan(Bruto)
BiayaJabatan = Bruto * 0.05
If BiayaJabatan >= 500000 Then
BiayaJabatan = 500000
End If
End Function
Best regards
Herry Sutjipto
From: [email protected] [mailto:[email protected]] On Behalf
Of siti
Sent: 25 Juli 2009 2:20
To: [email protected]
Subject: Re: ]] XL-mania [[ Fungsi Logika pada QA data
jika PKP telah diketahui
menghitung PPh21 tidak perlu di rinci per lapisan kena pajak dulu
karena bisa langsung dicari dengan formula panjang.
Misal PKP sudah tertulis di B4; rumus ini menghasilkan PPh21
=IF(B4<=50000000,B4*5%,
IF(B4<=250000000,(B4-50000000)*15%
+50000000*5%,
IF(B4<=500000000,((B4-250000000)*25%)
+(50000000*5%)+(200000000)*15%,
IF(B4>500000000,(B4-500000000)*30%
+50000000*5%+(200000000)*15%+250000000*25%))))
Kalau dikehendaki rumus yg pendek, kita dapat membuat versi UDF nya
Jika UDF sudah dimiliki / sudah dibuat, maka kita tidak perlu menulis rumus
panjang spt itu lagi
karena tinggal menulis
=PPh21(B4) atau =PPh21(B4,TRUE)
=PPh21(B4,FALSE) jika si wajib pajak ndak punya npwp
Apakah seperti itu yg dimaksudkan ??
Mohon masukan dan komentar dari orang pajak dong...
2009/7/22 rahadiansyah <[email protected]>
>
> Dear XL-Mania yg baik hati,
> Saya mohon bantuan-nya untuk membuat formula dengan format seperti di
> lampiran berikut.
>
> Masing2 data (diattach file) yg diinginkan telah ada jawabannya, berikut
> dengan syarat yg diinginkan.
>
> Terima kasih sebelum-nya, semoga rekan2 yg membantu akan dicacat
> amal-nya kelak dan pasti tambah jago XL-nya, amin
>
> bEsT ReGarD, uyan
