Betriebszugehörigkeit ermitteln über Funktion
01.08.2004 13:02:17
MarkusL
ich versuche mit nachfolgender Funktion die Betriebzugehörigkeit zu ermitteln. Dieses funktioniert auch soweit, nur bei Eintritt am 01.01. funktieniert die Formel nicht, da ich vom Eintrittsdatum einen Tag abziehe und dann vergleiche mit > Vergleichsmonat. Hat jemand eine Idee wie man die Formel ans laufen bringen kann.
Markus
Function BETRZG(EintrDat As Date, VerglDat As Date)
If Month(EintrDat - 1) > Month(VerglDat) _
Or Month(EintrDat - 1) = Month(VerglDat) _
And (Day(EintrDat - 1)) > Day(VerglDat) Then
BETRZG = Year(VerglDat) - Year(EintrDat) - 1
Else
BETRZG = Year(VerglDat) - Year(EintrDat)
End If
If BETRZG < 0 Then BETRZG = "Fehler!"
End Function