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 !* > > > > 2011/4/21 HerrSoe <[email protected]> > >> mudah mudahan selain beguna bagiku juga bermanfaat bagi orang lain. >> semua doa baik 'bwat mbak siti, pak kid dan semua konco-konconya >> >> *~belajar excel ? 'gak akan 'nyesel !* >> >> >> >
