RE: ]] XL-mania [[ Fungsi Logika pada QA data

 

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-250Jt)*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: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of siti
Sent: 25 Juli 2009 2:20
To: XL-mania@yahoogroups.com
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 <uyantea@gmail.com>
>
> 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

__._,_.___

Messages in this topic (6) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| XL-mania, berjuang untuk rakyat, pancen oyeeee, LANJUTKAN!        |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Recent Activity

•  44
  New Members

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___