TAILIEUCHUNG - Hàm đọc số dùng mã Unicode trong Access

Do môi trường VBA chưa hỗ trợ Unicode đầy đủ nên việc thiết lập hàm đọc số tiếng Việt với mã (font) Unicode trong Access cũng như Excel có khó khăn. Bài viết này giới thiệu một cách thiết lập hàm đọc số dùng font Unicode trong Access (bạn cũng có thể áp dụng trong Excel, VB.). 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. | Hàm đọc sô dùng mã Unicode trong Access Do môi trường VBA chưa hỗ trợ Unicode đầy đủ nên việc thiết lập hàm đọc số tiếng Việt với mã font Unicode trong Access cũng như Excel có khó khăn. Bài viết này giới thiệu một cách thiết lập hàm đọc số dùng font Unicode trong Access bạn cũng có thể áp dụng trong Excel VB. . 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 Boolean Dim fg1 As Boolean Dim So As String Dim ch As String Dim tp As String Dim i As Byte Dim dv Dim chs Docchu Gọi hàm đọc chữ số chs Solay Docdonvi Gọi hàm đọc đơn vị dv Donvilay Do While Sodoc Cht If Len Sodoc 0 Then If Len Sodoc 3 Then So Right Sodoc 3 Else So Right Sodoc Len Sodoc End If Sodoc Left Sodoc Len Sodoc - Len So If Left So 1 0 And Mid So 2 1 0 And Right So 1 0 .

Trọng Hiếu 80 5 pdf

Upload

Bấm vào đây để xem trước nội dung

Tải xuống

TÀI LIỆU LIÊN QUAN

Bài giảng 1 giới thiệu môn học Lý thuyết thông tin: - Nguyễn Phương Thái

9 179 5

BÀI GIẢNG MÔN HỌC VỀ LÝ THUYẾT THÔNG TIN

63 188 5

Giáo trình: Lý thuyết thông tin

95 147 5

Giáo trình về lý thuyết thông tin

228 109 0

Đề thi lý thuyết bảng A khối Tiểu học môn Tin học

5 128 2

Đề thi học kì 2 môn Tin học lớp 6 năm 2018 có đáp án (Lý thuyết) - Trường THCS Phú Đa

4 181 2

Đề cương ôn tập lý thuyết nghề Tin học năm học 2017-2018

13 132 0

Giáo án Tin học lớp 7 - Tiết 73: Kiểm tra học kì 2 (Lý thuyết)

6 141 0

Giáo án Tin học lớp 7 - Tiết 37: Kiểm tra học kì 1 (Lý thuyết)

6 124 0

Lý thuyết Tin học lớp 10 – Bài 9: Tin học và xã hội

4 83 1

TÀI LIỆU XEM NHIỀU

Một Case Về Hematology (1)

8 462051 59

Giới thiệu :Lập trình mã nguồn mở

14 23742 74

Tiểu luận: Tư tưởng Hồ Chí Minh về xây dựng nhà nước trong sạch vững mạnh

13 11116 535

Câu hỏi và đáp án bài tập tình huống Quản trị học

14 10355 458

Phân tích và làm rõ ý kiến sau: “Bài thơ Tự tình II vừa nói lên bi kịch duyên phận vừa cho thấy khát vọng sống, khát vọng hạnh phúc của Hồ Xuân Hương”

3 9635 106

Ebook Facts and Figures – Basic reading practice: Phần 1 – Đặng Tuấn Anh (Dịch)

249 8630 1148

Tiểu luận: Nội dung tư tưởng Hồ Chí Minh về đạo đức

16 8356 423

Mẫu đơn thông tin ứng viên ngân hàng VIB

8 7942 2249

Đề tài: Dự án kinh doanh thời trang quần áo nữ

17 6976 260

Giáo trình Tư tưởng Hồ Chí Minh - Mạch Quang Thắng (Dành cho bậc ĐH - Không chuyên ngành Lý luận chính trị)

152 6694 1606

TỪ KHÓA LIÊN QUAN

TÀI LIỆU MỚI ĐĂNG

Giáo án mầm non chương trình đổi mới: Gia đình vui nhộn

4 353 1 26-06-2024

Đóng mới oto 8 chỗ ngồi part 9

10 144 1 26-06-2024

báo cáo hóa học:" Increased androgen receptor expression in serous carcinoma of the ovary is associated with an improved survival"

6 124 1 26-06-2024

MẪU CHỨNG CHỈ QUẢN LÝ VŨ KHÍ, VẬT LIỆU NỔ, CCHT

1 142 0 26-06-2024

Giáo trình phân tích phương trình vi phân viết dưới dạng thuật toán đặc tính của hệ thống p1

5 126 0 26-06-2024

ĐỀ THI THỬ ĐẠI HỌC 2009 – THPT ĐÔNG SƠN 1 – LẦN 2 – MÔN TOÁN

8 123 1 26-06-2024

Thương hiệu sản phẩm làng nghề: Đã ít, lại thiếu tính cạnh tranh

5 139 0 26-06-2024

Quy Trình Canh Tác Cây Bông Vải

8 129 0 26-06-2024

Chương 10: Các phương pháp tính quá trình quá độ trong mạch điện tuyến tính

57 199 5 26-06-2024

Tổng hợp Đề thi học sinh giỏi môn Sinh lớp 9 cấp huyện vòng 1 năm 2010-2011

12 201 2 26-06-2024

TÀI LIỆU HOT

Mẫu đơn thông tin ứng viên ngân hàng VIB

8 7942 2249

Giáo trình Tư tưởng Hồ Chí Minh - Mạch Quang Thắng (Dành cho bậc ĐH - Không chuyên ngành Lý luận chính trị)

152 6694 1606

Ebook Chào con ba mẹ đã sẵn sàng

112 3996 1299

Ebook Tuyển tập đề bài và bài văn nghị luận xã hội: Phần 1

62 5685 1193

Ebook Facts and Figures – Basic reading practice: Phần 1 – Đặng Tuấn Anh (Dịch)

249 8630 1148

Giáo trình Văn hóa kinh doanh - PGS.TS. Dương Thị Liễu

561 3633 665

Giáo trình Sinh lí học trẻ em: Phần 1 - TS Lê Thanh Vân

122 3845 601

Giáo trình Pháp luật đại cương: Phần 1 - NXB ĐH Sư Phạm

274 4378 543

Tiểu luận: Tư tưởng Hồ Chí Minh về xây dựng nhà nước trong sạch vững mạnh

13 11116 535

Bài tập nhóm quản lý dự án: Dự án xây dựng quán cafe

35 4291 483