powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить время из сети а не локальное.
7 сообщений из 7, страница 1 из 1
Получить время из сети а не локальное.
    #34119520
BAO-Rope
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Приветствую ВСЕХ!
Существует файл заявок и там по формуле в защищённую ячейку пишется пользователь и время внесения или время последнего редактирования заявки.
Проблема в том, что вноситься время с локального компьютера по Now(), но его подредактировать и поставить какое угодно может сделать каждый пользователь затрудняющийся найти "любую клавишу".
Есть простенькая команда для коммандной строки "net time" получающая время с сервера. Подскажите мне пожалуйста как получить результаты этой команды или какой-нибудь другой способ, может попроще...

Заранее спасибо!!!
...
Рейтинг: 0 / 0
Получить время из сети а не локальное.
    #34120344
Nosorog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
поскольку ГУРЫ молчат дайте слово дилетанту :
нужен интернет и утилита которая периодически корректирует часы на ПК с международным эталоном времени (атомные часы) погугли на эту тему наверняка ответ будет.
...
Рейтинг: 0 / 0
Получить время из сети а не локальное.
    #34121391
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может это подойдет: http://tinyurl.com/yxn4xk

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
Получить время из сети а не локальное.
    #34123072
BAO-Rope
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автор
One way may be to put a simple function in the server workbook that returns
the date and time e.g.
Function ServerDateTime()
ServerDateTime = Format(Date, "dd mmm yyyy ") & Time
End Function


and call that from the client workbook, e.g.
MsgBox Application.Run("'c:\book2.xls'!ServerDateTime")


It does assume you have a mapped drive, and I haven't tried it today as I
have no network at home, but should work (sic!).


Это не помогает(хотя может, я что то не понял), а остальные 3 примера про получение свойств файла, DateCreated, DateLastAccessed и DateLastModified.
KL (XL) спасибо за помощь.

nosorog спасибо, но это совсем не подойдёт, т.к. время пользователи могут выставить за пару секунд до редактирования файла... вот если бы макрос его выставлял обратно с сервака, то как вариант, но узнав такое его можно наверняка будет просто писать в документ и пусть хоть время по японским часам выставляют....
...
Рейтинг: 0 / 0
Получить время из сети а не локальное.
    #34123226
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Получить время из сети а не локальное.
    #34123241
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вариант, который предложил nosorog, не так уж плох. Вот файл с WEB запросом, при записи файла запрос обновляется и получается время, хотя +-полчаса. Можно найти часы поточнее...
...
Рейтинг: 0 / 0
Получить время из сети а не локальное.
    #34598629
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Решил поднять тему.
К sql-сервер можно так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim strCnnString$
    Dim myTime As Date
    'подключение к базе
    strCnnString = "Provider=sqloledb;Data Source=имясервера;Initial Catalog=имя базы;User Id=имяUsera;Password=пароль;"
    Set cnnTime = CreateObject("ADODB.Connection")
    cnnTime.Open strCnnString
    myTime = cnnTime.Execute("select getdate()").Fields( 0 )
    cnnTime.Close
    Set cnnTime = Nothing
Может еще есть какие-то варианты?
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить время из сети а не локальное.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]