Public Function VND(BAONHIEU) Dim Ketqua, Sotien, Nhom, Chu, Dich, S1, S2, S3 As String Dim I, J , Vitri As Byte, S As Double Dim Hang, Doc, Dem If Sotien = 0 Then Ketqua = "Không đồng " Else IF abs(BAONHIEU)>=1E+15 Then Ketqua ="Số này quá lớn !" Else If Sotien < 0 Then Ketqua ="Âm" Else Ketqua = Space(0) End if Sotien = Format(Abs(BAONHIEU),"##############0.00") Sotien = Right(space(15)&Sotien, 18) Hang = Array("Non","trăm","mươi","gì đó") Doc = Array("Non","ngàn tỷ","tỷ","triệu","ngàn","đồng","xu") Dem = Aray("Non","một","hai","ba","bốn","năm","sáu","bảy","tám","chín") For I = 1 to 6 Nhom = Mid( Sotien,I*3-2,3) If Nhom <> Space(3) Then Select Case Nhom Case "000" If I = 5 Then Chu = "đồng" & Space(1) Else Chu = Space(0) End if Case ".00",",00" Chu = "chẵn" Case Else S1 = Left(Nhom,1) S2 = Mid(Nhom,2,1) S3 = Right(Nhom,1) Chu = Space(0) Hang(3) = Doc(I) For J = 1 to 3 Dich = Space(0) S = Val(Mid(nhom,J,1)) If S > 0 Then Dich = Dem (S) & Space(1) & Hang(J) & Space(1) End if Select Case J Case 2 And S= 1 Dich = "mười" & Space(1) Case 3 And S = 0 And Nhom<> Space(2) & "0" Dich = Hang(J) & Space(1) Case 3 And S = 5 And S2<> Space(1) And S2 <>"0" Dich = "l" & Mid(Dich,2) Case 2 And S = 0 And S3 <>"0" If(S1>="1" And S1 <="9") Or (S1="0" And I = 4) Then Dich ="lẻ" & Space(1) End if End select Chu = Chu & Dich Next J End Select Vitri = Instr (1,Chu,"mươi một",1) If Vitri >0 Then Mid(Chu, Vitri,9) ="mươi mốt" Ketqua = Ketqua & Chu End if Next I End if End if VND = Ucase(Left(Ketqua,1)) & Mid(Ketqua,2) End Function . Public Function VND( BAONHIEU) Dim Ketqua, Sotien, Nhom, Chu, Dich, S1, S2, S3 As String Dim I, J , Vitri As Byte,. Mid(Chu, Vitri,9) ="mươi mốt" Ketqua = Ketqua & Chu End if Next I End if End if VND = Ucase(Left(Ketqua,1)) & Mid(Ketqua,2) End Function