Странно - у меня не плюсует ничего. Посмотрите файл.

Юрий М, мне нужно получать итог в виде ДД.ММ.ГГ  
 
В Вашем примере указаны только дни и, действительно, все верно. Но стоило мне изменить формат даты на ДД.ММ.ГГ, незамедлительно вылезла упомянутая мною проблема. Снова лишний месяц.

Ну и маленькая поправка. По науке, надо бы к стажу по каждому предприятию добавить 1 день, так что, к этому посту я прилагаю обновленную версию расчета стажа.  
 
Общий стаж я считала так: сначала сложила даты ув-ний, потом сложила даты приема, потом из числа 1 вычла число 2. Если же считать стаж по каждому предприятию, а потом складывать, то получится результат типа 5 лет 16 мес. 54 дня. А потом переводить это в привычную систему дат - эх, жесть!

---  
Вместо РАЗНДАТ() для определения разности в годах, месяцах и днях можно применять такую функцию:  
 
' ZVI:2008-10-04 Функция взамен РАЗНДАТ()  
' =РазностьДат(Дата1;Дата2) дает строку: "A л. B мес. C дн."  
' =РазностьДат(Дата1;Дата2;0) дает то же самое: "A л. B мес. C дн."  
' =РазностьДат(Дата1;Дата2;1) дает количество лет: A  
' =РазностьДат(Дата1;Дата2;2) дает количество месяцев: B  
' =РазностьДат(Дата1;Дата2;3) дает количество дней: C  
Function РазностьДат(Дата1 As Date, Дата2 As Date, Optional Формат = 0)  
 Dim d1 As Date, d2 As Date, y$, Лет&, Месяцев&, Дней&, ДнейМесяц1&, ДнейМесяц2&  
 d1 = Int(Дата1):  d2 = Int(Дата2)  
 If Дата1 = Empty Or Дата2 = Empty Or d1 > d2 Then РазностьДат = vbNullString: Exit Function  
 If Year(d2) <= Year(d1) Then  
   Лет = 0  
 Else  
   Лет = DateDiff("yyyy", d1, d2)  
   If Month(d2) = Month(d1) Then  
     If Day(d2) < Day(d1) Then Лет = Лет - 1  
   ElseIf Month(d2) < Month(d1) Then  
     Лет = Лет - 1  
   End If  
 End If  
 Месяцев = (DateDiff("m", DateSerial(Year(d1), Month(d1), 1), _  
            DateSerial(Year(d2), Month(d2), 1)) + IIf(Day(d2) < Day(d1), -1, 0)) Mod 12  
 ДнейМесяц1 = Day(DateSerial(Year(d1), Month(d1) + 1, 0))  
 ДнейМесяц2 = Day(DateSerial(Year(d2), Month(d2) + 1, 0))  
 If Day(d1) <= Day(d2) Then  
   Дней = Day(d2) - Day(d1)  
 Else  
   Дней = ДнейМесяц1 - Day(d1) + Day(d2)  
 End If  
 Select Case Лет Mod 10  
   Case 1 To 4: y = " г. "  
   Case Else:   y = " л. "  
 End Select  
 Select Case Формат  
   Case 1: РазностьДат = Лет  
   Case 2: РазностьДат = Месяцев  
   Case 3: РазностьДат = Дней  
   Case Else: РазностьДат = Лет & y & Месяцев & " мес. " & Дней & " дн."  
 End Select  
End Function  
 
---  
ZVI

{quote}{login=}{date=05.10.2008 12:58}{thema=}{post}Подскажите как эту функцию подключить?{/post}{/quote}  
---  
Пример подключения функции РазностьДат() к конкретной книге прилагается. В примере приведено сравнение её результатов с результатами встроенной недокументированной функции Excel РАЗНДАТ().  
 
Чтобы функция РазностьДат() работала со всеми книгами, нужно скопировать её код в книгу персональных макросов, или подключить её как надстройку. Если в этом есть необходимость, то могу подготовитьь такую надстройку с простейшим инсталлятором. Надстройку, в общем-то, легко можно получить из приложенной книги, удалив все с Листа1 и сохранив книгу как надстройку XLA.  
 
