set date german
set century on

? ? INT(((YEAR(DATE())-YEAR({^1972.05.17}))*365.25)-(DATE() - {^1972.05.17}))

Ps. до моего дня рождения осталось ....

Disaer[quot Guest12345]set date german
set century on

? INT(((YEAR(DATE())-YEAR({^1972.05.17}))*365.25)-(DATE() - {^1972.05.17}))

Ps. до моего дня рождения осталось ....

Спасибо очень помогло. Только у меня тут пришлось поменять фигурные скобки на круглые.[/quot

Только надо смотреть если результат положительный, то до текущего события осталось
столько дней сколько получается, а если отрицательный, значит событие уже прошло,
и не совсем наверно правильно показывает, ну мысль наверно можно поправить
в нужном направлении

Disaer
Угу в некоторых случаях получается отрицательный ответ, поэтому я к этому результату длаю проверку.
d = INT(((YEAR(DATE())-YEAR((plan_sotr.god_rojd)))*365.25)-(DATE() - (plan_sotr.god_rojd)))
IF d>=0
thisform.text21.Value = d
ELSE
thisform.text21.Value = d+365
ENDIF

Да, так в целом почти правильно, только 1 следующий день после рождения
неправильно показывает 0 дней, а все остальные дни нормально12345

Думаю так правильно будет

SET TALK OFF
SET DATE GERMAN
SET CENTURY on
CLEAR

mydata={^1972.05.17}
d1=INT(((YEAR(DATE())-YEAR(mydata))*365.25)-(DATE() - mydata))

IF d1>0
d2 = d1
ELSE
IF d1=0
IF DAY(mydata)=DAY(DATE())
d2=0
ELSE
d2=365
ENDIF
ELSE
d2 = d1+365
ENDIF
ENDIF

MESSAGEBOX('До моего дня рождения осталось:'+ALLTRIM(STR(d2))+' дней.')

Окончательный вариант оформленный в виде функции

SET TALK OFF
SET DATE GERMAN
SET CENTURY on
CLEAR

mydata1={^1972.05.17}
mydata2=DATE()
mydata3={^2009.12.31}
mydata4={^2010.01.01}

* первый параметр функции dodobday - день рождения
* второй необязательный, по умолчанию равен DATE()
* ? dodobday()
? DATE(), ' - ', mydata1, dodobday(mydata1)
?
? mydata2, ' - ', mydata1, dodobday(mydata1,mydata2)
?
? {^2009.05.16}, ' - ', mydata1, dodobday(mydata1,{^2009.05.16})
?
? {^2009.05.17}, ' - ', mydata1, dodobday(mydata1,{^2009.05.17})
?
? {^2009.05.18}, ' - ', mydata1, dodobday(mydata1,{^2009.05.18})
?
? mydata3, ' - ', mydata1, dodobday(mydata1,mydata3)
?
? mydata4, ' - ', mydata1, dodobday(mydata1,mydata4)

FUNCTION dodobday
PARAMETERS d1,d2
PRIVATE d3,d4
IF parameters()<1
MESSAGEBOX('Задайте параметры функции dodobday:'+CHR(10)+CHR(13)+'d1, d2 - две даты')
RETURN .f.
ENDIF
IF parameters()=1
d2=DATE()
IF VARTYPE(d1) # 'D'
MESSAGEBOX('Задайте параметры функции dodobday:'+CHR(10)+CHR(13)+'d1 - дата')
RETURN .f.
ENDIF
ENDIF
IF parameters()=2
IF VARTYPE(d1) # 'D' AND VARTYPE(d2) # 'D'
MESSAGEBOX('Задайте параметры функции dodobday:'+CHR(10)+CHR(13)+'d1, d2 - две даты')
RETURN .f.
ENDIF
ENDIF
d3= LTRIM(STR(YEAR(d2))) + RIGHT(DTOC(d1,1),4)
d3= CTOD('^'+LEFT(d3,4)+'.'+SUBSTR(d3,5,2)+'.'+RIGHT(d3,2))
IF (d3-d2)<0
d3= LTRIM(STR(YEAR(d2)+1)) + RIGHT(DTOC(d1,1),4)
d3= CTOD('^'+LEFT(d3,4)+'.'+SUBSTR(d3,5,2)+'.'+RIGHT(d3,2))
ENDIF
RETURN d3-d2
ENDFUNC