Здравствуйте.  
 
Есть такая процедура:  
Sub Даты()  
Dim dat1 As Date, dat2 As Date, Разность As Long  
 
dat1 = #12/15/2007#  
dat2 = #6/15/2010#  
 
Разность = dat2 - dat1  
MsgBox "Разность " & Разность    
 
End Sub  
 
Какую функцию надо использовать, чтобы получить Разность в годах (2,5 года)?

Добрый вечер.  
 
В ячейке А1 такой текст:        ТТН№ 158_1024_47982 от 20.02.10 Закирзянов Л.  
А в ячейке А2 нужно получить:   158_1024_47982  
Какую формулу лучше использовать?