[HELP] World Clock code

Daylight savings time

from WinCustomize Forums
As the title suggests, I'm having difficulty with my World Clock adjusting to Daylight Savings Time. Below is the code I'm using which works fine but does not take into account the loss or gain of an hour depending on which city is selected. I've tried having it look to see what month we are in and adjusting from there but it didn't seem to work.

Code
  5. Dim GMT
  9. 'Called when the script is executed
  11. Sub Object_OnScriptEnter
  13. GMT = 15
  15. Control.BackColor = RGB(252,252,252)
  17. Control.ForeColor = RGB(42,42,42)
  19. Control.SelectionBackColor = RGB(128,140,155)
  21. Control.SelectionForeColor = RGB(252,252,252)
  23. Control.AddItem "Midway Island"
  25. Control.AddItem "Honolulu"
  27. Control.AddItem "Los Angelos"
  29. Control.AddItem "Seattle"
  31. Control.AddItem "Albuquerque"
  33. Control.AddItem "Dallas"
  35. Control.AddItem "Mexico City"
  37. Control.AddItem "New York"
  39. Control.AddItem "Philadelphia"
  41. Control.AddItem "Washington, DC"
  43. Control.AddItem "Miami"
  45. Control.AddItem "Buenos Aires"
  47. Control.AddItem "Dublin"
  49. Control.AddItem "London"
  51. Control.AddItem "Lisbon"
  53. Control.AddItem "Berlin"
  55. Control.AddItem "Amsterdam"
  57. Control.AddItem "Rome"
  59. Control.AddItem "Paris"
  61. Control.AddItem "Madrid"
  63. Control.AddItem "Warsaw"
  65. Control.AddItem "Athens"
  67. Control.AddItem "Instanbul"
  69. Control.AddItem "Bucharest"
  71. Control.AddItem "Cairo"
  73. Control.AddItem "Helsinki"
  75. Control.AddItem "Jerusalem"
  77. Control.AddItem "Baghdad"
  79. Control.AddItem "Riyadh"
  81. Control.AddItem "Moscow"
  83. Control.AddItem "St. Petersburg"
  85. Control.AddItem "Nairobi"
  87. Control.AddItem "Bangkok"
  89. Control.AddItem "Jakarta"
  91. Control.AddItem "Beijing"
  93. Control.AddItem "Hong Kong"
  95. Control.AddItem "Singapore"
  97. Control.AddItem "Kuala Lumpur"
  99. Control.AddItem "Perth"
  101. Control.AddItem "Taipei"
  103. Control.AddItem "Tokyo"
  105. Control.AddItem "Seoul"
  107. Control.AddItem "Brisbane"
  109. Control.AddItem "Melbourne"
  111. Control.AddItem "Werribee"
  113. Control.AddItem "Sydney"
  115. Control.AddItem "Canberra"
  117. Control.AddItem "Guam"
  119. Control.AddItem "Auckland"
  121. Control.AddItem "Fiji"
  123. Control.ListIndex = 0
  125. End Sub
  129. Sub Control_OnSelect(item, string)
  133. If Control.Text = "Midway Island" Then
  135. DesktopX.Object("anaLocation1").Text = "MIDWAY ISLAND"
  137. DesktopX.ScriptObject("anaHour1").Offset = GMT - 11
  139. ElseIf Control.Text = "Honolulu" Then
  141. DesktopX.Object("anaLocation1").Text = "HONOLULU"
  143. DesktopX.ScriptObject("anaHour1").Offset = GMT - 10
  145. ElseIf Control.Text = "Los Angelos" Then
  147. DesktopX.Object("anaLocation1").Text = "LOS ANGELOS"
  149. DesktopX.ScriptObject("anaHour1").Offset = GMT - 8
  151. ElseIf Control.Text = "Seattle" Then
  153. DesktopX.Object("anaLocation1").Text = "SEATTLE"
  155. DesktopX.ScriptObject("anaHour1").Offset = GMT - 8
  157. ElseIf Control.Text = "Albuquerque" Then
  159. DesktopX.Object("anaLocation1").Text = "ALBUQUERQUE"
  161. DesktopX.ScriptObject("anaHour1").Offset = GMT - 7
  163. ElseIf Control.Text = "Dallas" Then
  165. DesktopX.Object("anaLocation1").Text = "DALLAS"
  167. DesktopX.ScriptObject("anaHour1").Offset = GMT - 6
  169. ElseIf Control.Text = "Mexico City" Then
  171. DesktopX.Object("anaLocation1").Text = "MEXICO CITY"
  173. DesktopX.ScriptObject("anaHour1").Offset = GMT - 6
  175. ElseIf Control.Text = "New York" Then
  177. DesktopX.Object("anaLocation1").Text = "NEW YORK"
  179. DesktopX.ScriptObject("anaHour1").Offset = GMT - 5
  181. ElseIf Control.Text = "Philadelphia" Then
  183. DesktopX.Object("anaLocation1").Text = "PHILADELPHIA"
  185. DesktopX.ScriptObject("anaHour1").Offset = GMT - 5
  187. ElseIf Control.Text = "Washington, DC" Then
  189. DesktopX.Object("anaLocation1").Text = "WASHINGTON, DC"
  191. DesktopX.ScriptObject("anaHour1").Offset = GMT - 5
  193. ElseIf Control.Text = "Miami" Then
  195. DesktopX.Object("anaLocation1").Text = "MIAMI"
  197. DesktopX.ScriptObject("anaHour1").Offset = GMT - 5
  199. ElseIf Control.Text = "Buenos Aires" Then
  201. DesktopX.Object("anaLocation1").Text = "BUENOS AIRES"
  203. DesktopX.ScriptObject("anaHour1").Offset = GMT - 3
  205. ElseIf Control.Text = "Dublin" Then
  207. DesktopX.Object("anaLocation1").Text = "DUBLIN"
  209. DesktopX.ScriptObject("anaHour1").Offset = GMT + 0
  211. ElseIf Control.Text = "London" Then
  213. DesktopX.Object("anaLocation1").Text = "LONDON"
  215. DesktopX.ScriptObject("anaHour1").Offset = GMT + 0
  217. ElseIf Control.Text = "Lisbon" Then
  219. DesktopX.Object("anaLocation1").Text = "LISBON"
  221. DesktopX.ScriptObject("anaHour1").Offset = GMT + 0
  223. ElseIf Control.Text = "Berlin" Then
  225. DesktopX.Object("anaLocation1").Text = "BERLIN"
  227. DesktopX.ScriptObject("anaHour1").Offset = GMT + 1
  229. ElseIf Control.Text = "Amsterdam" Then
  231. DesktopX.Object("anaLocation1").Text = "AMSTERDAM"
  233. DesktopX.ScriptObject("anaHour1").Offset = GMT + 1
  235. ElseIf Control.Text = "Rome" Then
  237. DesktopX.Object("anaLocation1").Text = "ROME"
  239. DesktopX.ScriptObject("anaHour1").Offset = GMT + 1
  241. ElseIf Control.Text = "Paris" Then
  243. DesktopX.Object("anaLocation1").Text = "PARIS"
  245. DesktopX.ScriptObject("anaHour1").Offset = GMT + 1
  247. ElseIf Control.Text = "Madrid" Then
  249. DesktopX.Object("anaLocation1").Text = "MADRID"
  251. DesktopX.ScriptObject("anaHour1").Offset = GMT + 1
  253. ElseIf Control.Text = "Warsaw" Then
  255. DesktopX.Object("anaLocation1").Text = "WARSAW"
  257. DesktopX.ScriptObject("anaHour1").Offset = GMT + 1
  259. ElseIf Control.Text = "Athens" Then
  261. DesktopX.Object("anaLocation1").Text = "ATHENS"
  263. DesktopX.ScriptObject("anaHour1").Offset = GMT + 2
  265. ElseIf Control.Text = "Istanbul" Then
  267. DesktopX.Object("anaLocation1").Text = "ISTANBUL"
  269. DesktopX.ScriptObject("anaHour1").Offset = GMT + 2
  271. ElseIf Control.Text = "Bucharest" Then
  273. DesktopX.Object("anaLocation1").Text = "BUCHAREST"
  275. DesktopX.ScriptObject("anaHour1").Offset = GMT + 2
  277. ElseIf Control.Text = "Cairo" Then
  279. DesktopX.Object("anaLocation1").Text = "CARIO"
  281. DesktopX.ScriptObject("anaHour1").Offset = GMT + 2
  283. ElseIf Control.Text = "Helsinki" Then
  285. DesktopX.Object("anaLocation1").Text = "HELSINKI"
  287. DesktopX.ScriptObject("anaHour1").Offset = GMT + 2
  289. ElseIf Control.Text = "Jerusalem" Then
  291. DesktopX.Object("anaLocation1").Text = "JERUSALEM"
  293. DesktopX.ScriptObject("anaHour1").Offset = GMT + 2
  295. ElseIf Control.Text = "Baghdad" Then
  297. DesktopX.Object("anaLocation1").Text = "BAGHDAD"
  299. DesktopX.ScriptObject("anaHour1").Offset = GMT + 3
  301. ElseIf Control.Text = "Riyahd" Then
  303. DesktopX.Object("anaLocation1").Text = "RIYAHD"
  305. DesktopX.ScriptObject("anaHour1").Offset = GMT + 3
  307. ElseIf Control.Text = "Moscow" Then
  309. DesktopX.Object("anaLocation1").Text = "MOSCOW"
  311. DesktopX.ScriptObject("anaHour1").Offset = GMT + 3
  313. ElseIf Control.Text = "St. Petersburg" Then
  315. DesktopX.Object("anaLocation1").Text = "ST. PETERSBURG"
  317. DesktopX.ScriptObject("anaHour1").Offset = GMT + 3
  319. ElseIf Control.Text = "Bangkok" Then
  321. DesktopX.Object("anaLocation1").Text = "BANGKOK"
  323. DesktopX.ScriptObject("anaHour1").Offset = GMT + 7
  325. ElseIf Control.Text = "Jakarta" Then
  327. DesktopX.Object("anaLocation1").Text = "JAKARTA"
  329. DesktopX.ScriptObject("anaHour1").Offset = GMT + 7
  331. ElseIf Control.Text = "Beijing" Then
  333. DesktopX.Object("anaLocation1").Text = "BEIJING"
  335. DesktopX.ScriptObject("anaHour1").Offset = GMT + 8
  337. ElseIf Control.Text = "Hong Kong" Then
  339. DesktopX.Object("anaLocation1").Text = "HONG KONG"
  341. DesktopX.ScriptObject("anaHour1").Offset = GMT + 8
  343. ElseIf Control.Text = "Singapore" Then
  345. DesktopX.Object("anaLocation1").Text = "SINGAPORE"
  347. DesktopX.ScriptObject("anaHour1").Offset = GMT + 8
  349. ElseIf Control.Text = "Kuala Lumpur" Then
  351. DesktopX.Object("anaLocation1").Text = "KUALA LAMPUR"
  353. DesktopX.ScriptObject("anaHour1").Offset = GMT + 8
  355. ElseIf Control.Text = "Perth" Then
  357. DesktopX.Object("anaLocation1").Text = "PERTH"
  359. DesktopX.ScriptObject("anaHour1").Offset = GMT + 8
  361. ElseIf Control.Text = "Taipei" Then
  363. DesktopX.Object("anaLocation1").Text = "TAIPEI"
  365. DesktopX.ScriptObject("anaHour1").Offset = GMT + 8
  367. ElseIf Control.Text = "Tokyo" Then
  369. DesktopX.Object("anaLocation1").Text = "TOKYO"
  371. DesktopX.ScriptObject("anaHour1").Offset = GMT + 9
  373. ElseIf Control.Text = "Seoul" Then
  375. DesktopX.Object("anaLocation1").Text = "SEOUL"
  377. DesktopX.ScriptObject("anaHour1").Offset = GMT + 9
  379. ElseIf Control.Text = "Brisbane" Then
  381. DesktopX.Object("anaLocation1").Text = "BRISBANE"
  383. DesktopX.ScriptObject("anaHour1").Offset = GMT + 10
  385. ElseIf Control.Text = "Melbourne" Then
  387. DesktopX.Object("anaLocation1").Text = "MELBOURNE"
  389. DesktopX.ScriptObject("anaHour1").Offset = GMT + 12
  391. ElseIf Control.Text = "Werribee" Then
  393. DesktopX.Object("anaLocation1").Text = "WERRIBEE"
  395. DesktopX.ScriptObject("anaHour1").Offset = GMT + 12
  397. ElseIf Control.Text = "Sydney" Then
  399. DesktopX.Object("anaLocation1").Text = "SYDNEY"
  401. DesktopX.ScriptObject("anaHour1").Offset = GMT + 12
  403. ElseIf Control.Text = "Canberra" Then
  405. DesktopX.Object("anaLocation1").Text = "CANBERRA"
  407. DesktopX.ScriptObject("anaHour1").Offset = GMT + 12
  409. ElseIf Control.Text = "Guam" Then
  411. DesktopX.Object("anaLocation1").Text = "GUAM"
  413. DesktopX.ScriptObject("anaHour1").Offset = GMT + 10
  415. ElseIf Control.Text = "Auckland" Then
  417. DesktopX.Object("anaLocation1").Text = "AUCKLAND"
  419. DesktopX.ScriptObject("anaHour1").Offset = GMT + 12
  421. ElseIf Control.Text = "Fiji" Then
  423. DesktopX.Object("anaLocation1").Text = "FIJI"
  425. DesktopX.ScriptObject("anaHour1").Offset = GMT + 12
  427. End If
  429. End Sub


Anyone have any ideas???
desktopx
3,705 views 3 replies
Reply #1 from WinCustomize Forums Top
The thing is that not everyone use daylight setting. So how would people know what city to pick in order to get what's right for them, unless they live in that city. Would it work if you simply had a checkbox to indicate whether to use daylight saving or not. Then add that to you calculation.

Another thing, isn't GMT affected by daylight saving time? So if you use GMT as a base, won't all ther other times be adjusted similary as as well?
Reply #2 from WinCustomize Forums Top
GMT does not change due to daylight saving times. The time in Greenwich does but then it is British Summer Time and not GMT.
Its probably better to use UTC rather than GMT. They are the same but UTC is the now the standard term used.
SoundPackager - Customize the Windows sound scheme
Reply #3 from WinCustomize Forums Top
This site will probably be useful for you.

Sources for Time Zone and Daylight Saving Time Data
Link