Hora Mundial

Hola a todos

Necesito desde Visual Basic 6.0 conocer la hora mundial

como puedo hacer

eso?

De antemno gracias

John


.

Jhon, para eso tienes que comunicarte con un servidor NTP
(Nerwork Time Protocol) (public time server).

Estos servidores devuelven(por lo menos en este ejemplo)
un numero de 32 bits que representa la cantidad de
segundos que han transcurrido desde el 01/01/1900, que es
la hora mundial (El Tiempo Medio de Greenwich -Greenwich
Mean Time (GMT)- )y con esto ajustar la hora del país en
el que resides (que puedes obtener de la pc)


Necesitas un control Winsock y ovbiamente la conexión a
internet.

Private Sub ObtenerTiempo_click
sck.Protocol = sckTCPProtocol
sck.RemotePort = 37
sck2.Remotehost = "NombreServidoreNTP"
sck2.Connect
End sub

Private Sub sck_DataArrival(ByVal bytesTotal As Long)

Dim i as integer
Dim s As String
'leo los mensajes que me llegan desde el servidor NTP.

sck2.GetData s
'ej. s = "ÂÏø'"

'en este caso llegan cuatro caracteres cuyos ascii
'correspondientes representa un numero hexadecimal,

'ya se ha recibido s (cuatro caracteres)

'Convierte a formato hexadecimal
For i = 1 To Len(s)
Resultado = Resultado & (String(2 - Len(Hex(Asc(Mid(s,
i, 1)))), "0") & Hex(Asc(Mid(s, i, 1))))
Next i

'ej. s = "ÂÏø'" string
'ej. s = "C2 CF F8 27" hexadecimal
'ej. Formato Decimal = 3268409383

'Este es el numero de segundos transcurridos a partir de
'01/01/1900 (dd/mm/aaaa)
'y deberas sumarlos a esta fecha, y ya tienes la
'Fecha/Hora de GMT, solo deberás hacer los ajustes a tu
'pais (no olvides el horario de verano)

date = Fecha 'asigna la fecha al equipo
Time = Fecha 'asigna la hora al equipo

End If

End Sub

Debo decirte que algunas semanas atrás, Rubén Vigón, me
respondió con unos links (que desafortunadamente no tengo
a la mano) a esta misma pregunta, en "Hora de servidor
web" o algo por el estilo.

Aqui te pongo un link donde hay información acerca de
servidires NTP

http://www.eecis.udel.edu/~mills/ntp/clock1a.html

Espero te sea de utilidad.

Saliu2. Héctor Varela.