tailieunhanh - Hàm đọc số dùng mã Unicode

Các bước thực hiện như sau: 1. Mở CSDL Access. 2. Tạo một form đặt tên là FormTam, trên FormTam tạo hai label: LabSo, nhập chuỗi: “không một hai ba bốn năm sáu bảy tám chín mốt lẻ lăm mươi mười trăm ”, cuối chuỗi có một khoảng trắng. LabDonvi, nhập chuỗi: “đồng. nghìn triệu tỷ”, | Hàm đọc số dùng mã Unicode Các bước thực hiện như sau 1. Mở CSDL Access. 2. Tạo một form đặt tên là FormTam trên FormTam tạo hai label LabSo nhập chuỗi không một hai ba bốn năm sáu bảy tám chín mốt lẻ lăm mươi mười trăm cuối chuỗi có một khoảng trắng. LabDonvi nhập chuỗi đồng. nghìn triệu tỷ cuối chuỗi cũng có khoảng trắng. 3. Trong Module nhấn New để tạo mới một module với tên mặc định là Module1. Sau đó nhấn Design để vào cửa sổ soạn code và nhập đoạn mã sau Khai báo 2 biến toàn cục là 2 mảng chứa chuỗi ký tự số và chuỗi đơn vị được lấy từ LabSo và LabDonvi thông qua thủ tục Docchu và Docdonvi. Public Solay 0 To 15 As String Public Donvilay 0 To 4 As String Private Sub Docchu Lấy chuỗi chữ số từ LabSo đặt vào mảng Solay Dim tp Stp ii ii 0 tp Stp InStr tp Do While Stp 0 Solay ii Left tp Stp tp Right tp Len tp - Stp 1Stp InStr tp ii ii 1 Loop End Sub Private Sub Docdonvi Lấy chuỗi đơn vị từ LabDonvi đặt vào mảng Donvilay Dim tp Stp ii ii 0 tp Stp InStr tp Do While Stp 0 Donvilay ii Left tp Stp tp Right tp Len tp - Stp Stp InStr tp ii ii 1 Loop End Sub Tạo hàm đọc số Public Function DocVND Sodoc As String As String If Len Sodoc 12 Then DocVND So qua lon qua hang tram ty. Hay xem lai Exit Function End If Sodoc Round Sodoc 0 Dim Cht As String Dim fg0 As .