If you a developer that working in a project that involve printing invoice or something along the line, you must be needed to convert a series of numbers to a sentence that spells that numbers. It’s easy if you need the function in VB/C#/PHP or else, but how about crystal reports? Crystal Reports has a built in function called ToWords that could be used in a formula. But they only spell numbers in English, how about other language like Indonesia? So far what i found on google is using ULF to integrates a prebuilt dll into Crystal Report. But after a bit researching, I found that Custom Functions in crystal report could be used too.

I’m pretty much struggling converting my own algorithm (in VB.net) to Basic Syntax for Crystal Reports. One hurdle is that Crystal Reports seems cannot call Custom Functions Recursively, so i need to change how my algorithm works. The second hurdle is how “stupid” Crystal Reports handles variable types. The third hurdle is there’s no tools for debugging in Crystal Reports, i’m stuck with comment/uncomment thing for debugging :(.

Okay, here’s how i made the Custom Function, and The Custom Functions itself.

1. How to make Custom Function:

2. You need to make 4 Custom Function :

• Bilangan (a dictionary for how to spell number)
• DictDown + DictUp (dictionary for how to spell hundred, thousand etc)
• Terbilang - the function itself

Function Bilangan (x as Number)
Select Case  x
Case 0
Bilangan = “”
case 1
Bilangan = “satu ”
case 2
Bilangan = “dua ”
case 3
Bilangan = “tiga ”
case 4
Bilangan = “empat ”
case 5
Bilangan = “lima ”
case 6
Bilangan = “enam ”
case 7
Bilangan = “tujuh ”
case 8
Bilangan = “delapan ”
case 9
Bilangan = “sembilan ”
‘case 10
‘    Bilangan = “sepuluh ”
‘case 11
‘    Bilangan = “sebelas ”

End Select

End Function

—-

Function DictDown (x as Number) as String
Select Case  x
Case 0
DictDown = “ratus ”
case 1
DictDown = “”
case 2
DictDown = “puluh ”
End Select

End Function

—–

Function DictUp (x as Number) as STring
Select Case  x
Case 0
DictUp = “”
case 1
DictUp = “ribu ”
case 2
DictUp = “juta ”
case 3
DictUp = “milyar ”
case 4
DictUp = “triliun”
End Select

End Function

—–

Function Terbilang (x as Number) as String
Dim out as String
dim inp as String
dim temp as string
dim temp2 as string
dim add as string
Dim pjg, j As Number
Dim flagEmpty As Boolean
flagEmpty = True
out = “”
inp = cstr (x,0,”",”")
pjg = Len(inp)
temp = “”
temp2 = “”

For j = 0 To pjg - 1  Step 1
temp = Mid(inp,j+1, 1) ‘the string of the number which is processed right now

If (pjg - j) Mod 3 = 0 Then
flagEmpty = True
End If

If temp = “0″ Then
add = “”
ElseIf temp = “1″ And ((pjg - j) Mod 3 <> 1 Or (j = 0 And pjg <> 1)) Then
add = “”
If (pjg - j) Mod 3 = 2 Then
temp2 = Mid(inp,j + 2, 1) ‘if 12, then read the 2
If temp2 = “1″ Or temp2 = “0″ Then
add = add & “Se”
Else
add = add & bilangan(cdbl(temp2))
End If
If temp2 = “0″ Then
add = add & “puluh ”
Else
add = add & “belas ”
End If

j = j + 1 ‘This part read two number simultaneusly Example 112 it read 12 both.
Else
add = “Se”
add = add & dictDown((pjg - j) Mod 3)
End If
‘
flagEmpty = False
Else
add = bilangan(CDbl(temp)) & dictDown((pjg - j) Mod 3)
flagEmpty = False
End If

If (pjg - j) Mod 3 = 1 And flagEmpty = False Then
add = add & dictUp((pjg - j - 1) \ 3)
End If

out = out & add

Next
temp = UCase(Left(out, 1))
temp2 = Mid(out,2)
out = temp & temp2
Terbilang = out

End Function

—-

3. After you made the Functions you can call itu in a formula like this :

Btw, i haven’t tested this algorithm troughfully, maybe there’s still some mistakes. Please tell me if you find one.