[KnRSU]

Кто старше (пример):

Код:

Const Father = "18.03.1970"
Const Mother = "21.02.1971"

Private Function fnWhoOlder(Father as String, Mother as String) as Byte
   If CDate(Father) = CDate(Mother) Then
      fnWhoOlder = 0
   ElseIf CDate(Father) > CDate(Mother) Then
      fnWhoOlder = -1
   Else
      fnWhoOlder = 1
   End If
End Function

Select Case fnWhoOlder(Father, Mother)
   Case -1
      Debug.Print "Папа старше мамы"
   Case 0
      Debug.Print "Папа и мама - родились в один день"
   Case 1
      Debug.Print "Папа младше мамы"
End Select

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