Набросал пример на VBA, код нужно сохранить в шаблоне Excel. Для запуска найти и запустить макрос "ПолучитьДату" - всплывёт окно для ввода строки "921205400655", и по нажатию на "OK" дата будет добавлена на активный лист в ранее выбранную ячейку:
Function GetDate(ByVal str As String)
Dim day As String, month As String, year As String
year = Left(str, 2)
month = Mid(str, 3, 2)
day = Mid(str, 5, 2)
If year > 30 Then year = year + 1900 Else year = year + 2000
GetDate = year & "." & month & "." & day
End Function
Sub ПолучитьДату()
Dim result As String
On Error Resume Next
result = InputBox("Введите число", "Диалоговое окно", "921205400655")
ActiveCell = GetDate(result)
End Sub
