Hei Morten
http://www.cpearson.com/excel/timezone.htm
http://vbnet.mvps.org/index.html?code/locale/gettimezoneinfo.htm
HTH. Beste hilsen Harald
"Morten Trab" <morten@trab.dk> skrev i melding
news:cgc5sb$l2n$1@svr-1.homedir.dk...
> Jeg har siddet og rodet lidt, og forsøgt at få min VB til at skrive
hvilken
> tidszone maskinen er i...
>
> Problemet er at den funktion der kommer nærmest ikke vil tage højde for
> sommertid, nogen der kan få den til det, eller kender en funktion der
tager
> højde for sommertid??
>
> Den funktion der er prøvet er:
>
> Private 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
>
> Private 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
>
> Private Declare Function GetTimeZoneInformation Lib "kernel32.dll"
> (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
>
> og derefter dette i FORM_LOAD:
>
> Dim tz As TIME_ZONE_INFORMATION
> Call GetTimeZoneInformation(tz)
> MsgBox CStr(tz.Bias)
>
> --
> Mvh./Best Regards,
> Morten Trab
>
http://www.blackchart.dk
>
>