Format string trong VBA Access

1. Hàm Format
2. Định dạng chuỗi
3. Định dạng số
4. Định dạng tiền tệ
5. Định dạng phần trăm
6. Định dạng ngày/giờ
7. Hàm FormatDateTime
8. Định dạng tùy chỉnh
9. Định dạng trong Form hoặc Report
10. Một vài kinh nghiệm khi sử dụng format

1. Hàm Format

Hàm Format là công cụ chính để định dạng dữ liệu trong VBA Access.
Cú pháp:

Format(Expression, FormatString)

    Expression: Giá trị cần định dạng.
    FormatString: Chuỗi định dạng hoặc từ khóa.

2. Định dạng chuỗi

Bạn có thể định dạng chuỗi theo các mẫu cụ thể, chẳng hạn như số điện thoại hoặc mã số.

Ví dụ:

Dim phone As String
phone = Format("1234567890", "(@@@) @@@-@@@@") ' Kết quả: "(123) 456-7890"

3. Định dạng số

Định dạng số có thể sử dụng các mẫu như "#,##0.00", "0.00", hoặc các hàm hỗ trợ.

Ví dụ:

Dim number As String
number = Format(12345.678, "#,##0.00") ' Kết quả: "12,345.68"

4. Định dạng tiền tệ

Sử dụng định dạng "Currency" hoặc ký hiệu tiền tệ trong hệ thống.

Ví dụ:

Dim currency As String
currency = Format(1500, "Currency") ' Kết quả: "$1,500.00" (tuỳ ngôn ngữ hệ thống)

5. Định dạng phần trăm

Hàm FormatPercent hỗ trợ định dạng số thành tỷ lệ phần trăm.

Ví dụ:

Dim percent As String
percent = FormatPercent(0.85, 2) ' Kết quả: "85.00%"

6. Định dạng ngày/giờ

Sử dụng các ký tự như dd, mm, yyyy, hh, nn, ss hoặc từ khóa hệ thống (vd: vbShortDate, vbLongTime).

Ví dụ:

Dim formattedDate As String
formattedDate = Format(Now, "dd/mm/yyyy") ' Kết quả: "17/12/2024"

Dim formattedTime As String
formattedTime = Format(Now, "hh:nn:ss AM/PM") ' Kết quả: "10:15:30 PM"

7. Hàm FormatDateTime

Định dạng ngày/giờ nhanh theo kiểu hệ thống.

Ví dụ:

Dim dateTime As String
dateTime = FormatDateTime(Now, vbLongDate) ' Kết quả: "Tuesday, December 17, 2024"

8. Định dạng tùy chỉnh

Kết hợp nhiều kiểu định dạng để tạo chuỗi hiển thị phù hợp.

Ví dụ:

Dim result As String
result = "Hôm nay là " & Format(Now, "dd/mm/yyyy") & ", lúc " & Format(Now, "hh:nn AM/PM")
' Kết quả: "Hôm nay là 17/12/2024, lúc 10:15 AM"

9. Định dạng trong Form hoặc Report

Định dạng dữ liệu trước khi hiển thị trên Form hoặc Report.

Ví dụ:

Me.txtFormattedTotal.Value = Format(12345.67, "#,##0.00") ' Kết quả: "12,345.67"

10. Một vài kinh nghiệm khi sử dụng format

    Các mẫu định dạng bị ảnh hưởng bởi locale settings (cài đặt vùng) trên hệ thống.
    Để đảm bảo nhất quán, nên kiểm tra mẫu định dạng với cấu hình máy tính người dùng.

Nếu cần các ví dụ cụ thể hơn, bạn hãy yêu cầu!

Tìm kiếm: