Terimakasih sebelumnya mas Kurniawan,
ada yang lupa sedikit, rencananya source ini tidak saya pakai di Form VB nya
tapi saya letakkan di Function di databse SQL Server...
apakah scrip ini bisa juga di letakkan di SQL Server mas?
maaf ngerepotin,
thx b4
Y Kurniawan <[EMAIL PROTECTED]> wrote:
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 fight? Enjoy some healthy debate
in the Yahoo! Answers Food Drink Q&A.
---------------------------------
Be a PS3 game guru.
Get your game face on with the latest PS3 news and previews at Yahoo! Games.
