VB Net - Konversi Angka Ke Huruf Dengan

Pada Pembelajaran VB .Net kali ini adalah cara untuk Konversi Angka Ke Huruf Dengan VB .Net
Dengan ini Angka bisa menjadi bilangan berbilang.

Contoh = 100.000
Terbilang "Sepuluh Ribu"

Fungsi ini biasa kami gunakan pada Aplikasi Versi 3.0

Berikut Source Codenya :
 Public Function Terbilang(ByVal nilai As Long) As String
        Dim bilangan As String() = {"", "SATU", "DUA", "TIGA", "EMPAT", "LIMA", _
       "ENAM", "TUJUH", "DELAPAN", "SEMBILAN", "SEPULUH", "SEBELAS"}
        If nilai < 12 Then
            Return " " & bilangan(nilai)
        ElseIf nilai < 20 Then
            Return Terbilang(nilai - 10) & " BELAS"
        ElseIf nilai < 100 Then
            Return (Terbilang(CInt((nilai \ 10))) & " PULUH") + Terbilang(nilai Mod 10)
        ElseIf nilai < 200 Then
            Return " seratus" & Terbilang(nilai - 100)
        ElseIf nilai < 1000 Then
            Return (Terbilang(CInt((nilai \ 100))) & " RATUS") + Terbilang(nilai Mod 100)
        ElseIf nilai < 2000 Then
            Return " seribu" & Terbilang(nilai - 1000)
        ElseIf nilai < 1000000 Then
            Return (Terbilang(CInt((nilai \ 1000))) & " RIBU") + Terbilang(nilai Mod 1000)
        ElseIf nilai < 1000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000))) & " JUTA") + Terbilang(nilai Mod 1000000)
        ElseIf nilai < 1000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000))) & " MILYAR") + Terbilang(nilai Mod 1000000000)
        ElseIf nilai < 1000000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000000))) & " TRILYUN") + Terbilang(nilai Mod 1000000000000)
        Else
            Return (Terbilang("NOL"))
        End If
    End Function
End Module
Jika Pembelajaran diatas bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)

Salam,
BelajarVB.com

Subscribe to receive free email updates:

0 Response to "VB Net - Konversi Angka Ke Huruf Dengan"

Post a Comment