Cần giúp đỡ về hàm đổi số thành chữ (1 người xem)

[nhoa18]

Em có Code này, nhưng khi áp dụng thì nó bị sai từ: "chín => chƯn". Pro nào có cách xữ lý vấn đề này không giúp mình với. Đang cần gấp:

CODE:

Public Function VND(BaoNhieu)
If Val(BaoNhieu) = 0 Then
KetQua = "Kh«ng ®ång."
Else
If Abs(BaoNhieu) > 1E 15 Then
KetQua = "Sè qu¸ lín"
Else
If BaoNhieu < 0 Then KetQua = "¢m"

 

[Hong.Van]

Em có Code này, nhưng khi áp dụng thì nó bị sai từ: "chín => chƯn". Pro nào có cách xữ lý vấn đề này không giúp mình với. Đang cần gấp:

CODE:


Dem = Array("None", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chƯn")

Theo bạn, bạn sẽ thay chữ gì vào chữ "chƯn" nói trên

 

[nhoa18]

Thì là chữ: chín đó.
Minh đang sử dụng font TCVN bạn à.
Cái này hồi trước không thấy lỗi, giờ nó thành ra thế này đó

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau