...1, 0)) <--- this covers your additional month if the startdate is in the first half of the month
TotalMonths += ((StartDate.Year - TempDate.Year) * 12 + (StartDate.Month - TempDate.Month) + IIf(TempDate.Day < 16, 1, 0)) / 2
'Add the full time service months
TotalMonths += (EndDate.Year -...