Dana pemilu 2009

Jakarta ( Berita ) :  UU Nomor 45 Tahun 2007 tentang APBN 2008 mengalokasikan dana untuk keperluan penyelenggaraan Pemilu 2009 sebesar Rp6,67 triliun dan untuk keperluan operasional Komisi Pemilihan Umum (KPU) sebesar Rp793,9 miliar.

Kepala Biro Humas Depkeu, Samsuar Said dalam keterangannya di Jakarta, Jumat [04/07], menyebutkan, dari dana sebesar Rp793,9 miliar untuk keperluan operasional KPU, terdapat dana yang belum dapat dicairkan sebesar Rp71,3 miliar untuk kegiatan renovasi gedung KPU pusat sebesar Rp12,8 miliar karena tidak ada data pendukung sampai dengan 4 Juli 2008.

Juga dana untuk kegiatan satuan kerja (satker) baru yang berjumlah 45 satker sebesar Rp58,5 miliar karena persetujuan Menteri Pendayagunaan Aparatur Negara yang diterbitkan pada tanggal 12 Februari 2008 sesuai surat nomor B/419/M.PAN/2/2008 hanya untuk 25 satker.

“Sampai dengan akhir Juni 2008, realisasi anggaran operasional KPU adalah sebesar Rp200,6 miliar (25,2 persen dari pagu),” kata Samsuar.

Sementara dari dana untuk keperluan penyelenggaraan Pemilu sebesar Rp6,67 triliun telah dicairkan sebesar Rp2,9 triliun untuk keperluan seleksi Calon Anggota Bawaslu, Calon Anggota KPU Provinsi, dan Calon Anggota KPU Kabupaten/Kota sebesar Rp126,7 miliar, dan untuk pelaksanaan tahapan Pemilu sebesar Rp2,77 triliun.

Sedangkan sisanya sebesar Rp3,77 triliun sesuai kesepakatan KPU dengan Direktorat Jenderal Anggaran Departemen Keuangan akan dicairkan sesuai tahapan pelaksanaan Pemilu dengan persyaratan dokumen KPU lengkap.

Dana tersebut terdiri dari pengadaan barang dan jasa keperluan Pemilu sebesar Rp2,19 triliun, biaya jasa logistik dan distribusi Pemilu sebesar Rp1,08 triliun, dan sisanya sebesar Rp498,5 miliar untuk kegiatan-kegiatan KPU di pusat maupun daerah.

Mengenai alokasi dana untuk Badan Pengawas Pemilu (Bawaslu), Sekretaris Jenderal KPU melalui surat nomor 2222/15/VI/2008 tanggal 20 Juni 2008 mengajukan usul penyediaan dana untuk keperluan Bawaslu yang telah disetujui oleh Pimpinan dan Panitia Anggaran Komisi II DPR RI pada tanggal 17 Juni 2008 sebesar Rp888,7 miliar.

Dana tersebut dialokasikan untuk Pengawas Pemilu Pusat sebesar Rp50,9 miliar, Pengawas Pemilu Propinsi sebesar Rp32,0 miliar, dan Pengawas Pemilu Kabupaten/Kota sebesar Rp805,8 miliar.

Terhadap usulan tersebut telah dilakukan penelaahan oleh Direktorat Jenderal Anggaran Departemen Keuangan bersama-sama dengan KPU dan Bawaslu pada tanggal 3 Juli 2008, dengan kesepakatan sebagai Kuasa Pengguna Anggaran adalah Sekretaris Jenderal KPU, anggaran untuk kegiatan Bawaslu telah disediakan di luar dana penyelenggaraan Pemilu, dan Bawaslu akan melengkapi data pendukung yang akan disampaikan kepada Direktorat Jenderal Anggaran Departemen Keuangan paling lambat tanggal 9 Juli 2008.

Bawaslu yang telah dibentuk berdasarkan Undang-Undang Nomor 22 Tahun 2007, sampai dengan saat ini belum mempunyai kesekretariatan yang akan mengelola alokasi dana Bawaslu dimaksud. ( ant )

from:beritasore.com

Membuat Fungsi Terbilang

