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 !*
>
>
>
ctv_UDF_Terbilang_Nilai_Rapor_Cah_Sekolah.rar
Description: application/rar
