Mensaje enviado por José Rubí de la Vega <jrubi@ctv.es>

Espero que esto sea lo que necesitas.
La funcion GetTimeZoneInformation rellena una estructura con la diferencia con el UTC, etc (no lo entendi muy bien) y devuelve (creo) si estas en horario de verano.

Dim tzZona As TIME_ZONE_INFORMATION
Dim res As Long

res = GetTimeZoneInformation(tzZona)
if res = TIME_ZONE_ID_DAYLIGHT then
         'estas en horario de verano
...

Puedes emplear tambien GetSystemTime para devolver la hora de la maquina en formato UTC y GetLocalTime para la hora local.

Type SYSTEMTIME
         wYear As Integer
         wMonth As Integer
         wDayOfWeek As Integer
         wDay As Integer
         wHour As Integer
         wMinute As Integer
         wSecond As Integer
         wMilliseconds As Integer
End Type
Declare Function GetTimeZoneInformation Lib "kernel32"
(lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
Type TIME_ZONE_INFORMATION
         Bias As Long
         StandardName(32) As Integer
         StandardDate As SYSTEMTIME
         StandardBias As Long
         DaylightName(32) As Integer
         DaylightDate As SYSTEMTIME
         DaylightBias As Long
End Type
Public Const TIME_ZONE_ID_DAYLIGHT = 2
Public Const TIME_ZONE_ID_INVALID = &HFFFFFFFF
Public Const TIME_ZONE_ID_STANDARD = 1
Public Const TIME_ZONE_ID_UNKNOWN = 0
Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)



At 12:53 17/12/99 +0100, Delgado Gómez, Carlos J. wrote:
>Reformulo la pregunta de las hora Zulú.
>
>
>Necesito algún módulo, función, api, lo que sea que me permita preguntarle
>al ordenador: SI ESTOY O NO EN HORARIO DE VERANO.
>
>me imagino que se tiene que poder, al fin y al cabo, al configurar la hora
>en Windows, la mayoría de las zonas horarias te dan la opción de que el
>ordenador cambie el sólo de hora.
>
>Pues si el ordenador puede, yo quiero poder ;-)
>
>
>Saludos y Gracias.
>
>
>
>............................................
>Carlos J. Delgado Gómez
>Ingeniero Técnico en Informática
>Tenerife, Islas Canarias, España.
>
>E-MAIL:
> (TRABAJO) cjdelgado@aena.es
> (CASA) cjdelgado@retemail.es
> (UNIVERSIDAD) alu1202@csi.ull.es
>............................................


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@ctv.es
WWW : http://www.ctv.es/USERS/jrubi
Podrás encontrar información sobre VB, las listas
vb-esp y visualbasic-esp y un resumen de los
mensajes de las mismas