Mọi người làm ơn cho mình hỏi đối với máy Macbook dùng cách nào để chuyển số thành chữ được. Trước dùng windows thì quen cài các Add-Ins rồi, giờ chuyển sang máy mac không chạy file exe được nên không biết làm thế nào
Mac OSX vẫn dùng add-ins và vẫn dùng đoạn code ví dụ
sau:
Public Function VND[So As Double] As String
Dim myArray
Dim str As String
str = Format[Fix[Abs[So]], "000000000000000000"]
myArray = Array["không ", "m" & ChrW[7897] & "t ", "hai ", "ba ", "b" & ChrW[7889] & "n ", "n" & ChrW[259] & "m ", "s·u ", "b" & ChrW[7843] & "y ", "tám ", "chín ", "tri" & ChrW[7879] & "u, ", "nghìn", "t" & ChrW[7927] & ", ", "tri" & ChrW[7879] & "u, ", "nghìn, ", "", "tr" & ChrW[259] &
"m ", "m" & ChrW[432] & ChrW[417] & "i ", "khÙng " & "m" & ChrW[432] & ChrW[417] & "i" & " khÙng ", "khÙng " & "m" & ChrW[432] & ChrW[417] & "i", "linh", "m" & ChrW[432] & ChrW[417] & "i" & " khÙng", "m" & ChrW[432] & ChrW[417] & "i", "m" & ChrW[432] & ChrW[417] & "i" & " n" & ChrW[259] & "m", "m" & ChrW[432] & ChrW[417] & "i" & " l" & ChrW[259] & "m", "m" & ChrW[7897]
& "t " & "m" & ChrW[432] & ChrW[417] & "i", "m" & ChrW[432] & ChrW[7901] & "i", "m" & ChrW[432] & ChrW[417] & "i" & " m" & ChrW[7897] & "t", "m" & ChrW[432] & ChrW[417] & "i" & " m" & ChrW[7889] & "t", "¬m ", ChrW[273] & ChrW[7891] & "ng" & " ", "v‡ ", "xu "]
'MyArray = Array["không ", "m" & ChrW[7897] & "t ", "hai ", "ba ", "b" & ChrW[7889] & "n ", "n" & ChrW[259] & "m ", "s·u
", "b" & ChrW[7843] & "y ", "t·m ", "chÌn ", "tri" & ChrW[7879] & "u, ", "nghÏn, ", "t" & ChrW[7927] & ", ", "tri" & ChrW[7879] & "u, ", "nghÏn, ", "", "tr" & ChrW[259] & "m ", "m" & ChrW[432] & ChrW[417] & "i ", "khÙng " & "m" & ChrW[432] & ChrW[417] & "i" & " khÙng ", "khÙng " & "m" & ChrW[432] & ChrW[417] & "i", "l" & ChrW[7867], "m" & ChrW[432] & ChrW[417] & "i" & " khÙng", "m" &
ChrW[432] & ChrW[417] & "i", "m" & ChrW[432] & ChrW[417] & "i" & " n" & ChrW[259] & "m", "m" & ChrW[432] & ChrW[417] & "i" & " l" & ChrW[259] & "m", "m" & ChrW[7897] & "t " & "m" & ChrW[432] & ChrW[417] & "i", "m" & ChrW[432] & ChrW[7901] & "i", "m" & ChrW[432] & ChrW[417] & "i" & " m" & ChrW[7897] & "t", "m" & ChrW[432] & ChrW[417] & "i" & " m" & ChrW[7889]
& "t", "¬m ", ChrW[273] & ChrW[7891] & "ng" & " ", "v‡ ", "xu "]
If Abs[So] > 999999999999999# Then
MsgBox "So qua lon, duoi nghin ty [Len[dayso]