
void _RetCurrency(CCY money, int width) CCY money; /* CCY - LARGE_INTEGER. / int width; / Число отображаемых столбцов. */

Для получения дополнительной информации о том, как создавать библиотеку API и интегрировать её в Visual FoxPro, смотрите Доступ к API Visual FoxPro.

В следующем примере значение числового типа преобразуется в значение типа currency.

Код Visual FoxPro

	Copy Code
SET LIBRARY TO RETCURR ? xntom(100.1)

Код C

	Copy Code
#include <pro_ext.h> #include <math.h> void FAR retcurr(ParamBlk FAR parm) { CCY money; money.HighPart = (long) (parm->p[0].val.ev_real10000 / pow(2,32)); money.LowPart = (unsigned long) ((parm->p[0].val.ev_real - (double) (money.HighPart * pow(2,32)/10000.0)) 10000); _RetCurrency(money,25); } FoxInfo myFoxInfo[] = { {"XNTOM", (FPFI) retcurr, 1, "N"} }; FoxTable _FoxTable = { (FoxTable FAR ) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo };