Разница в полных годах между двумя датами Visual FoxPro

[Rufer]

Написать программу которая для заданного числа v определяет равно ли оно вашему возрасту. Если равно то вывести текст "Мы ровесники", в противном случае текст "Извините". Значение v задать в начале программы. Напишите пожалуйста)

[Аватар]

Разница в полных годах между двумя датами, остальное сам делай

SET DATE GERMAN
DateBeg = CTOD('15.12.1979')
DateEnd = CTOD('14.12.2016')
IF MONTH(DateEnd)<MONTH(DateBeg) .OR. (MONTH(DateEnd)=MONTH(DateBeg) .AND. DAY(DateEnd)<DAY(DateBeg))
  ? YEAR(DateEnd)-YEAR(DateBeg)-1 
ELSE 
  ? YEAR(DateEnd)-YEAR(DateBeg)
ENDIF