Funzione TypeName; Funzione VarType

Restituisce un testo o un valore numerico che contiene informazioni sul tipo di una variabile.

Sintassi:


  TypeName (Varname As Variant) As String
  VarType (Varname As Variant) As Integer

Valore restituito:

Un testo per il tipo TypeName con il suffisso '()' per le matrici.
Un intero per il tipo VarType. Il numero 8192 è aggiunto al valore restituito per le matrici del tipo VarType.

Parametri:

Varname: il nome della variabile di cui si desidera determinare il tipo.

Sono restituiti i seguenti valori:

Valori TypeName	Costante nominata	VarType values	Tipo di variabile
…()		8192	Array (matrice) di variabili
Boolean		11	Variabile booleana
Byte		17	Variabile di tipo Byte
Date	V_DATE	7	Variabile data
Currency	V_CURRENCY	6	Variabile di valuta
Double	V_DOUBLE	5	Variabile a virgola mobile con doppia precisione
Error		11	Variabile di tipo Error
Integer	V_INTEGER	2	Variabile numerica intera
Long	V_LONG	3	Variabili numerica intera lunga
Object		9	Variabile oggetto
Single	V_SINGLE	4	Variabile numerica decimale con precisione singola
String	V_STRING	8	Variabile stringa
Variant		12	Variabile variante (che può contenere tutti i tipi specificati dalla definizione)
Empty	V_EMPTY	0	Variabile di tipo Variant non inizializzata
Null	V_NULL	1	Nessun dato valido

Codici di errore:

5 Richiamo di procedura non valido

Esempio:


  Sub TypeName_VarType_example
    Const __Object=9, __Error=10, __Boolean=11, __Variant=12, __Byte=17, _
      __Array = 8192, aText = "Lorem ipsum dolor sit amet, consectetur …"
    Dim int16 As Integer,  int32() As Long   ' V_INTEGER,  V_LONG
    Dim flt32!,            flt64() As Double ' V_SINGLE,   V_DOUBLE
    Dim curr@,             dat3 As Date      ' V_CURRENCY, V_DATE
    Dim strng() As String, objct() As Object ' V_STRING,   …
    Dim bool As Boolean,   unkwn(), byt3 As Byte ' …,      V_EMPTY, …
    Dim table(-3 To 5)
    MsgBox _
     TypeName(int16) &" "& Vartype(int16) &" "& V_INTEGER        &" "& Chr(13) &_
     TypeName(int32) &" "& Vartype(int32) &" "& V_LONG+__Array   &" "& Chr(13) &_
     TypeName(flt32) &" "& VarType(flt32) &" "& V_SINGLE         &" "& Chr(13) &_
     TypeName(flt64) &" "& VarType(flt64) &" "& V_DOUBLE+__Array &" "& Chr(13) &_
     TypeName(dat3)  &" "& VarType(dat3)  &" "& V_DATE           &" "& Chr(13) &_
     TypeName(curr)  &" "& VarType(curr)  &" "& V_CURRENCY       &" "& Chr(13) &_
     TypeName(atext) &" "& VarType(aText) &" "& V_STRING         &" "& Chr(13) &_
     TypeName(strng) &" "& VarType(strng) &" "& V_STRING+__Array &" "& Chr(13) &_
     TypeName(objct) &" "& VarType(objct) &" "& __Object+__Array &" "& Chr(13) &_
     TypeName(unkwn) &" "& VarType(unkwn) &" "& V_EMPTY          &" "& Chr(13) &_
     TypeName(bool)  &" "& VarType(bool)  &" "& __Boolean        &" "& Chr(13) &_
     TypeName(varnt) &" "& VarType(varnt) &" "& V_EMPTY          &" "& Chr(13) &_
     TypeName(table) &" "& VarType(table) &" "&__Variant+__Array &" "& Chr(13) &_
     TypeName(byt3)  &" "& VarType(byt3)  &" "& __Byte           _
     ,, "Tipi di dati in LibreOffice Basic"
    Msgbox "TypeName(table): "&TypeName(table) &Chr(13)& _
      "VarType(table)="&Vartype(table) _
      ,,"Matrice di valori di tipo Variant"
  End Sub ' TypeName_VarType_example

Istruzione Const

Istruzione Dim

Istruzione MsgBox