TypeName Function
VBA Function, ส่งออกค่าเป็นประเภทข้อมูล String ที่แสดงสารสนเทศของตัวแปร
ไวยากรณ์
TypeName(varname )
อากิวเมนต์ varname ต้องการค่าตัวแปรใดๆยกเว้น ตัวแปรที่ผู้ใช้กำหนดประเภทข้อมูลใดๆ
ลักษณะการประยุกต์
ข้อความที่ส่งออกมาโดยฟังก์ชัน TypeName มีรายการ คือ
| ข้อความส่งออก |
ตัวแปร |
| object type |
อ๊อบเจคที่มีประเภทข้อมูลอ๊อบเจค |
| Byte |
Byte value (ค่าไบต์) |
| Integer |
Integer (จำนวนเต็ม) |
| Long |
Long integer (จำนวนเต็มแบบ Long) |
| Single |
Single-precision floating-point number (จำนวนจริงแบบ
Single) |
| Double |
Double-precision floating-point number (จำนวนจริงแบบ
Double) |
| Currency |
Currency value (ค่าการเงิน) |
| Decimal |
Decimal value (ค่าทศนิยม) |
| Date |
Date value (ค่าวันที่) |
| String |
String (ข้อความ) |
| Boolean |
Boolean value (ค่าทางตรรกะ) |
| Error |
An error value (ค่าผิดพลาด) |
| Empty |
Uninitialized (ยังไม่ได้กำหนดค่า) |
| Null |
No valid data (ค่าว่าง) |
| Object |
อ๊อบเจค |
| Unknown |
เป็นอ๊อบเจคที่ไม่ทราบประเภท |
| Nothing |
ตัวแปรอ๊อบเจคที่ไม่มีการอ้างถึงอ๊อบเจค |
ถ้า varname ส่งออกค่าเป็นข้อความที่เป็นมีอยู่ในรายการจะส่งค่า ข้อความที่มีวงเล็บเปล่า
เช่น ถ้า varname ส่งค่าเป็น array ของเลขจำนวนเต็ม (Integer) ฟังก์ชัน TypeName
จะส่งค่าเป็น Integer()
ดูเพิ่มเติม
ฟังก์ชัน IsArray, ฟังก์ชัน
IsDate, ฟังก์ชัน IsEmpty, ฟังก์ชัน
IsError, ฟังก์ชัน IsMissing,
ฟังก์ชัน IsNull, ฟังก์ชัน
IsNumeric, ฟังก์ชัน IsObject,
ฟังก์ชัน VarType, ประเภทข้อมูล Variant
ตัวอย่าง
ตัวอย่างฟังก์ชัน TypeName ในการส่งออกสารสนเทศของตัวแปร
' ประกาศตัวแปร
Dim NullVar, MyType, StrVar As String, IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
' กำหนดค่าเป็น Null
NullVar = Null
' ส่งออกค่าเป็น "String"
MyType = TypeName(StrVar)
' ส่งออกค่าเป็น "Integer"
MyType = TypeName(IntVar)
ตัวอย่างประยุกต์ใน Access
ตัวอย่างฟังก์ชันที่สร้างตัวแปรอ๊อบเจคหลายตัวและส่งผ่านไปยังฟังก์ชัน TypeName
Sub ObjectTypes()
Dim dbs As Database, tdf As TableDef
Dim fld As Field
' เรียกฐานข้อมูลปัจจุบัน
Set dbs = CurrentDb
' ส่งออกอ๊อบเจค TableDef ที่ชี้ไปยัง table ชื่อ Orders
Set tdf = dbs.TableDefs("Orders")
' ส่งออกฟิลด์ของอ๊อบเจคที่ช้ไปยังฟิลด์ OrderDate field
Set fld = tdf.Fields("OrderDate")
' สั่งพิมพ์ค่าที่ส่งออกโดยฟังก์ชัน TypeName สำหรับแต่ละอ๊อบเจค
Debug.Print TypeName(dbs)
Debug.Print TypeName(tdf)
Debug.Print TypeName(fld)
End Sub
|