Menjawab pertanyaan di artikel saya yang ini, saya langsung mencari arsip programming saya, karena dulu seingat saya pernah membuat fungsi tersebut untuk penulisan kuitansi. Setelah 2 jam cari-cari saya tidak juga menemukan fungsi yang telah saya tulis 5 tahun yang lalu, akhirnya saya mengambil jalan pintas saja, yaitu googling…

Sebetulnya pembuatan fungsi terbilang ini tidaklah susah jika kita mau menggunakan logika kita sedikit. Tapi sayang malam ini, logika saya juga baru ngga mau di ajak kompromi jadi saya akan membuat tutorial-nya saja step-by-step dan scriptnya saya mengambilnya di-sini lalu saya hanya merapikannya sedikit saja. Berikut langkah yang harus anda ambil:

1. Buka Microsoft Excel.
2. Tekan Alt + F11 untuk membuka VBA Editor, atau klik menu Tools -> Macro -> Visual Basic Editor.
   
3. Di Visual Basic Editor, klik menu Insert -> Module.
   
4. Lalu copy-paste script ini ke bidang kerjanya:

   Public Function TERBILANG(x As Double) As String
   Dim tampung As Double
   Dim teks As String
   Dim bagian As String
   Dim i As Integer
   Dim tanda As Boolean
   
   Dim letak(5)
   letak(1) = "RIBU "
   letak(2) = "JUTA "
   letak(3) = "MILYAR "
   letak(4) = "TRILYUN "
   
   If (x < style="color: rgb(0, 0, 128);">Then
    TERBILANG = ""
   Exit Function
   End If
   
   If (x = 0) Then
    TERBILANG = "NOL"
   Exit Function
   End If
   
   If (x < style="color: rgb(0, 0, 128);">Then
    tanda = True
   End If
   teks = ""
   
   If (x >= 1E+15) Then
    TERBILANG = "NILAI TERLALU BESAR"
   Exit Function
   End If
   
   For i = 4 To 1 Step -1
    tampung = Int(x / (10 ^ (3 * i)))
    If (tampung > 0) Then
        bagian = ratusan(tampung, tanda)
        teks = teks & bagian & letak(i)
    End If
    x = x - tampung * (10 ^ (3 * i))
   Next
   
   teks = teks & ratusan(x, False)
   TERBILANG = teks
   End Function
   
   Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
   Dim tmp As Double
   Dim bilang As String
   Dim bag As String
   Dim j As Integer
   
   Dim angka(9)
   angka(1) = "SE"
   angka(2) = "DUA "
   angka(3) = "TIGA "
   angka(4) = "EMPAT "
   angka(5) = "LIMA "
   angka(6) = "ENAM "
   angka(7) = "TUJUH "
   angka(8) = "DELAPAN "
   angka(9) = "SEMBILAN "
   
   Dim posisi(2)
   posisi(1) = "PULUH "
   posisi(2) = "RATUS "
   
   bilang = ""
   For j = 2 To 1 Step -1
    tmp = Int(y / (10 ^ j))
    If (tmp > 0) Then
        bag = angka(tmp)
        If (j = 1 And tmp = 1) Then
            y = y - tmp * 10 ^ j
            If (y >= 1) Then
                posisi(j) = "BELAS "
            Else
                angka(y) = "SE"
            End If
            bilang = bilang & angka(y) & posisi(j)
            ratusan = bilang
            Exit Function
        Else
            bilang = bilang & bag & posisi(j)
    End If
   End If
   y = y - tmp * 10 ^ j
   Next
   
   If (flag = False) Then
    angka(1) = "SATU "
   End If
   bilang = bilang & angka(y)
   ratusan = bilang
   End Function

   

5. Setelah di paste, coba cek script ini dengan klik menu Debug -> Compile VBA Project, jika tidak keluar kotak peringatan apapun biasanya script anda sudah beres.
6. Tutup jendela Visual Basic Editor anda.

Nah sekarang tinggal coba aja:

1. Ketik di cell sembarang sederet angka (misal di cell A1), lalu untuk memanggil fungsi terbilang ini (misal di cell A2), tinggal ketik =TERBILANG(A1).
   

Cukup mudah bukan? Anda dapat mengunduh contoh artikel ini di sini.

Just in case, jika macro ini tidak bisa di jalankan di Excel anda (karena secara default Excel menset keamanan terhadap macro ke level tinggi), cek Security macro setting di Excel anda. Untuk melihat konfigurasi Security macro, klik Tools -> Macro -> Security dan pilih opsi Low lalu klik tombol OK. Saran saya pastikan anda sudah mempunya anti virus terinstal di komputer anda untuk menjaga agar virus macro tidak dapat menyerang komputer anda.

he...he...he...! gmana??? tau gak??? moga2 aja berguna ya bagi pembaca???? okey!!!!!

Artikel-artikel Yang Berhubungan Dengan Artikel Ini

• Buat Baris Data Anda Makin Indah (February 24th, 2009)
• Deteksi Jenis Data Teks (October 18th, 2008)
• Membersihkan Kolom Saldo (September 29th, 2008)
• Menggabungkan Data Teks Dan Tanggal (September 16th, 2008)
• Manipulasi Teks Dengan Excel (September 7th, 2008)

Renunganku di tahun baru

Tahun baru….
Apakah kalian mengerti maksud kata-kata diatas???? Jangan dikira tahun baru Cuma dirayain dengan senang-senang, party… dan laen sebagainya…

Tau nggak kalau semakin berganti tahun, semakin cepat ajal menjemput kita. Tapi kenapa kita malah merayakan tahun baru ini???? Banyak orang beranggapan bahwa tahun baru merupakan semangat bagi kita untuk berubah semakin baek tapi nyatanya? Di palestina sedang terjadi peperangan. Di pakistan dan afganistan amerika sedang asyik membuang-buang uang dalam bentuk selongsong peluru, padahal kita tahu bahwa sekarang di dunia sedang terjadi krisis ekonomi. Di dalam negri aja korupsi masih merajalela. Gimana mau maju indonesia ini??? Mereka para pelaku korupsi tidak pernah mengerti arti sebuah kepahlawanan. Para pahlawan jaman dahulu telah sulit-sulit merebut kemerdekaan bagi bangsa ini. Tapi kenapa generasi saat ini yang seharusnya menjaga dan membangun bangsa ini malah yang bisa dikatakan bahasa jawa yaitu “melengse” dari tujuan dari bangsa ini. Para generasi muda pun banyak yang lebih mementingkan party daripada belajar. Mau jadi apa bangsaini jika para generasi mudanya terus-terusan buat nongkrong, narkoba, mabuk-mabukan? Munkin bangsa ini masa depannya suram. Tapi jika generasi muda mau berjuang untuk memajukan bangsa ini, insya Allah bnagsa indonesia yang kita cintai ini akan mengalahkan kekuatan amerika. Bagaimana tidak, bangsa ini dari dulu dikatakan sebagai bansa yang subur, makmur. Pertanian maju, banyak tambang-tambang minyak yang ada di indonesia, dan dsb. Jika kita mampu mengolah itu semuanya, aku yakin Indonesia akan menjadi Amerikanya Asia,Amiieen!!!! Maka dariitu para pemuda di indonesia untuk bekerja keras dalam membangun bagsa ini, yang sekarang mungkin dianggap “kecengan” menjadi bangsa yang “gueede”

Untuk saya sekarang yang juga masih muda, berusaha keras untuk men\mbuat bangsa ini menjadi bangsa yang disegani di muka bumi ini. Di taun baru ini yang aku harapin adalah:
Aku ingin jadi seseorang yang berhaga bagi orang disekitarku
Mencari tmen-temen yang mau berteman denganku
Bahagiain kedua ortu…
Bahagiain cwe gue..
Dan yang laen yang mungki aku kelupaan…..



Semoga impianku tercapai, amieen ya Allah…….

sekilas tentang saya

aku anak yang lahir dari bapak dan ibu saya keturunan jawa asli. lahir pada 12 maret 1992. di bojonegoro. saya anaknya tinggi, kurus, suka tertawa(tapi tidak gila) hidupnya santae. g perlu BIIINGUNNNGGGGG!!!!!! aku suka mancing ma maen bass, aku pernah juara drumband se jawa timur loh... waktu itu aku megang terompet. seru loh!!!!! aku punya adek juga anake lucu.... manis....!!! aku kalo besar ingin jadi sejarawan!!!!!