Как и где в инете взять точное время ?

[Cadett]

Собссно сабж. Требуется вывести в лабел скоординированное время UTC (по Гринвичу). Желательно достать его с инета для точности, но на крайняк хотябы скажите как достать из винды региональную настройку с инфой какой часовой пояс и сколько часов разница от UTC.

P.S. Спасибо, тем кто ответил на мои крайние 2 вопроса. Очень посогли...

[RayShade]

http://www.worldtimeserver.com/

Вот на нем можно посмотреть Там и утиль моджно скачать для синхронизации.

[Cadett]

Это конечно спасибо, но задача не совсем такая. Мне нужно в проге своей заиметь лейбл, на котором время UTC сообщается.
Для этого нужно:
а) или при загрузке проги снять в сервера точное время и запустить далее таймер. Как снять прогой время из инета?
б) или на крайняк использовать системное время, но от него нужно отнять разницу. Как её узнать?

[Amed]

ИМХО, решение такое:
Ищете в Инете скрипт (pl или asp), который возвращает текущее время, а потом с помощью MS Internet Transfer Control грузите его "ответ" в label...

[Amed]

Хотя, конечно, такой скрипт найти не слишком просто...
Поищите на http://www.yandex.ru

[Cadett]

Мда... Чё-то не могу найти... Может не так ищу...

[Sebas]

Private Declare Function NetRemoteTOD Lib "Netapi32.dll" ( _
tServer As Any, pBuffer As Long) As Long

Private Declare Function NetApiBufferFree Lib "Netapi32.dll" (ByVal lpBuffer As Long) As Long
'
Private Type TIME_OF_DAY_INFO
tod_elapsedt As Long
tod_msecs As Long
tod_hours As Long
tod_mins As Long
tod_secs As Long
tod_hunds As Long
tod_timezone As Long
tod_tinterval As Long
tod_day As Long
tod_month As Long
tod_year As Long
tod_weekday As Long
End Type
'
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'
'
Public Function getRemoteTOD(ByVal strServer As String) As Date
'
Dim result As Date
Dim lRet As Long
Dim tod As TIME_OF_DAY_INFO
Dim lpbuff As Long
Dim tServer() As Byte
'
tServer = strServer & vbNullChar
lRet = NetRemoteTOD(tServer(0), lpbuff)
'
If lRet = 0 Then
CopyMemory tod, ByVal lpbuff, Len(tod)
NetApiBufferFree lpbuff
result = DateSerial(tod.tod_year, tod.tod_month, tod.tod_day) + _
TimeSerial(tod.tod_hours, tod.tod_mins - tod.tod_timezone, tod.tod_secs)
getRemoteTOD = result
End If
'
End Function

[Valerik]

time.windows.com

[Cadett]

Sebas: А как это заюзать-то? Что писать в strSrver? Пытался писать IP известных серверов времени, но тогда прога зависает и всё.
Вставил код, и писал:

Private Sub Command1_Click()
MsgBox getRemoteTOD("132.163.4.101")
End Sub

Valerik: Вопрос не дайте мне адрес сервера времени. Я их много знаю, а как это из проги заюзать.

[Cadett]

Мужики, ну подскижите ещё, тема ведь очевидная...

[gaidar]

Обращаещься к серверу через Winsock, как обычно. Даешь запрос на соединение (хоть ftp, smtp и т.д.) и он тебе время выдает по любому свое. Ищешь сервер по надежнее в этом плане и все ...

Примеры коннектов к серверу - см. vbstreets.ru.

[Cadett]

Обращаещься к серверу через Winsock, как обычно. Даешь запрос на соединение (хоть ftp, smtp и т.д.) и он тебе время выдает по любому свое. Ищешь сервер по надежнее в этом плане и все ...

Примеры коннектов к серверу - см. vbstreets.ru.

Истина где-то рядом... Все знают, но никто не говорит...

Как законнектиться к серверу мне пояснили тут уже (правда с помощью Inet контрола) а как время-то взять оттуда??

[FaKk2]

gaidar, имхо хочет сказать следующее:
когда ты коннектишься к серверу через порт почты или фтп, он тебе отсылает welcome сообщение о себе. это обычный текст. там то и дается локальное время сервера. Теперь, ищешь подходящий сервер, соединяешься, ищешь в строке время и выводишь на лэйбл.

[Cadett]

Мужики, извините дурака. Дайте пример. Не шлёт он мне никаких вэлкамов. Нужная тема. Плз...