Excel_VBA_manual

}
// variant je nešto drugo
return -3;
U VBA kodu deklarirana je i kasnije pozvana VariantPrimjer funkcija:
Declare Function VariantPrimjer Lib "primjer" _
(ByVal v As Variant) As Integer
Sub VariantTest()
MsgBox VariantPrimjer (Worksheets(1))
MsgBox VariantPrimjer ("25")
MsgBox VariantPrimjer (5)
MsgBox VariantPrimjer (3.2)
End Sub
'-1 (objekt)
'25 (vrijednost)
'5 (vrijednost)
'-3 (nešto drugo)
Oznake variant konstanti za odreĊeni Variant tip argumenta koje podržava VBA kod.
Boolean
VT_BOOL
Currency(scaled integer) VT_CY
Date
VT_DATE
Double(double floating-point) VT_R8
Integer
VT_I2
Long Integer
VT_I4
Object
VT_DISPATCH
Single(floating-point) VT_R4
String
VT_BSTR
2.3.4.4 Korištenje tipa String
Kada VBA predaje string po referenci u DLL, tada upotrebljava poseban OLE tip podataka
nazvan BSTR. U većini sluĉajeva BSTR se može tretirati kao pokazivaĉ na string koji završava s
nul - bajtom (\0).
Funkcija u C-u treba deklarirati argument kao pokazivaĉ na BSTR. Pokazivaĉ neće nikada biti
NULL. Ako VBA stringu nije ništa pridruženo, BSTR na koji pokazuje pokazivaĉ će biti nula.
Ako je pridružen prazan string, prvi karakter će biti 0 i dužina stringa će biti 0.
short WINAPI STip(BSTR *pbstr)
{ if (pbstr == NULL) // pokazivač je nula, neće se dogoditi
return 1;
if (*pbstr == NULL)
// string je alociran u VB sa Dim naredbom,ali mu
return 2;
//još nije pridružena vrijednost
if (*pbstr[0] == 0) // string je alociran i pridružen mu je prazan string (" ")
return 3;
return 4;
// string ima vrijednost
}
27