LibreOffice 25.2 Βοήθεια
Επιστρέφει κείμενο ή μια αριθμητική τιμή που περιέχει πληροφορίες τύπου για μια μεταβλητή.
  TypeName (Varname As Variant) As String
  VarType (Varname As Variant) As Integer
Ένα κείμενο για TypeName με επίθημα '()' για πίνακες.
Ένας ακέραιος αριθμός για VarType. Ο αριθμός 8192 προστίθεται στην επιστρεφόμενη τιμή για πίνακες τύπου VarType.
Varname: Το όνομα της μεταβλητής που θέλετε να καθορίσετε τον τύπο της.
Επιστρέφονται οι ακόλουθες τιμές:
| Τιμές | Σταθερά | VarType | Τύπος μεταβλητής | 
|---|---|---|---|
| …() | 8192 | Πίνακας μεταβλητών | |
| Boolean | 11 | μεταβλητή Boolean | |
| Byte | 17 | μεταβλητή Byte | |
| Date | V_DATE | 7 | μεταβλητή Date | 
| Currency | V_CURRENCY | 6 | μεταβλητή Currency | 
| Double | V_DOUBLE | 5 | Μεταβλητή κινητής υποδιαστολής διπλής ακρίβειας | 
| Error | 11 | Μεταβλητή τύπου σφάλματος | |
| Integer | V_INTEGER | 2 | μεταβλητή Integer | 
| Long | V_LONG | 3 | ακέραια μεταβλητή Long | 
| Object | 9 | μεταβλητή Object | |
| Single | V_SINGLE | 4 | Μεταβλητή κινητής υποδιαστολής απλής ακρίβειας | 
| String | V_STRING | 8 | μεταβλητή String | 
| Variant | 12 | μεταβλητή Variant (μπορεί να περιέχει όλους τους τύπους που καθορίζονται από τον ορισμό) | |
| Empty | V_EMPTY | 0 | Μη αρχικοποιημένη μεταβλητή Variant | 
| Null | V_NULL | 1 | Χωρίς έγκυρα δεδομένα | 
  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           _
     ,, "Τύποι δεδομένων στο LibreOffice Basic"
    Msgbox "TypeName(table): "&TypeName(table) &Chr(13)& _
      "VarType(table)="&Vartype(table) _
      ,,"Πίνακας τιμών παραλλαγής"
  End Sub ' TypeName_VarType_example