Функция ДатаСозданияСсылки(Ссылка) Экспорт

	

	Если НЕ ЗначениеЗаполнено(Ссылка) Тогда

		Возврат Неопределено;

	КонецЕсли;	

		

	Момент = Дата(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;

			

		КонецЕсли;

		

    Исключение

    КонецПопытки;

	

	Возврат Момент;

		

КонецФункции

   

 // но по GUID можно определить время и дату

Функция ДатаСозданияСсылки(Ссылка)

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

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

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

    ЧислоСек = 0;

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

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

    КонецЦикла;

    ЧислоСек = ЧислоСек / 10000000;

    Возврат Дата(1582, 10, 15, 04, 00, 00) + ЧислоСек;

КонецФункции   

 Функция ДатаСозданияСсылки(Ссылка)

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

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

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

    ЧислоСек = 0;

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

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

    КонецЦикла;

    ЧислоСек = ЧислоСек / 10000000;

    Возврат Дата(1582, 10, 15, 04, 00, 00) + ЧислоСек;

КонецФункции