Chuyển định dạng ngày tháng năm sinh từ Date sang Text
Bài 2 : Sắp xếp tiếng Việt theo font Unicode - Xuân Thanh
Bài 1 : Sắp xếp tiếng Việt theo font chử VNIWindows (VNI) - Xuân Thanh
Góp ý bài viết sắp thứ tự chữ Việt Unicode
Sắp xếp tiếng Việt theo vần
Hàm đọc số tiền dùng mã Unicode trong Access
1/ Chép dưới đây vào một modul
2/ Trong form hoặc report tạo một texbox có Control Source là =DocSo([txtSoTien]), trong đó txtSoTien là textbox chứa Số Tiền cần đọc ra chữ
------------------------------------
Public Function DocSo(Number As Double)
Dim MyArray
Dim Str As String
If Number >= 1E+18 Then DocSo = "#NUM!": Exit Function
Str = Format(Fix(Abs(Number)), "000000000000000000")
MyArray = Array("không ", "m" & ChrW(7897) & "t ",...
Hàm đổi số thành chữ trong Access
Public Function DocSo(Number As Double)
Dim MyArray
Dim Str As String
If Number >= 1E+18 Then DocSo = "#NUM!": Exit Function
Str = Format(Fix(Abs(Number)), "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, ","ngàn, ", "t" & ChrW(7927) & ", ","tri" & ChrW(7879)...
Hàm chuyển đổi font chữ từ Unicode sang VNI và ngược lại
*Hàm chuyển từ font Unicode sang Vni
Public Function Uni2Vni(nhapUni As String) As String
'---------------------------------------------------------------------------------------
' Function : Uni2Vni
' Author : phantronghiep07
' Phone : 0915 080 282
'---------------------------------------------------------------------------------------
Dim maAcii, Vni, loi, suaLoi
Dim i As Integer
maAcii = Array(7845, 7847, 7849, 7851, 7853, 226, 225, 224, 7843, 227, 7841, 7855, 7857, 7859, _
...

Ý kiến trao đổi