Online Reference

Home

Microsoft Reference
Knowledge Developer Database Internet Resource Forum
VBA
Inspection Function
ดาวน์โหลดคู่มือ

VarType Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Integer ที่แสดงประเภทย่อยของตัวแปร

ไวยากรณ์

TypeName(varname )

อากิวเมนต์ varname ต้องการค่าตัวแปรใดๆยกเว้น ตัวแปรที่ผู้ใช้กำหนดประเภทข้อมูลใดๆ

ค่าส่งออก

ค่าคงที่

ค่า รายละเอียด
vbEmpty 0 Empty (ยังไม่ได้กำหนดค่า)
vbNull 1 Null (ค่าว่าง)
vbInteger 2 Integer (จำนวนเต็ม)
vbLong 3 Long integer (จำนวนเต็มแบบ Long)
vbSingle 4 Single-precision floating-point number (จำนวนจริงแบบ Single)
vbDouble 5 Double-precision floating-point number (จำนวนจริงแบบ Double)
vbCurrency 6 Currency value (ค่าการเงิน)
vbDate 7 Date value (ค่าวันที่)
vbString 8 String (ข้อความ)
vbObject 9

Object (อ๊อบเจค)

vbError 10 Error value (ค่าผิดพลาด)
vbBoolean 11 Boolean value (ค่าตรรกะ)
vbVariant 12 Variant(ใช้เฉพาะ array ที่ประเภทข้อมูลเป็น Variant)
bDataObject 13 อ๊อบเจคของ data access
vbDecimal 14 Decimal value(ค่าทศนิยม)
vbByte 17 Byte value (ค่าไบต์)
vbUserDefinedType 36 Variants ที่ผู้ใช้กำหนดประเภทเอง
vbArray 8192 Array

ฟังก์ชัน VarType ไม่ส่งออกค่าเป็น array โดยตรง แต่ใช้การเพิ่มค่าบางค่าเพื่อชี้ถึงประเภทข้อมูลของ array ค่าคงที่ของ vbVariant เป็นการแสดงค่ารวมกับ vbArray เพื่อชี้ถึงอากิวเมนต์ของฟังก์ชัน VarType ที่เป็น array ที่ประเภทข้อมูลเป็น Variant เช่น ค่าที่ส่งออกมาเป็น array ของจำนวนเต็มจะคำนวณเป็น vbInteger + vbArray (8192 + 2 = 8194) ถ้าอ๊อบเจคมีคุณสมบัติตามค่าเริ่มต้น ฟังก์ชัน VarType ส่งออกค่าเป็นประเภทของอ๊อบเจคตามค่าคุณสมบัติตามค่าเริ่มต้น

ดูเพิ่มเติม

ฟังก์ชัน IsArray, ฟังก์ชัน IsDate, ฟังก์ชัน IsEmpty, ฟังก์ชัน IsError, ฟังก์ชัน IsMissing, ฟังก์ชัน IsNull, ฟังก์ชัน IsNumeric, ฟังก์ชัน IsObject, ฟังก์ชัน TypeName, ประเภทข้อมูล Variant

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน VarType ในการหาประเภทข้อมูลย่อยของตัวแปร

Dim IntVar, StrVar, DateVar, MyCheck

' การตั้งค่าเริ่นต้นของตัวแปร
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/69#
' ส่งออกค่าเป็น 2
MyCheck = VarType(IntVar)
' ส่งออกค่าเป็น 7
MyCheck = VarType(DateVar)
' ส่งออกค่าเป็น 8
MyCheck = VarType(StrVar)