Операции над датами в VBA

[Nonadoshi]

Доброго времени суток. Имеется задача: дана дата поступления сотрудника на работу (вводится через клавиатуру) и нужно рассчитать его стаж работы на 31.01.2011г.

Private Sub Кнопка0_Click()

Dim B As Date
Dim n As Date
Dim f As Date

n = #1/31/2011#
B = InputBox("Введите день рождения(дд.мм.гг)") 'дата поступления на работу
f = n - B
MsgBox (f)
End Sub

Сначала я думал что нужно найти их разность и вывести число лет которые получатся, но разность получилась совсем не та которую я ожидал и идея провалилась. Подскажите как можно решить эту задачу.

[ViktorR]

А если посмотреть в сторону функции DateDiff() ?
Функция возвращает разность дат в зависимости от параметра - в годах, днях или ...



Вроде того ...

[Nonadoshi]

ViktorR, да, как-раз то что и было мне нужно, большое спасибо.