Trả về một giá trị kiểu Dài chứa số ký tự trong một chuỗi hoặc số byte cần thiết để lưu một biến.
Cú pháp
Len(chuỗi* | *tên_biến)
Cú pháp hàm Len có các đối số sau đây:
| Tranh luận | Mô tả |
|---|---|
| Chuỗi | Bất kỳ biểu thức chuỗi hợp lệ nào. Nếu chuỗi chứa Null, sẽ trả về Null. |
| tên_biến | Bất kỳ tên biến hợp lệ nào. Nếu tên_biến chứa Null, sẽ trả về Null. Nếu tên_biến là một Biến_thể, hàm Len coi nó giống như một Chuỗi và luôn luôn trả về số ký tự chứa trong đó. |
Chú thích
Một (và chỉ có một) trong hai tham đối có thể xảy ra phải được xác định. Với các kiểu do người dùng xác định, Hàm Len trả về kích cỡ như được ghi vào tệp.
Lưu ý
Dùng hàm LenB với dữ liệu byte chứa trong một chuỗi, như trong các ngôn ngữ bộ ký tự byte kép (DBCS). Thay vì trả về số ký tự trong một chuỗi, LenB trả về số byte dùng để biểu thị chuỗi đó. Với kiểu do người dùng xác định, LenB trả về kích cỡ trong bộ nhớ, bao gồm mọi phần tử đệm. Đối với mã mẫu sử dụng LenB, hãy xem ví dụ thứ hai trong chủ đề ví dụ.
Lưu ý
Len có thể không xác định được số byte lưu trữ thực tế cần thiết khi được dùng với các chuỗi có độ dài biến đổi trong kiểu dữ liệu do người dùng xác định.
Ví dụ về truy vấn
| Biểu thức | Kết quả |
|---|---|
| SELECT ProductID, Len(ProductID) AS ProductLen FROM ProductSales; | Trả về các giá trị từ trường "ID_Sản_phẩm" và độ dài của các giá trị đó trong các cột ProductLen. |
Ví dụ về VBA
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ đầu tiên dùng hàm Len để trả về số ký tự trong một chuỗi hoặc số byte cần thiết để lưu một biến số. Loại ... End Type block defining CustomerRecord must be preceded by the keyword Private if it appears in a class module. Trong mô-đun chuẩn, một câu lệnh Type có thể là Công khai.
Type CustomerRecord ' Define user-defined type.
ID As Integer ' Place this definition in a
Name As String * 10 ' standard module.
Address As String * 30
End Type
Dim Customer As CustomerRecord ' Declare variables.
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' Initialize variable.
MyLen = Len(MyInt) ' Returns 2.
MyLen = Len(Customer) ' Returns 42.
MyLen = Len(MyString) ' Returns 11.
MyLen = Len(MyCur) ' Returns 8.
Ví dụ thứ hai sử dụng LenB và hàm do người dùng xác định (LenMbcs) để trả về số lượng ký tự byte trong một chuỗi nếu ANSI được sử dụng để đại diện cho chuỗi.
Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Dim MyString, MyLen
MyString = "ABc"
' Where "A" and "B" are DBCS and "c" is SBCS.
MyLen = Len(MyString)
' Returns 3 - 3 characters in the string.
MyLen = LenB(MyString)
' Returns 6 - 6 bytes used for Unicode.
MyLen = LenMbcs(MyString)
' Returns 5 - 5 bytes used for ANSI.