Интересно отметить, что у Chip Pearson есть функция Age() (см  http://www.cpearson.com/excel/DateTimeVBA.htm) которая тоже, к сожалению, глючит.  
Например, для дат 28.02.2007 и 01.03.2008 Age() выдает:  
"1 years 0 months 5 days" вместо  
"1 years 0 months 1 days"  
а также завышает на 1 день там, где РАЗНДАТ() выдает отрицательные дни.  
---  
ZVI

См. файл с вариантами

Ан13, всё отлично, теперь попробуем посчитать общий стаж. Начало нехитрое: считаем сумму дат приема, далее считаем сумму дней увольнения, далее считаем разницу... Вот уже и показались годы, цифры, и месяцы. А теперь вот вопросик: как бы к этой величине прибавить еще кол-во дней, по одному дню на каждую запись. Т.е. если у чела в трудовой книжке 3 записи о работе, то прибавляем 3 дня, если же чел отработал на 10 предприятиях, то нужно прибавить 10 дней. Пока у меня не получилось сложить эти величины. См. в приложенном файле лист "Общий стаж".

---  
Далек от проблем учета кадров, просто даю первую попавшуюся ссылку. С помощью вот этой программки:  
http://seniority.narod.ru/Staj.exe  
получаем стаж:  
прием: 01.10.2008 увольнение: 30.10.2008 стаж 1 месяц;  
прием: 01.10.2008 увольнение: 31.10.2008 стаж 1 месяц 1 день;  
прием: 01.10.2008 увольнение: 01.11.2008 стаж 1 месяц 1 день (сравните с предыдущим);  
 
Похоже, также, что расчет стажа производится исходя из 30 дней для февраля.  
 
В справке программы есть ссылка на постановление  Правительства РФ №555 от 24.07.2002), что каждые 30 дней переводятся в месяцы, а каждые 12 месяцев переводятся в полные годы.    
 
---  
ZVI

{quote}{login=ГлавБух}{date=05.10.2008 08:11}{thema=}{post}ZVI, спасибо, очень полезная ссылка! Жаль, что нельзя сохранить результаты в виде файлов.{/post}{/quote}  
---  
Еще одна ссылка на программу для расчета выслуги лет.  
http://download.ware.ru/win/6496_RVLsetup244.exe  
В ней есть возможность сохранить/загрузить.  
Методика учета 31-го числа отличается от предыдущей программы.  
---  
Удачи Вам,  
ZVI

{quote}{login=}{date=06.10.2008 01:51}{thema=}{post}А не нужно ли добавлять один день к вычислениям? Я вот о чем - устроился на работу  
01.01.2000, уволился  
02.01.2002.  
Ведь день увольнения - последний рабочий день. Тогда должно быть два дня (чловек работал 1-го и 2-го). А функция возвратит 1 день.{/post}{/quote}  
---  
Если Вы о функции РазностьДат(), то она лишь устраняет ошибки недокумментированной функции Excel РАЗНДАТ().  
И обе эти функции ничего не знают о российских правилах определения стажа. Что-то про это знают программы, на которые даны ссылки, с подозрением на 360-дневную годовую  систему счисления.  
 
Можно было бы реализовать функцию определения выслуги лет и в Excel-е, если бы кто-то четко сформулирует правила.  
Но ни здесь, ни в обсуждении раздела http://www.planetaexcel.ru/tip.php?aid=24 такие правила не сформулированы и, судя по вопросам, в этом и проблема.  
---  
ZVI

Попалась на глаза старая но интересная тема с прошлого года, кое что изменил но осталось одна неувязка. Модуль работает правильно за исключением 3-х цифр. Не поможете добавить исправление в модуле чтоб прописывало 11лет, 12лет, 13лет, 14лет а то он пишет года.

{quote}{login=Тиго}{date=03.01.2010 12:05}{thema=}{post}Попалась на глаза старая но интересная тема с прошлого года, кое что изменил но осталось одна неувязка. Модуль работает правильно за исключением 3-х цифр. Не поможете добавить исправление в модуле чтоб прописывало 11лет, 12лет, 13лет, 14лет а то он пишет года.{/post}{/quote}  
Добавил склонение падежей для лет.

"Насчет ошибок буду Вам признателен, если приведете примеры."  
*****************  
В моем файле (post_88281.xls) красным выделено.

Вот сравнение именно по Раность_дат, без учета последнего дня и всяких других правил.