Имя: Пароль:
1C
1C 7.7
v7: Работа с NTP
0 adm1nb3k
 
13.06.15
10:14
Собственно, задача: Получить московское время с какого-нибудь NTP-сервера.
Прошу поделиться опытом.
1 Снежный человек
 
13.06.15
10:26
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 строки.
Программист всегда исправляет последнюю ошибку.