terma kasih masukannya ada 3 tiga versi yang saya buat
1. mengikuti kehendak peminta (itulah yg sedang anda baca) (berupa UDF) 2. mengikuti kehendak saya sendiri (dlm bentuk FORMULA 999_99) mungkin anda belum baca, di posed dimili sjusteru sebelum no.1 3 dalam bentuk UDF tetapi mengikuti kehendak saya sendiri ini sudah lama dibuat tetapi baru di lepas & di umumkan tadi pagi) (mungkin juga belum anda baca) ketiganya masih dapat diunduh di http://www.box.net/shared/43dkx9ai46 (dua file) http://www.box.net/shared/1vsgpfbsbm (1 file) saya kutipkan email saya 19 april 2011 pukul 05:05 AM (satu thread dengan mail yg pak stein baca, tetapi pak stein hanya baca satu itu saja ya..) " Hasil yg diinginkan pak muza, dari rentang 00 sampai 99 diucapkan secara *"diluar bahasa indonesia baku"* ketika nilainya masih dibawah 0,10 diuapkannya dengan KOMA NOL SATU, KOMA NOL DUA, KOMA NOL SEMBILAN (harus ada kata NOL didepannya) Karena jika 0,01 diucapkan KOMA SATU bisa bertabrakan dengan 0,10 yg juga bisa dicuapkan dengan 0,1 karena punya VALUE yg sama... Mudah mudahan hal seperti ini juga menjadi pertimbangan pak guru yg ingin mengajarkan bahasa indonesia dengan agak baek dan agak beiber eh salah, agak bener.." 2011/4/25 Stein Berg <[email protected]> > > > komentar ya dikit, > misal : 23,45 = "*Dua puluh tiga koma empat lima*" > bukan "*Dua Puluh Tiga koma Empat Puluh Lima*", sebab empat *bukan puluhan > *. > Contoh lagi, 7,10 = "Tujuh koma satu nol" > Apa lagi kalau ini akan digunakan pada raport. > > STBerg, Be-Excel, Be-Smart. Regards..... > > > Pada 22 April 2011 10:40, STDEV(i) <[email protected]> menulis: > > >> >> Sub Subject: >> *UDF Terbilang dengan Pengucapan Khusus seperti Nilai Rapor* >> >> >> kok bom aprilnya gak ketahuan sih.. >> >> *dengan cara spt itu * >> *99.01 *diterjemahkan sembilan puluh sembilan *koma satu* >> *99.10* diterjemahkan sembilan puluh sembilan *koma sepuluh* >> >> sekilas sepertinya benar tetapi sebenarnya salah >> karena* koma satu* dan *koma sepuluh* itu sami mawon >> >> *harusnya* >> *99.01* diterjemahkan: sembilan puluh sembilan koma *nol satu* >> >> berikut ini code seharusnya (menunggu protes tapi ndak ada yg protes..) >> >> Function Terbilang(Bil As Double) As String >> ' siti Vi / modified 21 April 2011 / Hari Kartini >> ' TERBILANG dengan 2 desimal diucapkan secara khusus >> ' seperti dlm Rapor Nilai "Cah Sekolah" >> '--------------------------------------------------- >> Dim Utuh As Long, Pecah As Long >> Dim strUtuh As String, strPecah As String >> Utuh = Int(Bil): Pecah = Round((Bil - Utuh) * 100, 0) >> If Utuh = 0 Then strUtuh = "Nol " Else strUtuh = Translator(Utuh) >> Select Case Pecah >> Case 0: strPecah = "Nol Nol" >> Case Is < 10: strPecah = "Nol " & Translator(Pecah) >> Case Else: strPecah = Translator(Pecah) >> End Select >> Terbilang = WorksheetFunction.Proper(strUtuh & " Koma " & strPecah) >> End Function >> >> file unduhan di url ini, juga sudah di update >> http://www.box.net/shared/43dkx9ai46 >> >> *~belajar excel ? 'gak akan 'nyesel !* >> >> >>
