TypeName Function; VarType Function
Visszaad egy változóról információt tartalmazó karakterláncot (TypeName) vagy numerikus értéket (VarType).
Szintaxis:
TypeName (Variable) / VarType (Variable)
Visszatérési érték:
String (karakterlánc); Integer (egész szám)
Paraméterek:
VáltozĂł: A változĂł, amelynek a tĂpusát meg kĂvánja határozni. Az alábbi Ă©rtĂ©keket használhatja:
kulcsszĂł |
Named constant |
VarType |
VáltozĂł tĂpusa |
Boolean |
|
11 |
Logikai változó |
Date |
V_DATE |
7 |
Date (Dátum) változó |
Currency |
V_CURRENCY |
6 |
Currency variable |
Double |
V_DOUBLE |
5 |
Dupla pontosságú lebegőpontos változó |
Integer |
V_INTEGER |
2 |
Egészszám-változó |
Long |
V_LONG |
3 |
Hosszú egész változó |
Object |
|
9 |
Objektumváltozó |
Single |
V_SINGLE |
4 |
Egyszeres pontosságú lebegőpontos változó |
String |
V_STRING |
8 |
Karakterlánc-változó |
Variant |
|
12 |
Variant változĂł (a definĂciĂł által megadott összes tĂpust tartalmazhatja) |
Empty |
V_EMPTY |
0 |
A változó nincs inicializálva |
Null |
V_NULL |
1 |
Nincs érvényes adat |
PĂ©lda:
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,"A LibreOffice Basic nĂ©hány tĂpusa"
End Sub