Older Version
Newer Version
harmonv
Sep 30, 2008
[[code format="vbnet"]] ' Time Zone: Extreme Coding Challenge ' entry of Harmon V. -- GUI version ' released as public domain ' LB\timezone2.bas ' The 27 megacities with populations of 10 million or more. ' daylight savings/summer start and stop times from www.dateandtime.com Rem # City, Country Pop. ST DT start&& End Data 1, "Tokyo, Japan", "33,600,000", "UTC+9", "NONE" ' 35*41'N x 139*46'E Data 2, "Seoul, South Korea", "23,400,000", "UTC+9", "NONE" Data 3, "Mexico City, Mexico", "22,400,000", "UTC-6", "Sun 06-APR-08 02:00", "Sun 26-OCT-08 02:00" Data 4, "New York City, USA", "21,962,000", "UTC-5", "Sun 09-MAR-08 02:00", "Sun 02-NOV-08 02:00" Data 5, "Mumbai, India", "21,600,000", "UTC+5.5", "NONE" Data 6, "Delhi, India", "21,500,000", "UTC+5.5", "NONE" Data 7, "São Paulo, Brazil", "20,600,000", "UTC-3", "Sun 19-OCT-08 00:00", "Sun 17-FEB-09 00:00" Data 8, "Los Angeles, USA", "18,000,000", "UTC-8", "Sun 09-MAR-08 02:00", "Sun 02-NOV-08 02:00" Data 9, "Shanghai, China", "17,500,000", "UTC+8", "NONE" Data 10, "Osaka, Japan", "16,700,000", "UTC+9", "NONE" Data 11, "Cairo, Egypt", "16,100,100", "UTC+2", "Fri 25-APR-08 00:00", "Fri 29-AUG-08 00:00" Data 12, "Buenos Aires,Argentina","16,000,000", "UTC-3", "Sun 19-OCT-08 00:00", "Sun 16-MAR-09 00:00" Data 13, "Kolkata, India", "15,700,000", "UTC+5.5", "NONE" Data 14, "Manila, Philippines", "15,600,000", "UTC+8", "NONE" Data 15, "Jakarta, Indonesia", "15,100,000", "UTC+7", "NONE" Data 16,"Karach"Karachi, Pakistan", "15,100,000", "UTC+5", "Sun 01-Jun-08 00:00", "Sat 01-NOV-08 00:00" Data 17, "Tehran, Iran", "13,500,000", "UTC+3.5", "Fri 21-MAR-08 00:00", "Sun 21-SEP-08 00:00" Data 18, "Beijing, China", "12,800,000", "UTC+8", "NONE" Data 19, "Dhaka, Bangladesh", "12,750,000", "UTC+6", "NONE" Data 20, "Lahore, Pakistan", "12,700,000", "UTC+5", "Sun 01-JUN-08 00:00", "Sat 01-NOV-08 00:00" Data 21, "London, England", "12,500,000", "UTC+0", "Sun 30-MAR-08 01:00", "Sun 26-OCT-08 02:00" Data 22, "Paris, France", "12,000,000", "UTC+1", "Sun 30-MAR-08 02:00", "Sun 26-OCT-08 03:00" Data 23, "Istanbul, Turkey", "11,800,000", "UTC+2", "Sun 30-MAR-08 03:00", "Sun 26-OCT-08 04:00" Data 24, "Rio de Janeiro, Brazil","11,500,000", "UTC-3", "Sun 19-OCT-08 00:00", "Sun 17-FEB-09 00:00" Data 25, "Lagos, Nigeria", "10,200,000", "UTC+1", "NONE" Data 26, "Moscow, Russia", "10,100,000", "UTC+3", "Sun 30-MAR-08 02:00", "Sun 26-OCT-08 03:00" Data 27, "Bangkok, Thailand", "10,100,000", "UTC+7", "NONE" Struct timeZoneData, _ Bias As Long, _ StandardName As Char[64], _ StandardDateYear As Short, _ StandardDateMonth As Short, _ StandardDateDayOfWeek As Short, _ StandardDateDay As Short, _ StandardDateHour As Short, _ StandardDateMinute As Short, _ StandardDateSecond As Short, _ StandardDateMilliseconds As Short, _ StandardBias As Long, _ DaylightName As Char[64], _ DaylightDateYear As Short, _ DaylightDateMonth As Short, _ DaylightDateDayOfWeek As Short, _ DaylightDateDay As Short, _ DaylightDateHour As Short, _ DaylightDateMinute As Short, _ DaylightDateSecond As Short, _ DaylightDateMilliseconds As Short, _ DaylightBias As Long Calldll #kernel32, "GetTimeZoneInformation", timeZoneData As Struct, ret As Long Global myUTCoffset myUTCoffset = timeZoneData.Bias.struct + timeZoneData.DaylightBias.struct ncities = 27 Dim city$(ncities) ' City, Country Dim pop$(ncities) ' population of megacity (aka: metropolitan area) Dim st$(ncities) ' standard time (in terms of UTC) ie:UTC-3 ' Next two arrays deal with daylight savings time (DST) ' format of these two strings is "Aaa dd-MMM-yy HH:MM" Dim dtstart$(ncities) ' When DST starts or NONE if area does not observe DST Dim dtstop$(ncities) ' When DST stops ' load arrays For a = 1 To ncities Read n, a$, b$, c$, d$ If d$<>"NONE" Then Read e$ Else e$ = "" city$(a) = a$ pop$(a) = b$ st$(a) = c$ dtstart$(a) = d$ dtstop$(a) = e$ Print n;" "; a$; Tab(28);" "; b$;" "; c$;" "; d$;" "; e$ Next a ' GUI code begins here WindowWidth = 500 WindowHeight = 400 Statictext #win.banner1, "Time Zone -- Extreme Coding Challenge", 80, 25, 350, 25 Statictext #win.now1, "Local Date and Time :", 10, 75, 400, 25 Statictext #win.now2, "", 120, 100, 150, 25 Statictext #win.now3, "", 280, 100, 100, 25 Statictext #win.UTC, "UTC/GMT Date and Time :", 10, 125, 400, 25 Statictext #win.UTC2, "", 120, 150, 400, 25 Statictext #win.txt, "<< Select megacities >>", 120, 190, 300, 25 Combobox #win.cb1, city$(), citypick, 10, 220, 220, 100 Statictext #win.citya, "", 20, 250, 200, 50 ' print city date & time Combobox #win.cb2, city$(), citypick, 250, 220, 220, 100 Statictext #win.cityb, "", 260, 250, 200, 50 ' print city date & time Open "UTC/GMT Time Zone Utility" For window_nf As #win #win, "trapclose [xitprog]" winOpen = 1 #win, "font Verdana 12" [again] Timer 0 ' * Program must first show the current date and time based upon ' Liberty BASIC's native Date$() and Time$() functions. dateNow$ = Date$() timeNow$ = Time$() #win.now2, dateNow$ #win.now3, timeNow$ ' * Program must calculate GMT ' convert local time to UTC/GMT time dateTimeUTC = Date$("days") + Time$("seconds")/86400 + myUTCoffset/1440 ' * Program must then allow user to select at least 2 other time zones. #win.cb1, "selectionindex? a" If a>0 Then Call citypick "#win.cb1" #win.cb2, "selectionindex? a" If a>0 Then Call citypick "#win.cb2" ' * Program must display the GMT as well as the selected date(s) and time(s). #win.UTC2, days2DT$(dateTimeUTC) Timer 1000, [again] Wait [xitprog] Print "Done." Timer 0 If winOpen=1 Then Close #win End Sub citypick handle$ Timer 0 #handle$, "selectionindex? a" dateTimeUTC = Date$("days") + Time$("seconds")/86400 + myUTCoffset/1440 UTCoffset = Val(Mid$(st$(a),4))/24 ' convert hours to decimal days cityDateTime = dateTimeUTC + UTCoffset t1$ = dtstart$(a) t2$ = dtstop$(a) If onDST(cityDateTime, t1$, t2$) Then cityDateTime = cityDateTime + 1/24 If handle$="#win.cb1" Then #win.citya, days2DT$(cityDateTime) ' print city date & time Else #win.cityb, days2DT$(cityDateTime) ' print city date & time End If Timer 1000, [again] End Sub ' citypick ' returns 1 if we're on daylight savings/summer time, else returns 0 ' t1$ & t2$ format = "Fri 21-MAR-08 00:00" Function onDST(nday, t1$, t2$) If t1$="NONE" Then onDST = 0 Else startime$ = Right$(t1$, 5) sec1 = 3600*Val(Left$(startime$,2)) + 60*Val(Right$(startime$,2)) dt1 = Date$(Mid$(t1$, 5, 9)) + sec1/86400 stoptime$ = Right$(t2$, 5) sec2 = 3600*Val(Left$(stoptime$,2)) + 60*Val(Right$(stoptime$,2)) dt2 = Date$(Mid$(t2$, 5, 9)) + sec2/86400 ' is our local time "nday" between our start & stop dates? If dt1<nday And nday<dt2 Then onDST = 1 Else onDST = 0 End If End Function ' onDST ' Convert decimal days format to standard "MM/DD/YYYY HH:MM:SS" format Function days2DT$(DyTm) xdate$ = Date$(Int(DyTm)) xtime = (DyTm Mod 1)*86400 ' in seconds since midnight xtime$ = sec2hms$(xtime) days2DT$ = xdate$; " "; xtime$ End Function ' days2DT$ ' Convert n seconds into standard HH:MM:SS time string Function sec2hms$(n) hh = Int(n/3600) mm = Int((n Mod 3600) / 60) ss = Int((n Mod 60) + 0.5) sec2hms$ = Right$(Str$(hh+100),2);":"; _ Right$(Str$(mm+100),2);":"; _ Right$(Str$(ss+100),2) End Function ' sec2hms$ [[code]]