Tùy chọn
Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
- Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
-
Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
ledangvan > 02-07-13, 03:21 PM
Mình đang làm một report có vướng mắc như sau :
Số tiền bằng số : ..................................... Số tiền bằng chữ : ..............................................................
.....................................................................................................................................................
Khi lên báo biểu nó sẽ thể hiện như sau :
Số tiền bằng số : 125.252.333 Số tiền bằng chữ : Một trăm hai mươi năm triệu, hai trăm năm mươi hai ngàn, ba trăm ba ba đồng chẵn.
Với báo biểu này yêu cầu ghi số tiền bằng chữ nối tiếp theo sau số tiền bằng số và xuống dòng
Với Access có bạn nào có biết và chỉ giúp tôi cách để ghi số tiền bằng chữ như trên không ? xin cảm ơn -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
khải nguyên > 02-07-13, 10:17 PM
Trong Diễn Đàn nhiều lắm , nhưng tiện đây cho bạn tham khảo luôn này :
Trong đó có 2 hàm : VND và USD thích dùng loại nào thì dùng
http://www.mediafire.com/download/jvru1i...%3DVND.rar
Số tiền bằng số (123456 ) : TextTHANHTIEN
Lấy nguồn cho phần số tiền viết bằng chữ = VND( TextTHANHTIEN )
là OK !
Chúc Thành Công Há ! có gì hồi âm sau nhé
Khải Nguyên -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
quan_pc > 03-07-13, 12:44 AM
gởi bài qua mail quan100157@gmail.com mình làm cho bạn -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
hadangpr > 03-07-13, 08:46 AM
Bạn tải về hàm đổi số ra chữ
tại 1 cái textbox gõ code vào ="số tiền bằng số: " & [ThanhTien] & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
ThanhTien: là cột tiền bằng số của bạn
làm như thế thì tiền bằng số và chữ sẽ nằm trên một ô và sẽ tự động xuống dòng. -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
paulsteigel > 03-07-13, 09:20 AM
(03-07-13, 08:46 AM)hadangpr Đã viết: Bạn tải về hàm đổi số ra chữ
tại 1 cái textbox gõ code vào ="số tiền bằng số: " & [ThanhTien] & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
ThanhTien: là cột tiền bằng số của bạn
làm như thế thì tiền bằng số và chữ sẽ nằm trên một ô và sẽ tự động xuống dòng.
Xin bổ sung một chút nữa. Nếu chỉ ghi [ThanhTien] thì số sẽ viết ra liền tù tì 012334343.... Hãy dùng thêm hàm Format nữa
Nếu bạn để dấu thập phân trong máy là "," thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#.##0,00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
Nếu bạn để dấu thập phân trong máy là "." thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#,##0.00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
Khi làm ứng dụng nghiêm túc thì ta phải xử lý vụ này tự động bằng cách kiểm tra xem dấu phân cách thập phân trong hệ thống là gì, từ đó chọn định dạng cho phù hợp.
Ví dụ tôi dùng giải pháp này:
Format([ThanhTien],iif(Cint("0,1")=0,"#,##0.00","#.##0,00"))
Hàm Cint("0,1")=0 nếu dấu phân cách thập phân trong hệ thống là "," và ngược lại nếu trả về false thì dấu phân cách là "."
Hy vọng điều này giúp được bạn! -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
ledangvan > 03-07-13, 09:49 AM
(03-07-13, 09:20 AM)paulsteigel Đã viết:
(03-07-13, 08:46 AM)hadangpr Đã viết: Bạn tải về hàm đổi số ra chữ
tại 1 cái textbox gõ code vào ="số tiền bằng số: " & [ThanhTien] & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
ThanhTien: là cột tiền bằng số của bạn
làm như thế thì tiền bằng số và chữ sẽ nằm trên một ô và sẽ tự động xuống dòng.
Xin bổ sung một chút nữa. Nếu chỉ ghi [ThanhTien] thì số sẽ viết ra liền tù tì 012334343.... Hãy dùng thêm hàm Format nữa
Nếu bạn để dấu thập phân trong máy là "," thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#.##0,00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
Nếu bạn để dấu thập phân trong máy là "." thì dùng như sau:
Tại 1 cái textbox gõ code vào ="số tiền bằng số: " & Format([ThanhTien],"#,##0.00") & " " & "số tiền bằng chữ: " & vnd(Sum([ThanhTien]))
Khi làm ứng dụng nghiêm túc thì ta phải xử lý vụ này tự động bằng cách kiểm tra xem dấu phân cách thập phân trong hệ thống là gì, từ đó chọn định dạng cho phù hợp.
Ví dụ tôi dùng giải pháp này:
Format([ThanhTien],iif(Cint("0,1")=0,"#,##0.00","#.##0,00"))
Hàm Cint("0,1")=0 nếu dấu phân cách thập phân trong hệ thống là "," và ngược lại nếu trả về false thì dấu phân cách là "."
Hy vọng điều này giúp được bạn!
Thanks các bác nhé, thế mà không nghĩ ra là cho cùng vào một textbox
-
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
ledangvan > 03-07-13, 10:15 AM
Làm cách của bạn paulsteigel được nhưng mình lại vướng là số tiền thành số và nói chung nó không in đúng theo mẫu (Ví dụ : Số tiền thành số phải được ghi từ nửa tờ A4 hắt về trước, xong tiếp đó mới đến số tiền bằng chữ -> Các bác hướng dẫn giúp tôi với -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
Noname > 03-07-13, 10:48 AM
Vấn đề là khoảng trắng thôi mà! Bạn canh được! -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
ledangvan > 03-07-13, 11:00 AM
(03-07-13, 10:48 AM)Noname Đã viết: Vấn đề là khoảng trắng thôi mà! Bạn canh được!
Mình làm được rồi các bạn ạ :Mình làm như sau : =" " & " " & "( " & Writing([Sotien])
Ở phần số tiền bằng số : .... Vẫn giữ nguyên; Phần chữ : Số tiền bằng chữ vẫn giũ nguyên -> Đặt phần =" ...." nằm trước (dưới) rồi copy đặt phần số tiền bằng số : ... đè lên trên như vậy lúc in ra vẫn có số tiền bằng số và số tiền bằng chữ được ghi tiếp sau khoảng trắng theo mình căn chỉnh , Cảm ơn các bạn đã hướng dẫn
http://www.mediafire.com/download/w52hn6...19v/In.mdb -
RE: Xin giúp cách tạo số tiền bằng chữ liên tục sau số tiền bằng số trong report.
paulsteigel > 03-07-13, 01:39 PM
(03-07-13, 11:00 AM)ledangvan Đã viết:
Bạn thay đoạn trắng dài dài bằng cái này Space(165) (tức là lặp lại khoảng trắng 165 lần)(03-07-13, 10:48 AM)Noname Đã viết: Vấn đề là khoảng trắng thôi mà! Bạn canh được!
Mình làm được rồi các bạn ạ :Mình làm như sau : =" " & " " & "( " & Writing([Sotien])
Ở phần số tiền bằng số : .... Vẫn giữ nguyên; Phần chữ : Số tiền bằng chữ vẫn giũ nguyên -> Đặt phần =" ...." nằm trước (dưới) rồi copy đặt phần số tiền bằng số : ... đè lên trên như vậy lúc in ra vẫn có số tiền bằng số và số tiền bằng chữ được ghi tiếp sau khoảng trắng theo mình căn chỉnh , Cảm ơn các bạn đã hướng dẫn
http://www.mediafire.com/download/w52hn6...19v/In.mdb