Συνάρτηση TypeName; Συνάρτηση VarType
Επιστρέφει μια συμβολοσειρά (TypeName) ή μια αριθμητική τιμή (VarType) που περιέχει πληροφορίες για μια μεταβλητή.
Σύνταξη:
TypeName (Variable) / VarType (Variable)
Τιμή επιστροφής:
Συμβολοσειρά; Ακέραιος
Παράμετροι:
Μεταβλητή: Η μεταβλητή για την οποία πρόκειται να καθοριστεί ο τύπος. Οι ακόλουθες τιμές είναι δυνατές:
|
λέξη-κλειδί |
Επώνυμη σταθερά |
VarType |
Τύπος μεταβλητής |
|
Boolean |
|
11 |
Μεταβλητή Μπουλ |
|
Date |
V_DATE |
7 |
Μεταβλητή ημερομηνίας |
|
Currency |
V_CURRENCY |
6 |
Μεταβλητή νομίσματος |
|
Double |
V_DOUBLE |
5 |
Μεταβλητή κινητής υποδιαστολής διπλής ακριβείας |
|
Integer |
V_INTEGER |
2 |
Ακέραια μεταβλητή |
|
Long |
V_LONG |
3 |
Ακέραια μεταβλητή μεγάλου μήκους |
|
Object |
|
9 |
Μεταβλητή αντικειμένου |
|
Single |
V_SINGLE |
4 |
Μεταβλητή κινητής υποδιαστολής απλής ακριβείας |
|
String |
V_STRING |
8 |
Μεταβλητή συμβολοσειράς |
|
Variant |
|
12 |
Μεταβλητή παραλλαγής (μπορεί να περιέχει όλους τους τύπους που έχουν καθοριστεί εξ ορισμού) |
|
Empty |
V_EMPTY |
0 |
Η μεταβλητή δεν έχει αρχικοποιηθεί |
|
Null |
V_NULL |
1 |
Χωρίς έγκυρα δεδομένα |
Παράδειγμα:
Sub ExampleType
Dim iVar As Integer
Dim sVar As String
Dim siVar As Single
Dim dVar As Double
Dim bVar As Boolean
Dim lVar As Long
Dim cVar as Currency
Dim tVar as Date
MsgBox TypeName(iVar) & " " & VarType(iVar) & Chr(13) &_
TypeName(sVar) & " " & VarType(sVar) & Chr(13) &_
TypeName(siVar) & " " & VarType(siVar) & Chr(13) &_
TypeName(dVar) & " " & VarType(dVar) & Chr(13) &_
TypeName(bVar) & " " & VarType(bVar) & Chr(13) &_
TypeName(cVar) & " " & VarType(cVar) & Chr(13) &_
TypeName(tVar) & " " & VarType(tVar) & Chr(13) &_
TypeName(lVar) & " " & VarType(lVar),0,"Ορισμένοι τύποι στην LibreOffice Basic"
End Sub