Daylight Savings Time - Looking for Chip H.

[dionu]

Chip,

I have questions regarding some help you posted about a year ago in regards to a Daylight Savings Time question. The GetTimeZoneInformation function to be specific. How do you properly call that function. It seems like you need to provide an arguement, but I thought the arguement is what you were looking for?

 

[CasperTFG]

You provide a Type and get the Type back filled out. This is the link you are probably looking for.

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q221542

Craig, mailto:sander@cogeco.ca

Remember not to name the Lambs...
It only makes the chops harder to swallow

 

[chiph]

OK, if you refer to the other thread (thread222-77535), you'll see that I'm defining a Type named TIME_ZONE_INFORMATION. You need to declare a variable of this type like:

Dim MyTimeZoneInfo as TIME_ZONE_INFORMATION

You then call the GetTimeZoneInformation function like this:

Dim lRC As Long

lRC = GetTimeZoneInformation(MyTimeZoneInfo)

If lRC is a 0, the system doesn't know if you're in DST or not. If it's a 1, you're in Standard Time. If it's a 2, then you're in DST.

If it's a 0, you can examine the contents of the MyTimeZoneInfo Type to maybe make a further decision. You'll have to copy the SYSTEMTIME elements to a Date variable by hand:

Dim dtStandardBegins as Date
Dim dtSavingsBegins as Date

dtStandardBegins = DateSerial(MyTimeZoneInfo.StandardDate.wYear, _
    MyTimeZoneInfo.StandardDate.wMonth, _
    MyTimeZoneInfo.StandardDate.wDay)
dtSavingsBegins = DateSerial(MyTimeZoneInfo.DaylightDate.wYear, _
    MyTimeZoneInfo.DaylightDate.wMonth, _
    MyTimeZoneInfo.DaylightDate.wDay)

The DaylightBias and StandardBias elements of the TIME_ZONE_INFORMATION Type tells you how far the clock changes on those dates (negative value means you lose time). Like I said in the other thread, you can use the DateDiff function against one of these and the contents of the Now() function to tell if you're in DST or not.

Hope this helps.

Chip H.