" title="Написать письмо">Написать письмо

Статистика

Пользователи : 1
Статьи : 1936
Просмотры материалов : 7054712
 
Список городов и работа с часовыми поясами, на примере VB6 (28.07.2012). Печать E-mail
2012 - Июль
28.07.2012 16:52
Save & Share

Этот список - детище меня и ещё одной очень усердной девушки, и вместе мы справились с этой рутиной.

Список был необходим для программы Яркостник, т.к. была необходимость работы с городами и с временными зонами. Первоначально он был англоязычным, пришлось сделать ещё и русский перевод. Найти список городов можно в полезных исходниках для программистов.

Теперь как с ним работать. Пробелы в роли разделителей - в большинстве случаев, сначала идет долгота, потом широта. Расчет временной зоны для конкретного города делается по формуле, связанной только с долготой:

Dim timezone_automatic as String
timezone_automatic = Form.Text_longitude.text \ 15 + Sgn(Form.Text_longitude.text) * Abs((Form.Text_longitude.text Mod 15) \ 7.5)

Часовой пояс в системе Windows можно получить следующим образом:

Dim timezone_system As String
Dim Reg As Variant
Set Reg = CreateObject("WScript.Shell")
timezone_system = Reg.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias")
timezone_system = -CLng(timezone_system) / 60

 
 

Последние новости


©2008-2024. All Rights Reserved. Разработчик - " title="Сергей Белов">Сергей Белов. Материалы сайта предоставляются по принципу "как есть". Автор не несет никакой ответственности и не гарантирует отсутствие неправильных сведений и ошибок. Вся ответственность за использование материалов лежит полностью на читателях. Размещение материалов данного сайта на иных сайтах запрещено без указания активной ссылки на данный сайт-первоисточник (ГК РФ: ст.1259 п.1 + ст.1274 п.1-3).

Много статей не имеет срока устаревания. Есть смысл смотреть и 2011, и даже 2008 год. Политика сайта: написать статью, а потом обновлять ее много лет.
Открыта карта ВТБ для донатов на дорогостоящие эксперименты: 5368 2902 0040 0838.

Рекламодателям! Перестаньте спамить мне на почту с предложениями о размещении рекламы на этом сайте. Я никогда спамером/рекламщиком не был и не буду!
Top.Mail.Ru