Tulong sa LibreOffice 25.8
Nagbabalik ng text o isang numeric na halaga na naglalaman ng impormasyon ng uri para sa isang variable.
  TypeName (Varname As Variant) As String
  VarType (Varname As Variant) As Integer
Isang text para sa TypeName nilagyan ng '()' para sa mga array.
Isang integer para sa VarType . Ang numerong 8192 ay idinagdag sa ibinalik na halaga para sa mga arrays ng uri VarType .
Varname : Ang variable na pangalan na gusto mong tukuyin ang uri ng.
Ang mga sumusunod na halaga ay ibinalik:
| TypeName | Pinangalanan | VarType | Uri ng variable | 
|---|---|---|---|
| …() | 8192 | Array ng mga variable | |
| Boolean | 11 | Boolean variable | |
| Byte | 17 | Byte variable | |
| Date | V_DATE | 7 | Petsa variable | 
| Currency | V_CURRENCY | 6 | Pera variable | 
| Double | V_DOUBLE | 5 | Doble-precision na floating-point na variable | 
| Error | 11 | Variable ng uri ng error | |
| Integer | V_INTEGER | 2 | Integer variable | 
| Long | V_LONG | 3 | Mahaba integer variable | 
| Object | 9 | Bagay variable | |
| Single | V_SINGLE | 4 | Single-precision floating-point variable | 
| String | V_STRING | 8 | String variable | 
| Variant | 12 | Variant variable (maaaring maglaman ng lahat ng uri na tinukoy ng kahulugan) | |
| Empty | V_EMPTY | 0 | Uninitialized Variant variable | 
| Null | V_NULL | 1 | Walang wastong data | 
  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           _
     ,, "Mga uri ng data sa LibreOffice Basic"
    Msgbox "TypeName(table): "&TypeName(table) &Chr(13)& _
      "VarType(table)="&Vartype(table) _
      ,,"Array ng Variant values"
  End Sub ' TypeName_VarType_example