LibreOffice 25.8 Help
Retourneert tekst of een numerieke waarde die type-informatie voor een variabele bevat.
  TypeName (Varname As Variant) As String
  VarType (Varname As Variant) As Integer
Een tekst voor TypeName gevolgd door '()' voor matrixen.
Een geheel getal voor VarType. Het getal 8192 wordt toegevoegd aan de geretourneerde waarde voor matrixen van het type VarType.
Varname: De naam van de variabele waarvan u het type wilt bepalen.
De volgende waardes worden geretourneerd:
| TypeName | Benoemde  | VarType | Type variabele | 
|---|---|---|---|
| …() | 8192 | Matrix van variabelen | |
| Boolean | 11 | Boolean variabele | |
| Byte | 17 | Byte variabele | |
| Date | V_DATE | 7 | Date variabele | 
| Currency | V_CURRENCY | 6 | Currency variabele | 
| Double | V_DOUBLE | 5 | Drijvende-kommavariabele met dubbele precisie | 
| Error | 11 | Fouttype variabele | |
| Integer | V_INTEGER | 2 | Integer variabele | 
| Long | V_LONG | 3 | Long integervariabele | 
| Object | 9 | Object variabele | |
| Single | V_SINGLE | 4 | Drijvende-kommavariabele met enkele precisie | 
| String | V_STRING | 8 | String variabele | 
| Variant | 12 | Variant variabele (kan alle types bevatten die door de definitie worden gespecificeerd) | |
| Empty | V_EMPTY | 0 | Niet-geïnitialiseerde variabele Variant | 
| Null | V_NULL | 1 | Geen geldige gegevens | 
  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           _
     ,, "Gegevenstypes in LibreOffice Basic"
    Msgbox "TypeName(table): "&TypeName(table) &Chr(13)& _
      "VarType(table)="&Vartype(table) _
      ,,"Matrix van Variantwaardes"
  End Sub ' TypeName_VarType_example