проблема такая я создал файл с функциями (вычисление возраста) пишу мол
SET PROCEDURE имя
всё работает, но если я хочу INSERT INTO результат в таблицу то Return неизменно возвращает 0 (в дебуере вроде считает и результат не 0)

сама функция :
FUNCTION vozrastPROC (datarojd)
yearR=YEAR(datarojd)
monthR=MONTH(datarojd)
dayR=DAY(datarojd)
yearS=YEAR(date())
monthS=MONTH(date())
dayS=DAY(date())
vozrast=yearS-YearR
IF monthS<monthR
vozrast=vozrast-1
ENDIF
IF (monthS=monthR)and(dayS<dayR)
vozrast=vozrast-1
ENDIF
RETURN vozrast
ENDFUNC

это чудо живёт в d:\fox\progs\function.prg


если по нажатию на кнопку писать:
SET PROCEDURE TO "d:\fox\progs\function.prg"
MESSAGEBOX(vozrastPROC1(thisform.Datecnt1.Value)) - работает

а если вот так, то нет

SET PROCEDURE TO "d:\fox\progs\function.prg"
MESSAGEBOX(vozrastPROC1(thisform.Datecnt1.Value))
INSERT INTO fio (vozrast) VALUES (vozrastPROC(thisform.Datecnt1.Value))

причём перестаёт работать и

SET PROCEDURE TO "d:\fox\progs\function.prg"
MESSAGEBOX(vozrastPROC1(thisform.Datecnt1.Value))

ЧТО ДЕЛАТЬ???

в функцию параметр предаётся, результат не возвращается