Получение даты создания объекта через его ГУИД (GUID)

&НаСервере
Процедура ОпределитьДатуПоГУИД()
      

     ГУИД = Объект.СсылкаНаНайденныйОбек.УникальныйИдентификатор();
      

     Строка16 = Сред(ГУИД, 16, 3) + Сред(ГУИД, 10, 4) + Сред(ГУИД, 1, 8);
      

     Разрядность = СтрДлина(Строка16);
      

     ЧислоСек = 0;
      

     Для Позиция = 1 По Разрядность Цикл
      

     ЧислоСек = ЧислоСек + Найти("123456789abcdef",Сред(Строка16,Позиция,1))*Pow(16,Разрядность - Позиция);
      

     КонецЦикла;
      

     ЧислоСек = ЧислоСек / 10000000;
      
	 
	 Объект.ДатаСозданияЭлементаПоГУИД	=Дата(1582, 10, 15, 04, 00, 00) + ЧислоСек;	
	 
      

КонецПроцедуры