Mình có viết thử 1 hàm dịch số 3 chữ số sang chữ. Nhưng khi sử dụng trong trang tính thì không có chữ việt
Các bạn cho mình biết cần định dạng Font gì giờ?!
(Ở đây mình đã sửa lại Font rồi!) Máy nhà dùng Unicode.
Option Explicit
Function BaSo(So As Integer) As String
On Error Resume Next
Dim iJ As Integer, SoDau As Integer, Giua As Integer, Cuoi As Integer
Dim Chuoi As String: ReDim MSo(1 To 9) 'As String
If So < 0 Then
BaSo = "âm ": So = Abs(So)
ElseIf So = 0 Then
BaSo = "không ": Exit Function
End If
If So > 999 Then So = So Mod 1000
Chuoi = "một hai ba bốn năm sáu bảy tám chín "
For iJ = 1 To 9
MSo(iJ) = RTrim(Mid(Chuoi, 4 * So - 3, 4)) & " "
Next iJ
SoDau = So \ 100: Cuoi = So Mod 10
Giua = (So \ 10) Mod 10
If SoDau > 0 Then BaSo = BaSo & MSo(SoDau) & "trăm "
If SoDau = 0 Then BaSo = BaSo & "không trăm "
If Giua > 1 Then
BaSo = BaSo & MSo(Giua) & "mươi "
ElseIf Giua = 1 Then
BaSo = BaSo & "mười "
ElseIf Giua = 0 And Cuoi > 0 Then
BaSo = BaSo & "lẽ "
End If
If Giua = 0 And Cuoi = 5 Then
BaSo = BaSo & "năm "
ElseIf Giua = 0 And Cuoi = 1 Then
BaSo = BaSo & "một"
ElseIf Cuoi = 1 And Giua = 1 Then
BaSo = BaSo & "một"
ElseIf Cuoi = 1 And Giua > 1 Then
BaSo = BaSo & "mốt"
ElseIf Cuoi > 1 And Cuoi <> 5 Then
BaSo = BaSo & MSo(Cuoi)
ElseIf Cuoi = 5 Then
BaSo = BaSo & "lăm"
End If
BaSo = RTrim$(BaSo)
End Function
Các bạn cho mình biết cần định dạng Font gì giờ?!
(Ở đây mình đã sửa lại Font rồi!) Máy nhà dùng Unicode.
Sửa lần cuối: