helpf.pro
Регистрация
 0 
Распечатать

Как получить текущее время с милисекундами?

В Платформе 8.2.17 реализована возможность получения числа миллисекунд, прошедших с 1 января 0001 года, 0:00:00 UTC с помощью функции
Код 1C v 8.2 УП
 ТекущаяУниверсальнаяДатаВМиллисекундах()    


Код 1C v 8.х
  // В 8.х переменные типа "дата" содержат миллисекунды, только это нигде не написано
ДатаИсх = ТекущаяДата(); //простая дата+время
ДатаНов = ДатаИсх + 0.567; //дата+время+миллисекунды
Миллисекунды = (ДатаНов - ДатаИсх) * 1000; //вытаскиваем миллисекунды из даты


Код 1C v 8.х
 Функция ПолучитьТекущееВремяВМиллисекундах() Экспорт
Если JavaScript = Неопределено Тогда
Попытка
JavaScript = Новый COMОбъект("MSScriptControl.ScriptControl");
Исключение
Сообщить(ОписаниеОшибки(), СтатусСообщения.Внимание);
Возврат 0;
КонецПопытки;
JavaScript.Language = "javascript";
КонецЕсли;
Время = JavaScript.Eval("new Date().getTime()");
Возврат Время;
КонецФункции

Код 1C v 8.х
 // Как быстрее получить время в миллисекундах? 
Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
ServicesSet = Locator.ConnectServer(".");
Для а=1 по 100 цикл
pEnum = ServicesSet.InstancesOf("Win32_OperatingSystem");
Для каждого Object Из pEnum Цикл
сообщить(сред(Object.LocalDateTime,13,6));
Прервать;
КонецЦикла;
КонецЦикла;



Код 1C v 7.x
 
Scr=СоздатьОбъект("MSScriptControl.ScriptControl");
Scr.Language = "javascript";
d=Scr.Eval("new Date();");
Сообщить(d.getTime(0));
Сообщить(d.getHours(0));
Сообщить(d.getMinutes(0));
Сообщить(d.getSeconds(0));
Сообщить(d.getMilliseconds(0));
Разместил:   Версии: | 7.x | 8.x | 8.2 УП |  Дата:   Прочитано: 54518
 0 
Распечатать
Возможно, вас также заинтересует
Деноминация 2016 в 1С 0
Чтобы провести деноминацию в 1С на 1 июля 2016 года, нужно учесть, что желательно учет вести в двух суммовых измерениях в белорусских рублях старого и нового образца. Однако, даже если Вы решите упростить задачу и проведете деноминацию в программе в
Для чего нужна граница последовательности документов? 0
Граница последовательности документов предназначена для облегчения поиска пользовательских ошибок, допущенных при вводе документов. Программы "1С" автоматически отслеживают возможное нарушение актуальности итогов при проведении документов задним числ
Итог оборотного регистра 0
// Пример 1 Функция ПолучитьИтог(Товар, Склад, Год); Регистр.ОборотыТоваров.ИспользоватьПериод(Год); Возврат Регистр.ОборотыТоваров.Итог(Товар, Склад, " ОборотТовара" ); КонецФункции // Пример 2
Итоги оборотного регистра 0
// Пример 1 Регистр.ОборотыТоваров.ИспользоватьПериод(Год); Регистр.ОборотыТоваров.Итоги(Товар, Склад); ОбТов = Регистр.ОборотыТоваров.ОборотТовара; // Пример 2 РегДоходы = СоздатьОбъект(" Регистр.Доходы" ); //установить период выборки " 3
Как в периодическом независимом регистре сведений удалить все записи по валютам с наименованиями? 0
Как в периодическом независимом регистре сведений «КурсыВалют» удалить все записи по валютам с наименованиями «EUR» и «USD», период которых меньше 01 января 2005 года? Сначала получим таблицу записей, которые необходимо оставить. Поскольку условий
Посмотреть все результаты поиска похожих
Комментарии
E_Migachev
30.09.2010 21:01Комментарий: 2
E_Migachev
9thlevel, это по твоему желанию - если ты хочешь чтобы только выполнялся на клиенте, то ставь! *13
9thlevel
30.09.2010 04:58Комментарий: 1
9thlevel
Спасибо большое! Как раз вовремя нашел статью. Маленький вопрос. Условие нужно ставить проверки работы кона на клиенте или сервере?
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.