Đổi số ra tiền (thành chữ) Code

[HONG HOAN]

Khi tiến hành đổi các số ra chữ bằng số tiền ta chỉ cần dán đoạn code này vào và truy nhập
Sau đó chuyển đổi bằng lệnh bình thường như =sorachu(đối tượng)
Chú ý: phải đổi sang font vni-times

Public Function SORACHU(so)
Dim Ketqua, Sotien, Nhom, Chu, Dich, S1, S2, S3  As String
Dim I, J, S As Integer
Dim hang, ngan, count
hang = Array("", "traêm ", "möôi ", "")
count = Array("", " moät ", " hai ", " ba ", " boán ", " naêm ", "saùu ", " baûy ", " taùm ", " chín ", "")
ngan = Array("", "ngaøn tyû ", "tyû ", "trieäu ", "ngaøn ", "")
If so = 0 Then
    Ketqua = " khoâng ñoàng "
Else
    If Abs(so) >= 1E+15 Then                              'Moät trieäu tyû
           Ketqua = " soá quaù lôùn "
       Else
        Ketqua = ""
        If (so) < 0 Then
            Ketqua = "AÂm"
        End If
        Sotien = Format(Abs(so), "###############0.00") ' 18 chöõ soá
                Sotien = Right(Space(15) & Sotien, 18)
        For I = 1 To 5
            Nhom = Mid(Sotien, I * 3 - 2, 3)
            If Nhom <> Space(3) And Nhom <> "000" Then
                Chu = ""
                S1 = Left(Nhom, 1)
                S2 = Mid(Nhom, 2, 1)
                S3 = Right(Nhom, 1)
                
                hang(3) = ngan(I)
                    For J = 1 To 3
                    Dich = ""
                    S = Val(Mid(Nhom, J, 1))
                    If S > 0 Then
                        Dich = count(S)
                        If S3 = "1" And S2 > "1" And J = 3 Then Dich = "moát "
                        If S = 5 And S2 <> "0" And J = 3 Then Dich = "laêm "
                        Dich = Dich & hang(J)
                        End If
                        
                        Select Case J
                            Case 1 And S1 = "0"
                                Dich = " khoâng traêm "
                            Case 2 And S = 1
                                Dich = "möôøi "
                            Case 3 And S = 0 And Val(Nhom) <> 0
                                Dich = hang(J)
                            Case 2 And S = 0 And Val(S3) > 0 And Len(Chu) > 0
                                Dich = "leû "
                            End Select
                                Chu = Chu & Dich
                        Next J
                                Ketqua = Ketqua & Chu
                            End If
                        Next I
                        End If
               End If
                    SORACHU = UCase(Left(Ketqua, 1)) & Mid(Ketqua, 2) & " ñoàng chaün."
    End Function

 

[standapro]

Chữ đàu tiên không viết hoa được vậy bạn.