Copy paste semuanya aja function2 dibawah ini (semuanya harus ikut karena
saling berkaitan)
Function SayDollars(Asli As String) As String
If Val(Asli) = 0 Then
SayDollars = "Free of charges"
Else
Dim Nilai As Currency
Nilai = Round(Val(Asli), 2)
Dim x As Variant
'x = Split(Nilai, ".")
x = Split(Asli, ".")
If UBound(x) = 0 Then
SayDollars = Replace(TellMe(Str(x(0))), " ", " ") + " U.S. DOLLARS"
Else
SayDollars = TellMe(Str(x(0))) + " AND "
SayDollars = Replace(Replace(SayDollars +
IIf(Trim(Angka2(Trim(Str(x(1))))) = "", "NO", Angka2(Trim(Str(x(1))))) + "
CENTS U.S. DOLLARS", " ", " "), " ", " ")
End If
SayDollars = Replace(SayDollars, " ", " ")
SayDollars = Replace(SayDollars, "AND AND", "AND")
End If
End Function
Function TellMe(Nilai As String) As String
Dim TMP(5) As String
Dim A(4) As String
TMP(0) = Format(Nilai, "000000000000")
TMP(1) = Trim(DIGIT3(Mid(TMP(0), 1, 3)))
TMP(2) = Trim(DIGIT3(Mid(TMP(0), 4, 3)))
TMP(3) = Trim(DIGIT3(Mid(TMP(0), 7, 3)))
TMP(4) = Trim(DIGIT3(Mid(TMP(0), 10, 3)))
If TMP(1) <> "" Then
If Trim(TMP(1)) = "ONE" Then
A(1) = TMP(1) + " BILION AND "
Else
A(1) = TMP(1) + " BILIONS AND "
End If
End If
If TMP(2) <> "" Then
If Trim(TMP(2)) = "ONE" Then
A(2) = TMP(2) + " MILION AND "
Else
A(2) = TMP(2) + " MILIONS AND "
End If
End If
If TMP(3) <> "" Then
If Trim(TMP(3)) = "ONE" Then
A(3) = TMP(3) + " THOUSAND AND "
Else
A(3) = TMP(3) + " THOUSANDS AND "
End If
End If
If TMP(4) <> "" Then A(4) = TMP(4)
TellMe = A(1) & A(2) & A(3) & A(4)
End Function
Function DIGIT3(Nilai As String) As String
If Nilai = "000" Then
Nilai = ""
Else
If Left(Nilai, 2) = "00" Then
Nilai = Right(Nilai, 1)
Else
If Left(Nilai, 1) = "0" Then Nilai = Right(Nilai, 2)
End If
End If
Select Case Len(Nilai)
Case Is = 3
If Left(Nilai, 1) = "1" Then
DIGIT3 = Angka1(Left(Nilai, 1)) + " HUNDRED " + IIf(Right(Nilai,
2) <> "00", "AND ", "") + Angka2(Right(Nilai, 2))
Else
DIGIT3 = Angka1(Left(Nilai, 1)) + " HUNDREDS " + IIf(Right(Nilai,
2) <> "00", "AND ", "") + Angka2(Right(Nilai, 2))
End If
Case Is = 2
DIGIT3 = Angka2(Right(Nilai, 2))
Case Is = 1
DIGIT3 = Angka1(Right(Nilai, 1))
Case Else: DIGIT3 = ""
End Select
End Function
Function Angka2(Nilai As String) As String
If Left(Nilai, 2) = "00" Then
Angka2 = Angka1(Nilai)
Else
Select Case Nilai
Case Is = "10": Angka2 = " TEN"
Case Is = "11": Angka2 = " ELEVEN"
Case Is = "12": Angka2 = " TWELVE"
Case Is = "13": Angka2 = " THIRTEEN"
Case Is = "14": Angka2 = " FOURTEEN"
Case Is = "15": Angka2 = " FIFTEEN"
Case Is = "16": Angka2 = " SIXTEEN"
Case Is = "17": Angka2 = " SEVENTEEN"
Case Is = "18": Angka2 = " EIGHTEEN"
Case Is = "19": Angka2 = " NINETEEN"
Case Else:
If Len(Nilai) = 1 Then
Angka2 = Angka1(Nilai)
Else
If Left(Nilai, 1) = "1" Then
Angka2 = Angka1A(Left(Nilai, 1)) + "TEEN" +
Angka1(Right(Nilai, 1))
Else
If Right(Nilai, 1) <> "0" Or Left(Nilai, 1) = "8" Then
If Left(Nilai, 1) = "8" Then
Angka2 = "EIGHTY" + Angka1(Right(Nilai, 1))
Else
Angka2 = Angka1A(Left(Nilai, 1)) + "TY" +
Angka1(Right(Nilai, 1))
If Left(Angka2, 2) = "TY" Then Angka2 = Mid(Angka2, 4,
Len(Angka2))
End If
Else
Angka2 = Angka1A(Left(Nilai, 1)) + "TY"
End If
End If
End If
End Select
End If
End Function
Function Angka1(Nilai As String)
Select Case Format(Left(Nilai, 1), "00")
Case Is = "00": Angka1 = ""
Case Is = "01": Angka1 = " ONE "
Case Is = "02": Angka1 = " TWO "
Case Is = "03": Angka1 = " THREE "
Case Is = "04": Angka1 = " FOUR "
Case Is = "05": Angka1 = " FIVE "
Case Is = "06": Angka1 = " SIX "
Case Is = "07": Angka1 = " SEVEN "
Case Is = "08": Angka1 = " EIGHT "
Case Is = "09": Angka1 = " NINE "
End Select
End Function
Function Angka1A(Nilai As String)
Select Case Left(Nilai, 1)
Case Is = "2": Angka1A = "TWEN"
Case Is = "3": Angka1A = "THIR"
Case Is = "4": Angka1A = "FOR"
Case Is = "5": Angka1A = "FIF"
Case Is = "6": Angka1A = "SIX"
Case Is = "7": Angka1A = "SEVEN"
Case Is = "8": Angka1A = "EIGHT"
Case Is = "9": Angka1A = "NINE"
End Select
End Function
_____
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of McBoenBoen
Sent: Friday, March 16, 2007 10:01 AM
To: [email protected]; [email protected]; Waroeng VB
Subject: [Programmer-VB] Urgent : Terbilang Bhs Inggris
Dear All,
minta tolong dong source code terbilang dabahas inggris
urgent bangt nih..
thxx b4
mc
_____
Food
<http://answers.yahoo.com/dir/index;_ylc=X3oDMTFvbGNhMGE3BF9TAzM5NjU0NTEwOAR
fcwMzOTY1NDUxMDMEc2VjA21haWxfdGFnbGluZQRzbGsDbWFpbF90YWcx?link=ask&sid=39654
5367> fight? Enjoy some healthy debate
in the Yahoo!
<http://answers.yahoo.com/dir/index;_ylc=X3oDMTFvbGNhMGE3BF9TAzM5NjU0NTEwOAR
fcwMzOTY1NDUxMDMEc2VjA21haWxfdGFnbGluZQRzbGsDbWFpbF90YWcx?link=ask&sid=39654
5367> Answers Food Drink Q&A.
