TypeName Function; VarType Function
ሀረግ ይመልሳል (የ ስም አይነት) ወይንም የ ቁጥር ዋጋ (የ ተለዋዋጭ አይነት) የ ተለዋዋጭ መረጃ የያዘውን:
አገባብ:
የ ስም አይነት (ተለዋዋጭ) / የ ተለዋዋጭ አይነት (ተለዋዋጭ)
ይመልሳል ዋጋ:
ሀረግ: ኢንቲጀር
ደንቦች:
ተለዋዋጭ: ተለዋዋጭ እርስዎ መወሰን የሚፈልጉትን አይነት ለ: እርስዎ መጠቀም ይችላሉ የሚቀጥሉትን ዋጋዎች:
|
ቁልፍ ቃል |
የ ተሰየመ መደበኛ |
የ ተለዋዋጭ አይነት |
ተለዋዋጭ አይነት |
|
Boolean |
|
11 |
ተለዋዋጭ ቡሊያን |
|
Date |
V_DATE |
7 |
ተለዋዋጭ ቀን |
|
Currency |
V_CURRENCY |
6 |
ተለዋዋጭ ገንዘብ |
|
Double |
V_DOUBLE |
5 |
ድርብ ተንሳፋፊ ነጥብ ተለዋዋጭ |
|
Integer |
V_INTEGER |
2 |
የ ኢንቲጀር ተለዋዋጮች |
|
Long |
V_LONG |
3 |
ረጅም የ ኢንቲጀር ተለዋዋጮች |
|
Object |
|
9 |
ተለዋዋጭ እቃ |
|
Single |
V_SINGLE |
4 |
ነጠላ ተንሳፋፊ-ነጥብ ተለዋዋጭ |
|
String |
V_STRING |
8 |
ተለዋዋጭ ሐረግ |
|
Variant |
|
12 |
የተለየ ተለዋዋጭ (ሁሉንም አይነት በ መግለጫ የ ተወሰኑ ይይዛል) |
|
Empty |
V_EMPTY |
0 |
ተለዋዋጭ አልጀመረም |
|
Null |
V_NULL |
1 |
ምንም ዋጋ ያለው ዳታ የለም |
ለምሳሌ:
Sub ExampleType
Dim iVar As Integer
Dim sVar As String
Dim siVar As Single
Dim dVar As Double
Dim bVar As Boolean
Dim lVar As Long
Dim cVar as Currency
Dim tVar as Date
MsgBox TypeName(iVar) & " " & VarType(iVar) & Chr(13) &_
TypeName(sVar) & " " & VarType(sVar) & Chr(13) &_
TypeName(siVar) & " " & VarType(siVar) & Chr(13) &_
TypeName(dVar) & " " & VarType(dVar) & Chr(13) &_
TypeName(bVar) & " " & VarType(bVar) & Chr(13) &_
TypeName(cVar) & " " & VarType(cVar) & Chr(13) &_
TypeName(tVar) & " " & VarType(tVar) & Chr(13) &_
TypeName(lVar) & " " & VarType(lVar),0,"Some types In $[officename] Basic"
End Sub