Format Function, Format$ Function
VBA Function, ฟังก์ชัน Format ส่งออกค่าเป็นประเภทข้อมูล Variant (String)
ด้วยรูปแบบที่กำหนดตาม expression
VBA Function, ฟังก์ชัน Format$ ส่งออกค่าเป็นประเภทข้อมูล String ด้วยรูปแบบที่กำหนดตาม
expression
ไวยากรณ์
Format(expression [,format [,firstdayofweek [,firstweekofyear]]]
)
Format$(expression [,format [,firstdayofweek [,firstweekofyear]]]
)
ไวยากรณ์แต่ละส่วนของฟังก์ชัน Format และฟังก์ชัน Format$ มีรายละเอียด
คือ
| ส่วน |
รายละเอียด |
| expression |
บังคับ, เป็น Expression ที่เป็นจริง |
| format |
ไม่บังคับ, เป็นชื่อ Format หรือ expression ของรูปแบบที่ผู้ใช้กำหนดเอง |
| firstdayofweek |
ไม่บังคับ,เป็นค่าคงที่เพื่อระบุวันแรกของสัปดาห์ |
| firstweekofyear |
ไม่บังคับ, เป็นค่าคงที่เพื่อระบุสัปดาห์แรกของปี |
การตั้งค่า
ค่าอากิวเมนต์ firstdayofweek กำหนดค่าได้เป็น
| ค่าคงที่ |
ค่า |
รายละเอียด |
| vbUseSystem |
0
|
ตั้งค่าตาม NLS API |
| vbSunday |
1 |
วันอาทิตย์ (ค่าเริ่มต้น) |
| vbMonday |
2 |
วันจันทร์ |
| vbTuesday |
3 |
วันอังคาร |
| vbWednesday |
4 |
วันพุธ |
| vbThursday |
5 |
วันพฤหัสบดี |
| vbFriday |
6 |
วันศุกร์ |
| vbSaturday |
7 |
วันเสาร์ |
ค่าอากิวเมนต์ firstweekofyear กำหนดค่าได้เป็น
| ค่าคงที่ |
ค่า |
รายละเอียด |
| vbUseSystem |
0
|
ตั้งค่าตาม NLS API |
| vbFirstJan1 |
1 |
เริ่มนับจากสัปดาห์ที่มี วันที่ 1 มกราคม
(ค่าเริ่มต้น) |
| vbFirstFourdays |
2 |
เริ่มนับจากสัปดาห์แรกของปีที่มีวันอย่างน้อย
4 วัน |
| vbFirstFullWeek |
3 |
เริ่มนับจากสัปดาห์แรกของปีที่มีวันครบ
7 วัน |
ลักษณะการประยุกต์
| การจัดรูปแบบ |
ขั้นตอน |
| ตัวเลข (Number) |
ใช้การกำหนดรูปแบบตัวเลขชนิด Predefine named หรือ สร้างรูปแบบตัวเลข
โดยผู้ใช้กำหนดเอง |
| วันที่และเวลา (Date/time) |
ใช้การกำหนดรูปแบบวันที่และเวลาชนิด Predefine named หรือ
สร้างรูปแบบวันที่และเวลาโดยผู้ใช้กำหนดเอง |
| วันที่และเวลา แบบ Serial numbers |
ใช้การกำหนดรูปแบบวันที่และเวลา หรือ รูปแบบตัวเลข |
| ข้อความ (String) |
สร้างรูปแบบข้อความ โดยผู้ใช้กำหนดเอง |
ถ้าการกำหนดรูปแบบไม่มีการระบุอากิวเมนต์ format ฟังก์ชัน Format จะมีการทำงานเหมือนกับฟังก์ชัน
Str ถึงแม้จะมีข้อกำหนดตาม international นอกจากนี้ รูปแบบตัวเลขค่าบวกที่เป็นข้อความโดยใช้ฟังก์ชัน
Format ไม่ต้องมีการเว้นพื้นที่สำหรับเครื่องหมาย
ดูเพิ่มเติม
ฟังก์ชัน Format ที่กำหนดด้วยรูปแบบต่างๆ, ฟังก์ชัน
Str
การประยุกต์ใน Access
ใน Microsoft Access เวอร์ชัน 1.x และ 2.0 กรณีค่าว่าง (Null) ฟังก์ชัน
Format สามารถส่งคืนค่าที่เป็น zero-length string และค่าว่างได้
Dim varX As Variant, varStrX As Variant
' กำหนดค่าบางค่าให้ varStrX และส่งผ่านให้ฟังก์ชัน Format
varX = Format(varStrX, "@; ZLS; Null")
แต่ Microsoft Access 97 เป็นต้นมา กรณีค่าว่าง (Null) ต้องมีการแยกทดสอบเพื่อเลือกเฉพาะค่าที่ต้องการ
เช่น การใช้ฟังก์ชัน IIF
varX = IIf(IsNull(varStrX), "Null", Format(varStrX, "@;
ZLS"))
ตัวอย่าง
การประยุกต์กับรูปแบบวันที่และเวลา (Date/time) โดยกำหนดค่าเริ่มต้นเป็น
Short date
Dim myTime, myDate, myStr
myTime = #16:04:35#
myDate = #May 17, 1998#
' ส่งออกค่าเวลา ตามรูปแบบที่ผู้ใช้กำหนดเองในตัวอย่างกำหนดเป็น long time:
myStr = Format( Time, "Long Time")
' ส่งออกค่าวันที่ ตามรูปแบบที่ผู้ใช้กำหนดเองในตัวอย่างกำหนดเป็น long
date:
myStr = Format(Time, "Long Date")
' ส่งออกค่า "16:4:35"
myStr = Format(myTime, "h:m:s")
' ส่งออกค่า "04:04:35 PM"
myStr = Format(myTime, "hh:mm:ss AMPM")
' ส่งออกค่า "Sunday, May 17 1998"
myStr = Format(myDate, "dddd, mmm d, yyyy")
' ถ้าส่วน format ไม่มีการกำหนด ค่าที่ส่งคืนออกมาเป็นข้อความ (String)
' ส่งออกค่า "23"
myStr = Format(23)
' การกำหนดรูปแบบโดยผู้ใช้กำหนดเอง
' ส่งออกค่า "5,459.40"
myStr = Format(5459.4, "##,##0.00")
' ส่งออกค่า "5459.40"
myStr = Format(5459.4, "###0.00")
' ส่งออกค่า "500.00%"
myStr = Format(5, "0.00%")
' ส่งออกค่า "hello"
myStr = Format("HELLO", "<")
' ส่งออกค่า "WELCOME"
myStr = Format("welcome", ">")
|
