Coba macro dibawah dikembangkan sampai ribuan
Ini hasil kopipes dari milis sebelah
Sorry tanggung bantunya
Regards
================================================
Option Explicit
Function f1Digit(n)
Dim TxtAngka(0 To 9) As String
TxtAngka(0) = ""
TxtAngka(1) = "satu "
TxtAngka(2) = "dua "
TxtAngka(3) = "tiga "
TxtAngka(4) = "empat "
TxtAngka(5) = "lima "
TxtAngka(6) = "enam "
TxtAngka(7) = "tujuh "
TxtAngka(8) = "delapan "
TxtAngka(9) = "sembilan "
f1Digit = TxtAngka(n)
End Function
Private Function f3Digit(n As Integer) As String
Dim TxtAngka As String
Dim Ratusan As Byte, Puluhan As Byte, Satuan As Byte
TxtAngka = Right("000" & Trim(Str(n)), 3)
Ratusan = Val(Mid(TxtAngka, 1, 1))
Puluhan = Val(Mid(TxtAngka, 2, 1))
Satuan = Val(Mid(TxtAngka, 3, 1))
f3Digit = ""
Select Case Ratusan
Case Is = 0
f3Digit = ""
Case Is = 1
f3Digit = "seratus "
Case Is > 1
f3Digit = f1Digit(Ratusan) & "ratus "
End Select
Select Case Puluhan
Case Is = 0
f3Digit = f3Digit & f1Digit(Satuan)
Case Is = 1
If Satuan = 0 Then f3Digit = f3Digit & "sepuluh "
If Satuan = 1 Then f3Digit = f3Digit & "sebelas "
If Satuan > 1 Then f3Digit = f3Digit & f1Digit(Satuan) & "belas
"
Case Is > 1
f3Digit = f3Digit & f1Digit(Puluhan) & "puluh " &
f1Digit(Satuan)
End Select
End Function
++++++++++++++++++++++++++++++++++++++++
ketik "Rp.13.400,43" di kolom lain akan tertulis secara otomatis "tiga
belas ribu
Regards
LiP
**********************************************************************************************
This e-mail is confidential. If you are not the intended recipient, you must
not disclose or use the information contained in it. If you have received this
mail in error, please tell us
immediately by return e-mail, and delete the document.
Diese E-Mail ist vertraulich. Wenn Sie nicht der beabsichtigte Empfaenger sind,
duerfen Sie die Informationen nicht offen legen oder benutzen. Wenn Sie diese
E-Mail durch
einen Fehler bekommen haben, teilen Sie uns dies bitte umgehend mit, indem Sie
diese E-Mail an den Absender zuruecksenden. Bitte loeschen Sie danach diese
E-Mail.
**********************************************************************************************
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/mailplus/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/mailplus/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
