v7: Работа с NTP

1C 7.7

v7: Работа с NTP

☑

0 adm1nb3k

13.06.15

✎

10:14

Собственно, задача: Получить московское время с какого-нибудь NTP-сервера.
Прошу поделиться опытом.

1 Снежный человек

13.06.15

✎

10:26

v8: Работа с NTP

2 adm1nb3k

13.06.15

✎

10:44

(1). Спасибо. Я посмотрел. Но там на 8-ке. А мне нужен на 7-ке.

3 ДенисЧ

13.06.15

✎

10:47

так возми v7plus и перепиши...
Делов-то...

4 adm1nb3k

13.06.15

✎

11:07

Всем спасибо. Написал свой скрипт. Тупо, но работает.

Функция ПолучитьДату()
    ПеремТекущаяДата = "";
    Попытка
        Ф = ""+КаталогВременныхФайлов()+"\date.txt";
        Объект = СоздатьОбъект("wscript.shell");
        КомандаСистемы("w32tm /stripchart /computer:time.nist.gov /samples:1>"+Ф+"");

    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат ПеремТекущаяДата;
    КонецПопытки;
    Текст=СоздатьОбъект("Текст");
    Текст.Открыть(Ф);
    Для ст=0 по Текст.КоличествоСтрок() Цикл
        Если ст=3 Тогда
            ПеремТекущаяДата =  Сред(Текст.ПолучитьСтроку(ст),17,10);
        КонецЕсли;



    КонецЦикла;


    Возврат ПеремТекущаяДата;
КонецФункции

5 ДенисЧ

13.06.15

✎

11:14

"    Текст.Открыть(Ф);
    Для ст=0 по Текст.КоличествоСтрок() Цикл
        Если ст=3 Тогда
"
Мда... Стенку подсказать? Или сам найдёшь?

6 adm1nb3k

13.06.15

✎

11:26

(5). Да я просто по спешке скопировал код по обработке txt файла. А так, знаю что кода можно упростить до 1 строки.