Определить кто из людей старше по количеству полных лет, зная их даты рождения - QBasic

Формулировка задачи:

Здравствуйте. Известны даты рождения 2х человек, определить кто старше по количеству полных лет. Как я понял это нужно ещё и сегодняшнюю дату знать. и проверять полные года от неё, а потом сравнить. Но чёта до конца весь алгоритм придумать не могу. Прошу помочь.

Решение задачи: «Определить кто из людей старше по количеству полных лет, зная их даты рождения»

Листинг программы

REM Известны даты рождения 2х человек, определить кто старше по количеству полных лет.
REM QBasic, lamed, 21.05.2011
 
DIM y1 AS INTEGER, m1 AS INTEGER, d1 AS INTEGER
DIM y2 AS INTEGER, m2 AS INTEGER, d2 AS INTEGER
DIM y AS INTEGER, m AS INTEGER, d AS INTEGER
DIM dy1 AS INTEGER, dy2 AS INTEGER
 
  INPUT y1
  INPUT m1
  INPUT d1
 
  INPUT y2
  INPUT m2
  INPUT d2
 
  INPUT y
  INPUT m
  INPUT d
 
  dy1 = y - y1
  IF (m < m1) OR (m = m1) AND (d < d1) THEN
    dy1 = dy1 - 1
  END IF
 
  dy2 = y - y2
  IF (m < m2) OR (m = m2) AND (d < d2) THEN
    dy2 = dy2 - 1
  END IF
 
  IF dy1 > dy2 THEN
    PRINT "1й старше"
  ELSEIF dy1 < dy2 THEN
    PRINT "2й старше"
  ELSE
    PRINT "Одинаково по количеству полных лет"
  END IF
END

Объяснение кода листинга программы

Дано три даты рождения в формате день-месяц-год.
Введенные даты сохраняются в шести переменных типа INTEGER (целое число).
Вычисляются разницы в количестве полных лет между текущей датой и каждой из двух известных дат.
Если разница в количестве полных лет между текущей датой и второй известной датой больше, чем разница в количестве полных лет между текущей датой и первой известной датой, то выводится сообщение 1й старше.
Если разница в количестве полных лет между текущей датой и второй известной датой меньше, чем разница в количестве полных лет между текущей датой и первой известной датой, то выводится сообщение 2й старше.
Если разница в количестве полных лет между текущей датой и обеими известными датами одинакова, то выводится сообщение Одинаково по количеству полных лет.