Atgriež Integer vērtību, kas norāda apakštipu mainīgais.
Sintakse
VarType ( var_nosaukums )
Nepieciešamais mainīgā_arguments ir Variant vērtība, kas ietver jebkādu mainīgo, izņemot lietotāja definēta tipa mainīgo.
Atgrieztās vērtības
|
Konstante |
Vērtība |
Apraksts |
|
vbEmpty |
0 |
Tukšs (neinicializēta) |
|
vbNull |
1 |
Null (nav derīgu datu) |
|
vbInt genuine |
2 |
Vesels skaitlis |
|
vbLong |
3 |
Garš vesels skaitlis |
|
vbSingle |
4 |
Vienas precizitātes peldošā komata skaitlis |
|
vbDouble |
5 |
Double-precision floating-point number |
|
vbCurrency |
6 |
Valūtas vērtība |
|
vbDate |
7 |
Datuma vērtība |
|
vbString |
8 |
Virkne |
|
vbObject |
9 |
Object |
|
vbError |
10 |
Kļūdas vērtība |
|
vbBoolean |
11 |
Būla vērtība |
|
vbVariant |
12 |
Variants (izmantots tikai ar variantu masīviem) |
|
vbDataObject |
13 |
Datu piekļuves objekts |
|
vbDecimal |
14 |
Decimālā vērtība |
|
vbByte |
17 |
Baita vērtība |
|
vbUserDefinedType |
36 |
Varianti, kuros ir lietotāja definēti tipi |
|
vbArray |
8192 |
Masīvs |
Piezīme.: Šīs konstantes norāda Visual Basic for Applications. Nosaukumus var izmantot jebkur kodā faktisko vērtību vietā.
Piezīmes
Funkcija VarType nekad neatgriež pašu vbArray vērtību. Tā vienmēr tiek pievienota kādai citai vērtībai, lai norādītu noteikta tipa masīvu. Konstante vbVariant tiek atgriezta tikai kopā ar vbArray , lai norādītu, ka funkcijas VarType arguments ir tipa Variant masīvs. Piemēram, vērtība, kas atgriezta veselu skaitļu masīvam, tiek aprēķināta kā vbIntvbArray vai 8194. Ja objektam ir noklusējuma rekvizīts vērtība, tad funkcija VarType(objekts) atgriež objekta noklusējuma rekvizīta tipu.
Piemērs
Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā izmantota funkcija VarType , lai noteiktu mainīgā apakštipu.
Dim IntVar, StrVar, DateVar, MyCheck' Initialize variables.IntVar = 459StrVar = "Hello World"DateVar = #2/12/69# MyCheck = VarType(IntVar) ' Returns 2.MyCheck = VarType(DateVar) ' Returns 7.MyCheck = VarType(StrVar) ' Returns 8.
