Function Tri(Fei As Date) As Integer
 Dim Anos As Integer
  Anos = DateDiff("yyyy", Fei, Date)
  Select Case Month(Fei) - Month(Date)
   Case Is > 0
    Anos = Anos - 1
   Case Is = 0
     If Day(Fei) > Day(Date) Then
      Anos = Anos - 1
     End If
   End Select
   Tri = Anos \ 3
End Function

Carlos, si quisieras que te pasara solamente los aņos cumplidos y no los
trienios, simplemente quita \3 de la parte final

Saludos Buho