CARA MEMBUAT ANGKA TERBILANG PADA EXCEL 2003

KETIK DATA DIBAWAH INI:

Public Function terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
'Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
'Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
'Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
'Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
'Baca bagian satuan
If satu > 0 Then
baca = baca + ratus(satu, 1) + "rupiah "
Else
baca = baca + "rupiah "
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen "
End If
End If
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Function ratus(x As Currency, posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
'Baca Bagian Ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, 2) + "ratus "
End If
End If
'Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)
Else
If a10 > 0 Then
baca = baca + angka(a10, 2) + "puluh "
End If
If a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If
End If
End If
ratus = baca
End Function
Function angka(x As Integer, posisi As Integer)
Select Case x
Case 0: angka = "Nol"
Case 1:
If posisi = 2 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Dua belas "
Case 13: angka = "Tiga belas "
Case 14: angka = "Empat belas "
Case 15: angka = "Lima belas "
Case 16: angka = "Enam belas "
Case 17: angka = "Tujuh belas "
Case 18: angka = "Delapan belas "
Case 19: angka = "Sembilan belas "
End Select
End Function

20 Cara Membuat Suami Betah Di Rumah

Memiliki suami yang betah di rumah pasti harapan semua istri. Lalu apa yang harus kita lakukan agar suami lebih suka menghabiskan waktu bersama istri dan anak-anak daripada bersama teman-temannya di luar rumah? Berikut saran dari psikolog Adriana S. Ginanjar, staf pengajar di Fakultas Psikologi Universitas Indonesia. Silakan disimak!
1. Sambut suami pulang dari kantor dengan senyuman, bukan dengan keluhan tentang ulah teman kerja atau pembantu yang tidak becus bekerja. Suami yang lelah setelah seharian bekerja pasti akan senang melihat senyum Anda dan cerita-cerita menyenangkan tentang anak-anak. Jangan langsung bebani dia dengan masalah rumah tangga.
2. Lakukan ritual makan malam bersama anggota keluarga, yang diisi dengan cerita ringan dan humor. Memang kelihatannya sederhana. Tetapi jika dijalani secara rutin, ritual ini bisa mengakrabkan seluruh anggota keluarga.
3. Sekali-kali berikan kesempatan pada suami untuk melakukan kegiatan tanpa diganggu, misalnya membongkar mobil, browsing internet, atau membaca buku. Jangan menginterupsi kesukaan suami. Biarkan ia berkutat dengan hobi dan kesukaannya.
4. Jangan menuntut kerapian secara berlebihan. Hampir semua ibu rumah tangga pasti suka dengan rumah yang bersih. Tetapi tidak nyaman jika Anda terlalu berlebihan menanggapi barang-barang yang tidak pada tempatnya.
5. Temani suami menonton acara kesayangannya, walaupun Anda tidak terlalu suka acara tersebut. Suami pasti senang menjelaskan tentang acara favoritnya kepada Anda. Jadi jangan sungkan bertanya dengan nada halus tanpa perlu memberikan komentar miring tentang acara tersebut.
6. Tata rumah sehingga menyenangkan untuk dipandang. Sesuatu yang enak dilihat pasti membuat orang betah. Ini perlu dilakukan bukan hanya untuk suami, tapi juga untuk keluarga dan para tamu yang akan datang.
7. Sekali-sekali adakan acara keluarga dengan mengundang anggota keluarga suami. Salah satu cara untuk mengenali sifat suami adalah dengan mengenali keluarganya. Ajaklah mereka berkumpul dan suguhi dengan masakan andalan Anda. Keluarga suami senang, suami pun tambah cinta dengan Anda.
8. Dengarkan sungguh-sungguh dan tidak langsung memberikan penilaian saat suami bercerita tentang pengalamannya di kantor. Berikan masukan positif dan membangun, bukan komentar yang semakin menjatuhkan mentalnya.
9. Kirim anak-anak untuk menginap di rumah kakek-neneknya sehingga Anda dan suami memiliki waktu untuk berdua saja di rumah. Waktu untuk bermesraan dengan suami juga harus terus dipupuk. Salah satunya dengan "mencuri" waktu untuk berduaan. Lupakan dulu masalah yang ada. Sekarang saatnya Anda dan suami kembali "pacaran".
 10. Bangun lebih pagi dari suami dan siapkan makan paginya, walau sekadar roti bakar dan kopi. Sesibuk apa pun Anda di pagi hari, selipkan sedikit waktu untuk menyiapkan minum dan sarapan pagi untuk suami. Kalau dilakukan secara rutin, suami pasti akan selalu teringat nikmatnya kopi dan roti buatan Anda.
11. Lakukan ritual agama bersama suami dan anak-anak. Minta suami yang memimpin kegiatan tersebut. Hal ini bisa menjadi salah satu cara untuk menunjukkan bahwa Anda dan anak-anak hormat kepada suami.
12. Libatkan suami untuk membantu anak-anak belajar sesuai dengan bidang yang dikuasainya, misalnya matematika dan olahraga. Dengan begitu, sense of belonging atau rasa memiliki suami terhadap anak-anak akan semakin tercipta. Tawaran nongkrong di luar rumah pun akan ditampiknya demi kebersamaan dengan anak-anak.
13. Bila Anda pandai memasak, buatkan suami makanan kesukaannya setiap akhir minggu. Nasi goreng buatan Anda pasti akan terasa lebih lezat jika dimasak dengan penuh cinta.
14. Bila sedang membicarakan suatu masalah, jangan mengungkit-ungkit kesalahan suami di masa lalu. Lebih baik pikirkan bagaimana jalan keluar dan rencana ke depannya, bukan malah mundur ke belakang dan melihat ke masa lalu.
15. Bicaralah dengan nada rendah, tidak terburu-buru dan dengan kalimat yang tidak menggurui. Suami akan tidak suka jika Anda terlalu menggurui dan membuatnya seperti anak kecil yang harus selalu diberitahu.
16. Tetap tampil rapi dan menarik walaupun hanya di rumah. Jangan hanya berdandan bila akan ke kantor atau ke undangan pernikahan. Suami pasti akan lebih senang jika istrinya selalu memperhatikan penampilan ketika di rumah. Tidak perlu dandan berlebihan, yang penting tetap bersih dan enak untuk dilihat.
17. Bila berbeda pendapat dengan suami, dengarkan dulu pendapatnya, baru kemukakan pendapat Anda. Lakukan itu tanpa meremehkan pendapat suami. Komunikasi tidak akan berjalan lancar jika Anda dan suami berbicara berbarengan. Hargai pendapatnya walaupun berbeda dengan pikiran Anda. Toh, Anda juga ingin diperlakukan sama, kan?
18. Beri perhatian ekstra bila suami sedang sakit dan ajak anak-anak untuk melakukan hal yang sama. Orang yang sedang sakit pasti butuh perhatian. Apalagi jika itu suami Anda. Jangan menambah bebannya dengan keluhan dan masalah yang sebenarnya bisa diselesaikan nanti.
19. Banyak bersyukur atas apa yang telah diperoleh dari suami, bukan membandingkan harta benda dengan milik tetangga. Ada pepatah yang mengatakan bahwa rumput tetangga selalu lebih hijau. Ah, siapa bilang. Kalau Anda selalu bersyukur dengan pemberian suami, justru tetangga yang akan iri melihat keharmonisan keluarga Anda.
20. Ungkapkan rasa cinta dengan sentuhan, pelukan hangat, dan kata-kata yang menunjukkan penghargaan Anda kepada suami. Percayalah, tindakan ini pasti membuat suami tak bisa jauh-jauh dari Anda.
(Midya Desiani/Majalah Sekar)

Sumber : majalah sekar