Datediff

[Svetlana]

ещё один вопрос.
В формуле
.FormulaR1C1 = DateDiff("yyyy", Adodc1.Recordset.Fields("DateOfBirth").Value, Date)
VBA после 0,5 округляет до большего, тогда как мне нужно фактически прожитое количество лет.

спасибо

[skiperski]

Для рпределения кол-ва прожитых лет эта фукция не годится.

Код: Выделить всё

?DateDiff("yyyy", "2000-01-01", "2000-12-31")
0
?DateDiff("yyyy", "2000-12-31", "2001-12-31")
1
?DateDiff("yyyy", "2000-12-31", "2001-01-01")
1

Т.е. эта функция фактически считает Year(Date1) - Year(Date2)

Можно сделать так:

Код: Выделить всё

d=DateDiff("d", "1994-01-01", "1994-12-31"):?d \ 365 "years", d mod 365 "days", "(" d ")"
0 years       364 days     ( 364 )
d=DateDiff("d", "1994-12-31", "1995-12-31"):?d \ 365 "years", d mod 365 "days", "(" d ")"
1 years       0 days       ( 365 )
d=DateDiff("d", "1994-12-31", "1995-01-01"):?d \ 365 "years", d mod 365 "days", "(" d ")"
0 years       1 days       ( 1 )

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