Tarif PPh pasal 21 Tahun 2024

 Tarif download

Komentar

Posting Komentar

Postingan populer dari blog ini

Terbilang

  Dim Huruf(0 To 9) As String Dim ax(0 To 3) As Double Function INIT_angka()     Huruf(0) = ""     Huruf(1) = "satu "     Huruf(2) = "dua "     Huruf(3) = "tiga "     Huruf(4) = "empat "     Huruf(5) = "lima "     Huruf(6) = "enam "     Huruf(7) = "tujuh "     Huruf(8) = "delapan "     Huruf(9) = "sembilan "     End Function Function dgratus(angka As Double) As String     Temp = ""     INIT_angka     panjang = Len(Trim(Str(angka)))     nilai = Right("000", 3 - panjang) + Trim(Str(angka))     For y = 3 To 1 Step -1         ax(y) = Mid(nilai, y, 1)     Next y     Select Case ax(1)         Case Is =...
Baca selengkapnya