Try this one for years and days:
IIf(DateSerial(Year(Date()),Month([Hiredate]),Day([Hiredate]))>Date(),DateDiff("yyyy",[HireDate],Date())-1 & " years " & DateDiff("d",DateSerial(Year(Date())-1,Month([Hiredate]),Day([hiredate])),Date()) & " days",DateDiff("yyyy",[HireDate],Date()) & " years " &...