ฟังก์ชัน Format

ตัวอย่าง

ใช้ฟังก์ชัน Format ในนิพจน์    คุณสามารถใช้ รูปแบบ ได้ทุกที่ที่คุณสามารถใช้นิพจน์ ตัวอย่างเช่น คุณสามารถใช้ในคิวรีเป็นส่วนหนึ่งของนามแฝงของเขตข้อมูล หรือในคุณสมบัติ แหล่งตัวควบคุม ของกล่องข้อความบนฟอร์มหรือรายงาน ตัวอย่างต่อไปนี้แสดงนิพจน์ที่คุณอาจใช้ในคุณสมบัติ ตัวกรอง ของรายงานเพื่อจํากัดผลลัพธ์เป็นระเบียนจากสัปดาห์ก่อนหน้า

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

ในตัวอย่างนี้ แหล่งระเบียนของรายงานมีเขตข้อมูลชื่อ วันที่ ซึ่งมีวันที่ที่แต่ละระเบียนถูกปรับเปลี่ยน และถูกใช้ในรายงาน เมื่อคุณเรียกใช้รายงาน ผลลัพธ์ของรายงานจะถูกกรองเพื่อแสดงเฉพาะระเบียนที่มีสัปดาห์สําหรับค่าในเขตข้อมูล วันที่ (Format([Date],"ww")) เท่ากับสัปดาห์ก่อนหน้า (Format(Now(),"ww")-1)

ใช้ฟังก์ชัน Format ในโค้ด VBA    

ตัวอย่างนี้แสดงการใช้ฟังก์ชัน Format ที่หลากหลายเพื่อจัดรูปแบบค่าโดยใช้ทั้งรูปแบบที่มีชื่อและรูปแบบที่ผู้ใช้กําหนดเอง สําหรับตัวคั่นวันที่ (/) ตัวคั่นเวลา (:) และ AM/ PM ผลลัพธ์ที่จัดรูปแบบจริงที่แสดงโดยระบบของคุณจะขึ้นอยู่กับการตั้งค่าตําแหน่งที่ตั้งของคอมพิวเตอร์ที่โค้ดกําลังทํางานอยู่ เมื่อมีการแสดงเวลาและวันที่ในสภาพแวดล้อมการพัฒนา รูปแบบเวลาแบบสั้นและรูปแบบวันที่แบบสั้นของตําแหน่งที่ตั้งของโค้ดจะถูกใช้ เมื่อมีการแสดงโดยเรียกใช้โค้ด รูปแบบเวลาแบบสั้นและรูปแบบวันที่แบบสั้นของตําแหน่งที่ตั้งของระบบจะถูกใช้ ซึ่งอาจแตกต่างจากตําแหน่งที่ตั้งของโค้ด สําหรับตัวอย่างนี้ จะถือว่าเป็นตําแหน่งที่ตั้งภาษาอังกฤษแบบสหรัฐอเมริกา

MyTime และ MyDate จะแสดงในสภาพแวดล้อมการพัฒนาโดยใช้การตั้งค่าเวลาสั้นๆ ของระบบปัจจุบันและการตั้งค่าวันที่แบบสั้น

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".

การใช้ รูปแบบ ที่มีสตริงที่มีความยาวเป็นศูนย์

ใน Microsoft Access เวอร์ชัน 2.0 และเวอร์ชันก่อนหน้า คุณสามารถใช้ฟังก์ชัน Format เพื่อส่งกลับค่าหนึ่งสําหรับ สตริงความยาวเป็นศูนย์ และอีกค่าหนึ่งสําหรับค่า ตัวอย่างเช่น คุณสามารถใช้นิพจน์รูปแบบเช่นต่อไปนี้ด้วยฟังก์ชัน Format เพื่อส่งกลับค่าสตริงที่เหมาะสมจากโค้ด:

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

ใน Microsoft Access เวอร์ชัน 97 และใหม่กว่า คุณต้องทดสอบแยกกันสําหรับตัวพิมพ์ Null แล้วส่งกลับค่าที่เหมาะสมตามผลลัพธ์ ตัวอย่างเช่น คุณสามารถใช้ฟังก์ชัน IIf ในนิพจน์ด้วยฟังก์ชัน Format ดังต่อไปนี้:

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

การเปลี่ยนแปลงนี้จะนําไปใช้เมื่อคุณใช้ฟังก์ชัน รูปแบบ เพื่อจัดรูปแบบสตริงที่ขึ้นอยู่กับว่าเป็นสตริงที่มีความยาวเป็นศูนย์หรือค่า Null นิพจน์รูปแบบอื่นๆ ที่ใช้กับฟังก์ชัน Format จะยังคงทํางานได้เหมือนในเวอร์ชันก่อนหน้า

ถ้าคุณแปลงฐานข้อมูลจาก Microsoft Access เวอร์ชัน 2.0 และเวอร์ชันก่อนหน้าเป็น Microsoft Access 2002 หรือเวอร์ชันที่ใหม่กว่า คุณต้องเปลี่ยนโค้ดเพื่อทดสอบแยกต่างหากสําหรับตัวพิมพ์ Null