Aide LibreOfficeDev 25.8
Renvoie du texte ou une valeur numérique contenant des informations de type pour une variable.
  TypeName (Varname As Variant) As String
  VarType (Varname As Variant) As Integer
Un texte pour TypeName suffixé par '()' pour les tableaux.
Un entier pour VarType. Le nombre 8192 est ajouté à la valeur renvoyée pour les tableaux de type VarType.
Varname : le nom de la variable dont vous voulez déterminer le type.
Les valeurs suivantes sont renvoyées :
| valeurs | Constante | VarType | Type de variable | 
|---|---|---|---|
| …() | 8192 | Matrice de variables | |
| Boolean | 11 | variable Boolean | |
| Byte | 17 | variable Byte | |
| Date | V_DATE | 7 | variable Date | 
| Currency | V_CURRENCY | 6 | variable Currency | 
| Double | V_DOUBLE | 5 | Variable à virgule flottante double précision | 
| Error | 11 | variable Error type | |
| Integer | V_INTEGER | 2 | variable Integer | 
| Long | V_LONG | 3 | variable entière Long | 
| Object | 9 | variable Object | |
| Single | V_SINGLE | 4 | Variable à virgule flottante simple précision | 
| String | V_STRING | 8 | variable String | 
| Variant | 12 | variable Variant (peut contenir tous les types spécifiés par la définition) | |
| Empty | V_EMPTY | 0 | variable Variant non initialisée | 
| Null | V_NULL | 1 | Absence de données valides | 
  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           _
     ,, "Data types in LibreOfficeDev Basic"
    Msgbox "TypeName(table): "&TypeName(table) &Chr(13)& _
      "VarType(table)="&Vartype(table) _
      ,,"Array of Variant values"
  End Sub ' TypeName_VarType_example