Excel_VBA_manual

}
// Terminacija biblioteka prije poziva destruktora
AfxTermExtensionModule(BbDLL);
}
return 1;
typedef SAFEARRAY * FPSAFEARRAY;
short WINAPI sortpoljaV(FPSAFEARRAY *ppsa, int vel)
{ short Elem;
long donjagr, gornjagr, l;
int a[NMAX],inc,i,j,v;
if (*ppsa == NULL) // polje nije inicijalizirano
return -4;
if ((*ppsa)->cDims != 1) // broj dimenzija polja
return -5;
//donja i gornja granica polja
if (FAILED(SafeArrayGetLBound(*ppsa, 1, &donjagr)) ||
FAILED(SafeArrayGetUBound(*ppsa, 1, &gornjagr)))
return -1;
// čitanje elemenata polja
for (l =donjagr; l