Formula Sql Server - Konversi Angka ke Huruf

Dim terbilang1 As String, terbilang2 As String
Dim ratusan As String, ratusan1 As String, ratusan2 As String

Dim i As Double, j As Double, k As number
Dim l As Double, m As Double, n As number

i = Round ({#RTotal2})
'i=[Angka_Nominal] Nilai Yang diambil

formula=""

Do While i > 1
Select Case i
Case Is >= 1000000000000
j = 1000000000000
terbilang2 = "Triliar "
Case Is >= 1000000000
j = 1000000000
terbilang2 = "Miliar "
Case Is >= 1000000
j = 1000000
terbilang2 = "Juta "
Case Is >= 10000
j = 1000
terbilang2 = "Ribu "
Case Is >= 1
j = 1
terbilang2 = ""
End Select
k = Int(i / j)

' --BEGIN MENGHITUNG RATUSAN

l = k
ratusan = ""
Do While l > 0
Select Case l
Case Is >= 1000
m = 1000
ratusan2 = "Ribu "
Case Is >= 100
m = 100
ratusan2 = "Ratus "
Case Is >= 20
m = 10
ratusan2 = "Puluh "
Case Is >= 1
m = 1
ratusan2 = ""
End Select
n = Int(l / m)

' --BEGIN MENGHITUNG SATUAN

If m >= 10 And m < 100 Then
Select Case n
Case 1
ratusan1 = "SE"
Case 2
ratusan1 = "DUA "
Case 3
ratusan1 = "TIGA "
Case 4
ratusan1 = "EMPAT "
Case 5
ratusan1 = "LIMA "
Case 6
ratusan1 = "ENAM "
Case 7
ratusan1 = "TUJUH "

Case 8
ratusan1 = "DELAPAN "
Case 9
ratusan1 = "SEMBILAN "
End Select
Else
Select Case n
Case 1
If m >= 10 Then
ratusan1 = "SE"
Else
ratusan1 = "SATU "
End If
Case 2
ratusan1 = "DUA "
Case 3
ratusan1 = "TIGA "
Case 4
ratusan1 = "EMPAT "
Case 5
ratusan1 = "LIMA "
Case 6
ratusan1 = "ENAM "
Case 7
ratusan1 = "TUJUH "
Case 8
ratusan1 = "DELAPAN "
Case 9
ratusan1 = "SEMBILAN "
Case 10
ratusan1 = "SEPULUH "
Case 11
ratusan1 = "SEBELAS "
Case 12
ratusan1 = "DUA BELAS "
Case 13
ratusan1 = "TIGA BELAS "
Case 14
ratusan1 = "EMPAT BELAS "
Case 15
ratusan1 = "LIMA BELAS "
Case 16
ratusan1 = "ENAM BELAS "
Case 17
ratusan1 = "TUJUH BELAS "
Case 18
ratusan1 = "DELAPAN BELAS "
Case 19
ratusan1 = "SEMBILAN BELAS "
End Select
End If

' --END MRNGHITUNG SATUAN

ratusan = ratusan & ratusan1 & ratusan2
l = l - (m * n)
Loop
terbilang1 = ratusan

' --END MENGHITUNG RATUSAN

i = i - (j * k)
formula = formula & terbilang1 & terbilang2
Loop

formula="TERBILANG : " + formula + " RUPIAH"