Hàm Format

Ví dụ

Sử dụng hàm Format trong một biểu thức    Bạn có thể sử dụng Định dạng bất cứ nơi nào bạn có thể sử dụng biểu thức. Ví dụ: bạn có thể sử dụng biệt danh trường trong truy vấn như một phần của biệt danh trường hoặc trong thuộc tính Nguồn Điều khiển của hộp văn bản trên biểu mẫu hoặc báo cáo. Các ví dụ sau đây hiển thị biểu thức bạn có thể sử dụng trong thuộc tính Filter của báo cáo để giới hạn đầu ra trong các bản ghi từ tuần trước.

Format([Date],"ww")=Format(Now(),"ww")-1

Trong ví dụ này, nguồn bản ghi của báo cáo có một trường có tên là Ngày, chứa ngày từng bản ghi cụ thể đã được sửa đổi và được sử dụng trên báo cáo. Khi bạn chạy báo cáo, kết quả của báo cáo sẽ được lọc để chỉ hiển thị những bản ghi có giá trị trong tuần trong trường Ngày (Format([Date],"ww")) bằng tuần trước đó (Format(Now(),"ww")-1).

Sử dụng hàm Format trong mã VBA    

Ví dụ này hiển thị các cách dùng khác nhau của hàm Format để định dạng giá trị bằng cách dùng cả định dạng đã đặt tên và định dạng do người dùng xác định. Đối với dấu tách ngày (/), dấu tách thời gian (:) và ký tự SA/CH, đầu ra được định dạng thực tế được hiển thị bởi hệ thống của bạn phụ thuộc vào thiết đặt bản địa của máy tính mà mã đang chạy. Khi thời gian và ngày tháng được hiển thị trong môi trường phát triển, định dạng thời gian ngắn và định dạng ngày ngắn của ngôn ngữ mã được sử dụng. Khi được hiển thị bằng mã đang chạy, định dạng thời gian ngắn và định dạng ngày ngắn của ngôn ngữ hệ thống được sử dụng, có thể khác với ngôn ngữ mã. Ví dụ: ngôn ngữ tiếng Anh Mỹ được giả định.

MyTime và MyDate hiển thị trong môi trường phát triển bằng cách sử dụng cài đặt thời gian ngắn hiện tại của hệ thống và cài đặt ngày ngắn.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")
' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s")    ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")    ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' Returns "Wednesday,
    ' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23)    ' Returns "23".
' User-defined formats.
MyStr = Format(5459.4, "##,##0.00")    ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00")    ' Returns "334.90".
MyStr = Format(5, "0.00%")    ' Returns "500.00%".
MyStr = Format("HELLO", "<")    ' Returns "hello".
MyStr = Format("This is it", ">")    ' Returns "THIS IS IT".

Sử dụng Định dạng với chuỗi độ dài bằng 0

Trong phiên bản Microsoft Access 2.0 trở xuống, bạn có thể sử dụng hàm Format để trả về một giá trị cho giá trị chuỗi độ dài bằng 0 giá trị khác cho một giá trị. Ví dụ: bạn có thể sử dụng biểu thức định dạng như sau với hàm Format để trả về giá trị chuỗi thích hợp từ mã:

Dim varX As Variant
Dim varStrX As Variant
' Assign some value to varStrX and pass to Format function.
varX = Format(varStrX, "@;ZLS;Null")

Trong Microsoft Access phiên bản 97 trở lên, bạn phải kiểm tra riêng cho trường hợp Null , sau đó trả về giá trị thích hợp dựa trên kết quả. Ví dụ: bạn có thể sử dụng hàm IIf trong một biểu thức với hàm Format như sau:

varX = IIf(IsNull(varStrX),"Null", Format(varStrX, "@;ZLS"))

Thay đổi này chỉ áp dụng khi bạn sử dụng hàm Format để định dạng chuỗi phụ thuộc vào việc đó là chuỗi có độ dài bằng 0 hay giá trị Null. Các biểu thức định dạng khác được sử dụng với hàm Format tiếp tục hoạt động như trong các phiên bản trước.

Nếu bạn chuyển đổi cơ sở dữ liệu từ Microsoft Access phiên bản 2.0 trở xuống sang Microsoft Access 2002 trở lên, bạn phải thay đổi mã để kiểm tra riêng cho trường hợp Null.