HORA ACTUAL EN USERFORM

upps Disculpa Héctor lo había olvidado el nombre del servidor es:
"laptop2000"

Gracias

hola, Luis !

... el nombre del servidor es: "laptop2000"

1) este servidor (si es el que estas usando) es el del ejemplo (entonces...)
confirmas que tambien es parte existente en tu red o en la red donde buscas ?

2) el inicio de la secuencia de acciones (en la pagina sugerida) es la accion de un boton (donde dice)
______
Private Sub Command1_Click()
Text1.Text = Now
'Text2 is set in SynchronizeTOD function
Text3.Text = SynchronizeTOD("laptop2000")
End Sub

=> como y donde estas tu inciando esta secuencia ?

saludos,
hector.

qué tal Héctor.. no había caído en cuenta que "laptop2000" debe ser un
equipo en Red.. qué sucede si quiero que sea tomada de un sitio
externo Ej. una página en internet por ej?? si es un equipo en Red lo
identifico directamente con su nombre en la Red??

y por ahora estoy manejando el código exacto como se encuentra en la
página sugerida.. había planeado que cuando este me funcione
correctamente colocaría el código correspondiente en mi aplicación.

Saludos!

hola, Luis !

... no habia caido en cuenta que "laptop2000" debe ser un equipo en Red.
que sucede si quiero que sea tomada de un sitio externo una pagina en internet por ej?
si es un equipo en Red lo identifico directamente con su nombre en la Red? ...

(creo que) usar alguna pagina web te obligaria a buscar la zona horaria del pc donde se ejecute tu codigo (?)
si es equipo de red solo necesitas su identificacion (las funciones completan convencionalismos como "\\" etc.)

(probablemente) lo que te convendria es adaptar el ejemplo de otra de las paginas sugeridas (esta:)
SetSystemTime: SNTP Time Server Synchronization using Winsock
http://vbnet.mvps.org/code/network/...nctime.htm

(observa en el dialogo de "ajustar fecha y hora" cuando haces un clic-secundario en el icono de fecha-hora del systray)
solo necesitas uno de los servidores de sincronizacion horaria que utiliza windows (por omision)
de los que usa el ejemplo al inicializar/cargar el formulario (de VB) -> Private Sub Form_Load()
solo utiliza alguno de los siguientes:
- time.windows.com
- time.nist.gov

el ejemplo de la pagina sugerida hace mencion del siguiente articulo de la MS-KB: Q216734

aqui tienes algunos enlaces relacionados (incluyendo el de la pagina):

Como configurar un servidor horario con autoridad en Windows 2000
http://support.microsoft.com/kb/216734/

Como configurar un servidor horario con autorizacion en Windows XP
http://support.microsoft.com/kb/314054/

Lista de servidores horarios disponibles en Internet que utilizan el Protocolo simple de tiempo de redes
http://support.microsoft.com/kb/262680/

Entradas del Registro para el servicio W32Time
http://support.microsoft.com/kb/223184/

para consultar la hora exacta en tu zona horaria
http://www.worldtimeserver.com/

saludos,
hector.