v8: Получение фактической даты записи любого элемента
Обработка позволяющая получить дату создания любого объекта через GUID объекта.
ВНИМАНИЕ обработка определяет верно только дату - время к сожалению возвращает не верно.
// Определяем дату создания любого элемента (Справочник, Документ) базы данных
Функция ДатаСозданияСсылки(Ссылка) Экспорт
Если НЕ ЗначениеНеЗаполнено(Ссылка) Тогда
Момент=Дата(1,1,1);
Попытка
УИ=Строка(Ссылка.УникальныйИдентификатор());
УИ=ВРег(СтрЗаменить(УИ,"-",""));
Если Сред(УИ,13,1)="1" Тогда
Значение16=ВРег(Сред(УИ,14,3)+Сред(УИ,9,4)+Сред(УИ,1,8));
Цифры16="123456789ABCDEF";
Значение10=0;
Длина16=СтрДлина(Значение16);
Для Ном=1 По Длина16 Цикл
Значение10=Значение10+Pow(16,Длина16-Ном)*Найти(Цифры16,Сред(Значение16,Ном,1));
КонецЦикла;
Значение10=Значение10/10000000;
Момент=Дата(1582,10,15,3,0,0)+Значение10;
КонецЕсли;
Исключение
КонецПопытки;
Возврат Момент;
иначе
возврат("нет данных")
КонецЕсли;
КонецФункции
|