Ðề: Đổi số thành chữ
Sao bạn không đưa le6n diễn đàn luôn khỏi mất công mình và người khác.
Code đọc số Unicode:
Function VNUD(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 baonhieu = 0 Then
KetQua =...