Cho em xin một module hoàn chỉnh

[tienduyet]

Em đã tham khảo khá nhiều các đoạn code của các bậc đàn anh, nhưng chưa có code nào chuẩn toàn vẹn ( >=12 chữ số)
Vậy nên, mong anh, chị cho em xin một module Đổi số tiền ra VNĐ hoàn chỉnh (trong đó số tiền ít nhất là >=12 chữ số), trong đó đọc được cả số lẻ.
Ví dụ: 1.234.567.890 --> đọc được là: .... tám trăm chín mươi đồng chẵn./.
hoặc: 888.888.888.888 -> Tám trăm tám mươi tám tỷ tám trăm tám mươi tám triệu tám trăm tám mươi tám ngàn tám trăm tám mươi tám đồng chẵn./.
Cảm ơn anh chị nhiều!

 

[muontennguoi]

Ðề: Cho em xin một module hoàn chỉnh

Thật ra các cách đọc số sang chữ không có giới hạn nào cả.
Dùng các chương trình đọc số có sẵn và sửa lại đôi chút là có thể đọc số đến hàng trăm chữ số.
Những giới hạn đó là do tác giả lười và thấy mình không cần xài đến những số quá lớn.

Xem 1 đoạn chương trình đọc số trong Excel ở đây:
http://danketoan.com/forum/showthread.php?p=193550#post193550
Có thể đọc con số đến vài trăm chữ số.
Các hàm sử dụng là các hàm xử lý chuỗi.

Quy tắc đọc trong chương trình đó là:
Đọc như Mỹ đọc tiếng Việt, rồi sau đó chỗ nào nó đọc không đúng giọng người Việt thì chỉnh lại cho nó.
Ví dụ: người Việt đọc "Năm mươi mốt" chứ không đọc "Năm mươi một"
Quan sát số 123.456 ta sẽ đọc là 1 trăm 2 mươi 3 ngàn 4 trăm 5 mươi 6
Nghĩa là ta cứ chèn vào giữa từng con số 1 hàng (đơn vị, trăm, chục, ngàn ...) của số đó.
Sau đó, sẽ dẫn đến những trường hợp như là 502 sẽ thành "5 trăm 0 mươi 2".
Khi đó, giống như ta dạy thằng Mỹ đọc: "Đừng đọc là 'không mươi' mà hãy đọc là 'lẻ' mới đúng điệu Việt Nam".

Cứ thế. Đơn giản.
Bạn là người Bắc thì dạy nó đọc số kỉêu người Bắc (nghìn, linh, nhăm ...).
Bạn là người Mã Lai thì dạy nó đọc kiểu Mã Lai ...
Cứ quy tắc ngôn ngữ mà dạy máy đọc. Tiếng Anh, Mã, Hàn .. gì gì thì cũng cứ thế mà làm.

 

[thaibao1]

Ðề: Cho em xin một module hoàn chỉnh

copy code đó vào access lại sai. còn ở exel lại tốt. Bạn sửa lại code cho access đi

 

[muontennguoi]

Ðề: Cho em xin một module hoàn chỉnh

1. insert một cái module vào cho access.
2. copy và paste đoạn code từ excel vào.
3. ở dòng đầu tiên của module có dòng "Option Compare database" sửa lại thành "Option Compare Binary".
4. enjoy and relax.

Chú ý:
trong code gọi hàm doctien(FirstArg As Object) thì bạn cần nhớ truyền tham số là một object (giống như trong Excel bạn đưa nguyên cell cho hàm doctien() tự xử luôn).
ví dụ:
Private Sub Text4_BeforeUpdate(Cancel As Integer)
Form_vidu1.Label7.Caption = doctien(Form_vidu1.Text4)
End Sub

Ngoài ra trong sử dụng nên bẫy lỗi hoặc xử lý các tình huống khác.
Đoạn chương trình trong excel tôi gửi chỉ là đoạn thô nhằm gợi ý cho bạn viết chương trình chứ không phải để copy nguyên xi mà xài.