Office: Altersberechnung zickt herum

Moin,

noch eins von 2 Problemen die ich habe:

Ich habe einen Schichtplan, in dem man auch Geburtstage eintragen kann.
Mit jedem Jahr weiter werden die Personen älter - so soll es ja auch sein.
Wenn ich allerdings jetzt statt vor mal ein Jahr zurück gehe, wird die Person ebenfalls älter - aber es wäre schon schöner wenn sie wieder jünger wäre.
Wo liegt der Fehler?

Hier der Code:

Code:

Dim termg(100) As Date
Dim namg(100) As String
Dim alte(100) As Integer
Dim zg As Integer

' Geburtstage einlesen
zg = 3
    Do While Cells(zg, 3) <> ""
        termg(zg) = Cells(zg, 3)                              ' Einlesen der Geburtstage
        namg(zg) = Cells(zg, 4)                               ' Einlesen der Namen
        alte(zg) = DateDiff("YYYY", termg(zg), Cells(3, 1))   ' Alter berechnen
        If alte(zg) = 0 Then alte(zg) = "*"                   ' Wenn Alter = 0, dann (*)
        namg(zg) = "Geb. " & namg(zg) & " (" & alte(zg) & ")" ' String aus Name und Alter
        If alte(zg) < 0 Then namg(zg) = ""                    ' Wenn Alter kleiner als 0 String löschen
    zg = zg + 1
    Loop

Hat jemand eine Idee?