What time is it? for Windows only

[Petr]

Code: QB64: [Select]

1.  
2. c$ = "POWERSHELL SYSTEMINFO > TimeZoneList.txt" 'also exists better statement POWERSHELL "Get-TimeZone" BUT THIS IS FOR POWERSHELL 5.0 an newer, so this work not under Windows 7!
3. PRINT "Please wait, finding your GMT..."
4. SHELL _HIDE c$
5. DO UNTIL _FILEEXISTS("TimeZoneList.txt")
6. LOOP
7. ff = FREEFILE
8. OPEN "TimeZoneList.txt" FOR BINARY AS #ff
9.  
10. WHILE NOT EOF(ff)
11.     LINE INPUT #ff, d$
12.     '   PRINT "Record: "; r;: VPRINT d$, 32, 160
13.     IF r = 23 THEN
14.         gmc = INSTR(VPRINT$(d$, 32, 96), "(")
15.         gmc$ = MID$(VPRINT$(d$, 32, 96), gmc, 11)
16.         PRINT "Your time zone is: "; gmc$
17.         sign$ = MID$(gmc$, 5, 1)
18.         hour$ = MID$(gmc$, 6, 2)
19.         minu$ = MID$(gmc$, 9, 2)
20.  
21.         H = VAL(hour$)
22.         M = VAL(minu$)
23.         IF sign$ = "-" THEN H = H * -1
24.         EXIT WHILE
25.     END IF
26.     r = r + 1
27. WEND
28.  
29.  
30. 'time zones shift (gmc) for:
31. 'Prague = 1: Israel = 2: Moscow = 3: Bangkok = 7: Perth = 8: Tokio = 9: Sydney = 11: Wellington = 13: Brasil = -3: Halifax = -4: Indiana = -5: Mexico = -6: Arizona = -7: Tijuana = -8: Samoa = 14
32. DATA 1,2,3,7,8,9,11,13,-3,-4,-5,-6,-7,-8,14
33. DATA Prague,Israel,Moscow,Bangkok,Perth,Tokio,Sydney,Wellington,Brasil,Halifax,Indiana,Mexico,Arizona,Tijuana,Samoa
34.  
35. DIM areas(14) AS INTEGER
36. DIM Hrs(14) AS INTEGER
37. DIM names(14) AS STRING
38. FOR a = 0 TO 14
39.     READ areas(a)
40. NEXT a
41. FOR a = 0 TO 14
42.     READ names(a)
43. NEXT a
44.  
45.  
46. DO
47.     LOCATE 4
48.     T = GETHOUR - H
49.     FOR dl = 0 TO 14
50.         nt = T + areas(dl)
51.         IF nt >= 24 THEN nt = nt - 24
52.         IF nt < 0 THEN nt = nt + 24
53.         nt$ = LTRIM$(STR$(nt))
54.         IF LEN(nt$) < 2 THEN nt$ = "0" + nt$
55.         Min$ = LTRIM$(STR$(GETMINUTE))
56.         IF LEN(Min$) < 2 THEN Min$ = "0" + Min$
57.         sec$ = LTRIM$(STR$(GETSECOND))
58.         IF LEN(sec$) < 2 THEN sec$ = "0" + sec$
59.         PRINT "Time in "; names(dl); ":"; TAB(30); nt$; ":"; Min$; ":"; sec$; "  "
60.     NEXT
61. LOOP
62.  
63.  
64. FUNCTION GETHOUR
65.     GETHOUR = INT(TIMER / 3600)
66. END FUNCTION
67.  
68. FUNCTION GETMINUTE
69.     H = INT(TIMER / 3600)
70.     GETMINUTE = INT(TIMER / 60) - H * 60
71. END FUNCTION
72.  
73. FUNCTION GETSECOND
74.     H = INT(TIMER / 3600)
75.     M = INT(TIMER / 60) - H * 60
76.     GETSECOND = INT(TIMER - (M * 60 + H * 3600))
77. END FUNCTION
78.  
79. FUNCTION VPRINT$ (t$, s, e)
80.     'print visible string ASC start from s, to e
81.     VPRINT$ = ""
82.     FOR l = 1 TO LEN(t$)
83.         IF ASC(t$, l) >= s AND ASC(t$, l) <= e THEN
84.             VPRINT$ = VPRINT$ + MID$(t$, l, 1)
85.         END IF
86.     NEXT
87. END SUB
88.  

 

 

Edit: found and repaired logical bug

[amigojapan]

Israel is with an s not a z.... sorry, not really a spell nazi :)

[Petr]

Repaired! :)

[SierraKen]

Great job Petr! Recently I was wondering if this was possible in QB64 without first asking the user what Time Zone they are in. I didn't know this was possible.

[Cobalt]

Israel is with an s not a z.... sorry, not really a spell nazi :)

And here I would have thought he would have pointed out that it's Tokyo not Tokio...  :P

anyway, Interesting little program Petr!

Maybe you could find a way to add the date change too?

[Petr]

Hi Cobalt,

Tokio as name is correct with "i", can be also "Tokjo", but in Czech, all words with "i" after K are correct with Y. But, because Tokio is the accepted name, so spelling is also accepted and therefore wrote it with "i".

I try add date there and write update. Good idea!

[Cobalt]

oh so it is a Czech thing, cause I put Tokio into my search engine just be sure Tokio wasn't a place I'd never heard of before and nothing came up, only Tokyo. but then if its a Czech spelling it would not on my end would it?  :)

[Petr]

Hi Cobalt,
With that name Tokyo (Tokio), it's hard. It is a translation of Japanese characters, where it is difficult to grab a clue, which "i" there should be. I enclose a screenshot - the output of a search for the Czech version of Google for the query "Tokio" as a proof. Do you see how much Google confuses us?

 

here is program upgrade. Now contains date and day name for all areas.

Code: QB64: [Select]

1. c$ = "POWERSHELL SYSTEMINFO > TimeZoneList.txt" 'also exists better statement POWERSHELL "Get-TimeZone" BUT THIS IS FOR POWERSHELL 5.0 an newer, so this work not under Windows 7!
2. PRINT "Please wait, finding your GMT..."
3. SHELL _HIDE c$
4. DO UNTIL _FILEEXISTS("TimeZoneList.txt")
5. LOOP
6. ff = FREEFILE
7. OPEN "TimeZoneList.txt" FOR BINARY AS #ff
8.  
9. WHILE NOT EOF(ff)
10.     LINE INPUT #ff, d$
11.     IF r = 23 THEN
12.         gmc = INSTR(VPRINT$(d$, 32, 96), "(")
13.         gmc$ = MID$(VPRINT$(d$, 32, 96), gmc, 11)
14.         PRINT "Your time zone is: "; gmc$
15.         sign$ = MID$(gmc$, 5, 1)
16.         hour$ = MID$(gmc$, 6, 2)
17.         minu$ = MID$(gmc$, 9, 2)
18.         H = VAL(hour$)
19.         M = VAL(minu$)
20.         IF sign$ = "-" THEN H = H * -1
21.         EXIT WHILE
22.     END IF
23.     r = r + 1
24. WEND
25.  
26.  
27. 'time zones shift (gmc) for:
28. 'Prague = 1: Israel = 2: Moscow = 3: Bangkok = 7: Perth = 8: Tokio = 9: Sydney = 11: Wellington = 13: Brasil = -3: Halifax = -4: Indiana = -5: Mexico = -6: Arizona = -7: Tijuana = -8: Samoa = 14
29. DATA 1,2,3,7,8,9,11,13,-3,-4,-5,-6,-7,-8,14
30. DATA Prague,Israel,Moscow,Bangkok,Perth,Tokio,Sydney,Wellington,Brasil,Halifax,Indiana,Mexico,Arizona,Tijuana,Samoa
31.  
32. DIM areas(14) AS INTEGER
33. DIM names(14) AS STRING
34.  
35. FOR a = 0 TO 14
36.     READ areas(a)
37. NEXT a
38. FOR a = 0 TO 14
39.     READ names(a)
40. NEXT a
41.  
42. DO
43.     CLS
44.     LOCATE 4
45.     T = GETHOUR - H
46.     FOR dl = 0 TO 14
47.         d$ = ""
48.         nt = T + areas(dl)
49.         ont = nt
50.  
51.         IF nt >= 24 THEN nt = nt - 24
52.         IF nt < 0 THEN nt = nt + 24
53.         nt$ = LTRIM$(STR$(nt))
54.         IF LEN(nt$) < 2 THEN nt$ = "0" + nt$
55.         Min$ = LTRIM$(STR$(GETMINUTE))
56.         IF LEN(Min$) < 2 THEN Min$ = "0" + Min$
57.         sec$ = LTRIM$(STR$(GETSECOND))
58.         IF LEN(sec$) < 2 THEN sec$ = "0" + sec$
59.         'date and day name upgrade
60.         SELECT CASE ISDATE(H, GETHOUR, areas(dl))
61.             CASE 1
62.                 IF GETMONTH = 1 AND GETDAY = 1 THEN year2 = GETYEAR - 1: month2 = 12: day2 = 31: ELSE year2 = GETYEAR: month2 = GETMONTH: day2 = GETDAY - 1
63.                 daynr = GETDAYNR(year2, month2, day2)
64.                 nd$ = GETDATE$(daynr, year2)
65.                 d$ = nd$ + ", " + GETDAYNAME$(year2, month2, day2)
66.                 PRINT year2, month2, day2
67.             CASE 2
68.                 d$ = DATE$ + ", " + GETDAYNAME$(GETYEAR, GETMONTH, GETDAY)
69.             CASE 3
70.                 IF GETMONTH = 12 AND GETDAY = 31 THEN year2 = GETYEAR + 1: month2 = 1: day2 = 1: ELSE year2 = GETYEAR: month2 = GETMONTH: day2 = GETDAY + 1
71.                 daynr = GETDAYNR(year2, month2, day2)
72.                 nd$ = GETDATE$(daynr, year2)
73.                 d$ = nd$ + ", " + GETDAYNAME$(year2, month2, day2)
74.         END SELECT
75.         '---------------------------------
76.         PRINT "Time in "; names(dl); ":"; TAB(30); nt$; ":"; Min$; ":"; sec$; "  "; d$
77.     NEXT
78.     _DISPLAY
79. LOOP
80.  
81.  
82.  
83. '========================================================================================================================================================
84.  
85.  
86. FUNCTION ISDATE (LocalShift, LocalTime, NeighbourShift) 'outputs: 1 = DATE is down to 1 Day, 2 = DATE is the same as local date, 3 = DATE is up to 1 day.
87.     p = NeighbourShift
88.     MP = LocalShift
89.     IF LocalTime = 0 THEN LocalTime = 24
90.     IF LocalTime + NeighbourShift - LocalShift = 24 THEN ISDATE = 3: EXIT FUNCTION 'add
91.     gethour2 = LocalTime
92.     IF p < MP THEN
93.         Cas = gethour2 - (MP + ABS(p))
94.         IF Cas < 0 THEN Cas = 24 + Cas
95.         IF gethour2 - MP < Cas THEN ISDATE = 1 ELSE ISDATE = 2
96.     END IF
97.     IF p = MP THEN ISDATE = 2
98.     IF p > MP THEN
99.         Cas = gethour2 - MP + p
100.         IF Cas > 24 THEN Cas = Cas - 24
101.         IF gethour2 - MP > Cas THEN ISDATE = 3 ELSE ISDATE = 2
102.     END IF
103. END FUNCTION
104. FUNCTION ISLEAPYEAR (year)
105.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
106.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
107. END FUNCTION
108. FUNCTION GETYEAR
109.     GETYEAR = VAL(MID$(DATE$, 7, 4))
110. END FUNCTION
111. FUNCTION GETDAY
112.     GETDAY = VAL(MID$(DATE$, 4, 2))
113. END FUNCTION
114. FUNCTION GETMONTH
115.     GETMONTH = VAL(MID$(DATE$, 1, 2))
116. END FUNCTION
117. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
118.     IF ISLEAPYEAR(y) = 0 AND NrOfTheDayInYear > 365 THEN GETDATE$ = "Invalid Value!": EXIT FUNCTION
119.     IF ISLEAPYEAR(y) AND NrOfTheDayInYear > 366 THEN GETDATE$ = "Invalid Value!": EXIT FUNCTION
120.     FOR month = 1 TO 12
121.         IF ISLEAPYEAR(y) = 0 THEN
122.             SELECT CASE month
123.                 CASE 1: m = 31
124.                 CASE 2: m = 28
125.                 CASE 3: m = 31
126.                 CASE 4: m = 30
127.                 CASE 5: m = 31
128.                 CASE 6: m = 30
129.                 CASE 7: m = 31
130.                 CASE 8: m = 31
131.                 CASE 9: m = 30
132.                 CASE 10: m = 31
133.                 CASE 11: m = 30
134.                 CASE 12: m = 31
135.             END SELECT
136.         ELSE
137.             SELECT CASE month
138.                 CASE 1: m = 31
139.                 CASE 2: m = 29
140.                 CASE 3: m = 31
141.                 CASE 4: m = 30
142.                 CASE 5: m = 31
143.                 CASE 6: m = 30
144.                 CASE 7: m = 31
145.                 CASE 8: m = 31
146.                 CASE 9: m = 30
147.                 CASE 10: m = 31
148.                 CASE 11: m = 30
149.                 CASE 12: m = 31
150.             END SELECT
151.         END IF
152.         oldm = om
153.         om = om + m
154.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
155.     NEXT
156.     day = NrOfTheDayInYear - om + m
157.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
158.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
159.     GETDATE$ = LTRIM$(month$) + "-" + LTRIM$(day$) + "-" + LTRIM$(STR$(y))
160. END FUNCTION
161. FUNCTION GETDAYNR (y, m, d) 'insert year, month and day and function calculate which day in year it is
162.     FOR month = 1 TO m
163.         IF ISLEAPYEAR(y) = 0 THEN
164.             SELECT CASE month
165.                 CASE 1: m = 31
166.                 CASE 2: m = 28
167.                 CASE 3: m = 31
168.                 CASE 4: m = 30
169.                 CASE 5: m = 31
170.                 CASE 6: m = 30
171.                 CASE 7: m = 31
172.                 CASE 8: m = 31
173.                 CASE 9: m = 30
174.                 CASE 10: m = 31
175.                 CASE 11: m = 30
176.                 CASE 12: m = 31
177.             END SELECT
178.         ELSE
179.             SELECT CASE month
180.                 CASE 1: m = 31
181.                 CASE 2: m = 29
182.                 CASE 3: m = 31
183.                 CASE 4: m = 30
184.                 CASE 5: m = 31
185.                 CASE 6: m = 30
186.                 CASE 7: m = 31
187.                 CASE 8: m = 31
188.                 CASE 9: m = 30
189.                 CASE 10: m = 31
190.                 CASE 11: m = 30
191.                 CASE 12: m = 31
192.             END SELECT
193.         END IF
194.         GETDAYNR = GETDAYNR + m
195.     NEXT
196.     GETDAYNR = GETDAYNR - (m - d)
197. END FUNCTION
198. FUNCTION GETDAYNAME$ (year, month, day)
199.     DIM om AS LONG, m AS LONG, days AS LONG
200.     days = day
201.     FOR yyr = 1 TO year
202.         IF yyr = year THEN monthend = month ELSE monthend = 12
203.         FOR mont = 1 TO monthend
204.             IF ISLEAPYEAR(yyr) = 0 THEN
205.                 SELECT CASE mont
206.                     CASE 1: m = 31
207.                     CASE 2: m = 28
208.                     CASE 3: m = 31
209.                     CASE 4: m = 30
210.                     CASE 5: m = 31
211.                     CASE 6: m = 30
212.                     CASE 7: m = 31
213.                     CASE 8: m = 31
214.                     CASE 9: m = 30
215.                     CASE 10: m = 31
216.                     CASE 11: m = 30
217.                     CASE 12: m = 31
218.                 END SELECT
219.             ELSE
220.                 SELECT CASE mont
221.                     CASE 1: m = 31
222.                     CASE 2: m = 29
223.                     CASE 3: m = 31
224.                     CASE 4: m = 30
225.                     CASE 5: m = 31
226.                     CASE 6: m = 30
227.                     CASE 7: m = 31
228.                     CASE 8: m = 31
229.                     CASE 9: m = 30
230.                     CASE 10: m = 31
231.                     CASE 11: m = 30
232.                     CASE 12: m = 31
233.                 END SELECT
234.             END IF
235.             om = m
236.             days = days + m
237.         NEXT
238.     NEXT
239.     days = days - m - 1
240.     a = (days MOD 7) '0 = monday
241.     RESTORE nms
242.     FOR r = 0 TO a
243.         READ GETDAYNAME$
244.     NEXT
245.     nms:
246.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
247. END FUNCTION
248. FUNCTION GETHOUR
249.     GETHOUR = INT(TIMER / 3600)
250. END FUNCTION
251. FUNCTION GETMINUTE
252.     H = INT(TIMER / 3600)
253.     GETMINUTE = INT(TIMER / 60) - H * 60
254. END FUNCTION
255. FUNCTION GETSECOND
256.     H = INT(TIMER / 3600)
257.     M = INT(TIMER / 60) - H * 60
258.     GETSECOND = INT(TIMER - (M * 60 + H * 3600))
259. END FUNCTION
260. FUNCTION VPRINT$ (t$, s, e)
261.     'print visible string ASC start from s, to e
262.     VPRINT$ = ""
263.     FOR l = 1 TO LEN(t$)
264.         IF ASC(t$, l) >= s AND ASC(t$, l) <= e THEN
265.             VPRINT$ = VPRINT$ + MID$(t$, l, 1)
266.         END IF
267.     NEXT
268. END SUB
269.  

 

[Petr]

Well, there is one bug (I won't say what, if you test it thoroughly, you will find it), but for today my brain already has enough work with dates, so I'll deal with it later. I also started upgrading my source for lotto program according to this requirement https://www.qb64.org/forum/index.php?topic=2060.msg112899#msg112899, but for today I have enough counting dates.

[Petr]

The older version here contains bug - in midnight program crash and wrote nonsense.

This new version is repaired and show all correct also if program run over midnight. (Set time to try, not wait... :-) )

Code: QB64: [Select]

1. c$ = "POWERSHELL SYSTEMINFO > TimeZoneList.txt" 'also exists better statement POWERSHELL "Get-TimeZone" BUT THIS IS FOR POWERSHELL 5.0 an newer, so this work not under Windows 7!
2. PRINT "Please wait, finding your GMT..."
3. SHELL _HIDE c$
4. DO UNTIL _FILEEXISTS("TimeZoneList.txt")
5. LOOP
6. ff = FREEFILE
7. OPEN "TimeZoneList.txt" FOR BINARY AS #ff
8.  
9. WHILE NOT EOF(ff)
10.     LINE INPUT #ff, d$
11.     IF r = 23 THEN
12.         gmc = INSTR(VPRINT$(d$, 32, 96), "(")
13.         gmc$ = MID$(VPRINT$(d$, 32, 96), gmc, 11)
14.         PRINT "Your time zone is: "; gmc$
15.         sign$ = MID$(gmc$, 5, 1)
16.         hour$ = MID$(gmc$, 6, 2)
17.         minu$ = MID$(gmc$, 9, 2)
18.         H = VAL(hour$)
19.         M = VAL(minu$)
20.         IF sign$ = "-" THEN H = H * -1
21.         EXIT WHILE
22.     END IF
23.     r = r + 1
24. WEND
25.  
26.  
27. 'time zones shift (gmc) for:
28. 'Prague = 1: Israel = 2: Moscow = 3: Bangkok = 7: Perth = 8: Tokio = 9: Sydney = 11: Wellington = 13: Brasil = -3: Halifax = -4: Indiana = -5: Mexico = -6: Arizona = -7: Tijuana = -8: Samoa = 14
29. DATA 1,2,3,7,8,9,11,13,-3,-4,-5,-6,-7,-8,14
30. DATA Prague,Israel,Moscow,Bangkok,Perth,Tokio,Sydney,Wellington,Brasil,Halifax,Indiana,Mexico,Arizona,Tijuana,Samoa
31.  
32. DIM areas(14) AS INTEGER
33. DIM names(14) AS STRING
34.  
35. FOR a = 0 TO 14
36.     READ areas(a)
37. NEXT a
38. FOR a = 0 TO 14
39.     READ names(a)
40. NEXT a
41. PCOPY _DISPLAY, 1
42. DO
43.     PCOPY 1, _DISPLAY
44.     LOCATE 4
45.     T = GETHOUR - H
46.     FOR dl = 0 TO 14
47.         d$ = ""
48.         nt = T + areas(dl)
49.         ont = nt
50.  
51.         IF nt >= 24 THEN nt = nt - 24
52.         IF nt < 0 THEN nt = nt + 24
53.         nt$ = LTRIM$(STR$(nt))
54.         IF LEN(nt$) < 2 THEN nt$ = "0" + nt$
55.         Min$ = LTRIM$(STR$(GETMINUTE))
56.         IF LEN(Min$) < 2 THEN Min$ = "0" + Min$
57.         sec$ = LTRIM$(STR$(GETSECOND))
58.         IF LEN(sec$) < 2 THEN sec$ = "0" + sec$
59.         'date and day name upgrade
60.         SELECT CASE ISDATE(H, GETHOUR, areas(dl))
61.             CASE 1
62.                 IF GETMONTH = 1 AND GETDAY = 1 THEN year2 = GETYEAR - 1: month2 = 12: day2 = 31: ELSE year2 = GETYEAR: month2 = GETMONTH: day2 = GETDAY - 1
63.                 daynr = GETDAYNR(year2, month2, day2)
64.                 nd$ = GETDATE$(daynr, year2)
65.                 d$ = nd$ + ", " + GETDAYNAME$(year2, month2, day2)
66.             CASE 2
67.                 d$ = DATE$ + ", " + GETDAYNAME$(GETYEAR, GETMONTH, GETDAY)
68.             CASE 3
69.                 IF GETMONTH = 12 AND GETDAY = 31 THEN year2 = GETYEAR + 1: month2 = 1: day2 = 1: ELSE year2 = GETYEAR: month2 = GETMONTH: day2 = GETDAY + 1
70.                 daynr = GETDAYNR(year2, month2, day2)
71.                 nd$ = GETDATE$(daynr, year2)
72.                 d$ = nd$ + ", " + GETDAYNAME$(year2, month2, day2)
73.         END SELECT
74.         '---------------------------------
75.         PRINT "Time in "; names(dl); ":"; TAB(30); nt$; ":"; Min$; ":"; sec$; "  "; d$
76.     NEXT
77.     _DISPLAY
78. LOOP
79.  
80.  
81.  
82. '========================================================================================================================================================
83.  
84.  
85. FUNCTION ISDATE (LShift, LocalTime, NShift) 'outputs: 1 = DATE is down to 1 Day, 2 = DATE is the same as local date, 3 = DATE is up to 1 day.
86.     'LShift = Local Time Zone (POWERSHELL output), Local Time (Hour in this example), NShift = Other Timer Zone (neighbor zone) time shift
87.  
88.     'calculate real time shift between zones (computer zone / neighbor zone)
89.     Tzone = NShift 'pro pasmo 0
90.     IF NShift > 0 THEN Tzone = NShift - LShift
91.     IF NShift < 0 THEN Tzone = -1 * ABS(NShift - LShift)
92.  
93.  
94.     IF NShift = 0 THEN ISDATE = 2: EXIT FUNCTION 'local time, local computer
95.     IF NShift > 0 THEN 'zone PLUS
96.         IF LocalTime + Tzone >= 24 THEN ISDATE = 3 ELSE ISDATE = 2 'I am from time zone +1. So for example, Israel is time zone +2. If in my zone is 23:00, my zone use old date, but Israel use new date in the same time,
97.         '                                                           because there is midnight. Real time shift between Czech republic and Israel is one hour.
98.     END IF
99.  
100.     IF NShift < 0 THEN ' zone MINUS
101.         IF LocalTime + Tzone >= 0 THEN ISDATE = 2 ELSE ISDATE = 1
102.     END IF
103. END FUNCTION
104.  
105. FUNCTION ISLEAPYEAR (year)
106.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
107.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
108. END FUNCTION
109. FUNCTION GETYEAR
110.     GETYEAR = VAL(MID$(DATE$, 7, 4))
111. END FUNCTION
112. FUNCTION GETDAY
113.     GETDAY = VAL(MID$(DATE$, 4, 2))
114. END FUNCTION
115. FUNCTION GETMONTH
116.     GETMONTH = VAL(MID$(DATE$, 1, 2))
117. END FUNCTION
118. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
119.     IF ISLEAPYEAR(y) = 0 AND NrOfTheDayInYear > 365 THEN GETDATE$ = "Invalid Value!": EXIT FUNCTION
120.     IF ISLEAPYEAR(y) AND NrOfTheDayInYear > 366 THEN GETDATE$ = "Invalid Value!": EXIT FUNCTION
121.     FOR month = 1 TO 12
122.         IF ISLEAPYEAR(y) = 0 THEN
123.             SELECT CASE month
124.                 CASE 1: m = 31
125.                 CASE 2: m = 28
126.                 CASE 3: m = 31
127.                 CASE 4: m = 30
128.                 CASE 5: m = 31
129.                 CASE 6: m = 30
130.                 CASE 7: m = 31
131.                 CASE 8: m = 31
132.                 CASE 9: m = 30
133.                 CASE 10: m = 31
134.                 CASE 11: m = 30
135.                 CASE 12: m = 31
136.             END SELECT
137.         ELSE
138.             SELECT CASE month
139.                 CASE 1: m = 31
140.                 CASE 2: m = 29
141.                 CASE 3: m = 31
142.                 CASE 4: m = 30
143.                 CASE 5: m = 31
144.                 CASE 6: m = 30
145.                 CASE 7: m = 31
146.                 CASE 8: m = 31
147.                 CASE 9: m = 30
148.                 CASE 10: m = 31
149.                 CASE 11: m = 30
150.                 CASE 12: m = 31
151.             END SELECT
152.         END IF
153.         oldm = om
154.         om = om + m
155.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
156.     NEXT
157.     day = NrOfTheDayInYear - om + m
158.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
159.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
160.     GETDATE$ = LTRIM$(month$) + "-" + LTRIM$(day$) + "-" + LTRIM$(STR$(y))
161. END FUNCTION
162. FUNCTION GETDAYNR (y, m, d) 'insert year, month and day and function calculate which day in year it is
163.     FOR month = 1 TO m
164.         IF ISLEAPYEAR(y) = 0 THEN
165.             SELECT CASE month
166.                 CASE 1: m = 31
167.                 CASE 2: m = 28
168.                 CASE 3: m = 31
169.                 CASE 4: m = 30
170.                 CASE 5: m = 31
171.                 CASE 6: m = 30
172.                 CASE 7: m = 31
173.                 CASE 8: m = 31
174.                 CASE 9: m = 30
175.                 CASE 10: m = 31
176.                 CASE 11: m = 30
177.                 CASE 12: m = 31
178.             END SELECT
179.         ELSE
180.             SELECT CASE month
181.                 CASE 1: m = 31
182.                 CASE 2: m = 29
183.                 CASE 3: m = 31
184.                 CASE 4: m = 30
185.                 CASE 5: m = 31
186.                 CASE 6: m = 30
187.                 CASE 7: m = 31
188.                 CASE 8: m = 31
189.                 CASE 9: m = 30
190.                 CASE 10: m = 31
191.                 CASE 11: m = 30
192.                 CASE 12: m = 31
193.             END SELECT
194.         END IF
195.         GETDAYNR = GETDAYNR + m
196.     NEXT
197.     GETDAYNR = GETDAYNR - (m - d)
198. END FUNCTION
199. FUNCTION GETDAYNAME$ (year, month, day)
200.     DIM om AS LONG, m AS LONG, days AS LONG
201.     days = day
202.     FOR yyr = 1 TO year
203.         IF yyr = year THEN monthend = month ELSE monthend = 12
204.         FOR mont = 1 TO monthend
205.             IF ISLEAPYEAR(yyr) = 0 THEN
206.                 SELECT CASE mont
207.                     CASE 1: m = 31
208.                     CASE 2: m = 28
209.                     CASE 3: m = 31
210.                     CASE 4: m = 30
211.                     CASE 5: m = 31
212.                     CASE 6: m = 30
213.                     CASE 7: m = 31
214.                     CASE 8: m = 31
215.                     CASE 9: m = 30
216.                     CASE 10: m = 31
217.                     CASE 11: m = 30
218.                     CASE 12: m = 31
219.                 END SELECT
220.             ELSE
221.                 SELECT CASE mont
222.                     CASE 1: m = 31
223.                     CASE 2: m = 29
224.                     CASE 3: m = 31
225.                     CASE 4: m = 30
226.                     CASE 5: m = 31
227.                     CASE 6: m = 30
228.                     CASE 7: m = 31
229.                     CASE 8: m = 31
230.                     CASE 9: m = 30
231.                     CASE 10: m = 31
232.                     CASE 11: m = 30
233.                     CASE 12: m = 31
234.                 END SELECT
235.             END IF
236.             om = m
237.             days = days + m
238.         NEXT
239.     NEXT
240.     days = days - m - 1
241.     a = (days MOD 7) '0 = monday
242.     RESTORE nms
243.     FOR r = 0 TO a
244.         READ GETDAYNAME$
245.     NEXT
246.     nms:
247.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
248. END FUNCTION
249. FUNCTION GETHOUR
250.     GETHOUR = INT(TIMER / 3600)
251. END FUNCTION
252. FUNCTION GETMINUTE
253.     H = INT(TIMER / 3600)
254.     GETMINUTE = INT(TIMER / 60) - H * 60
255. END FUNCTION
256. FUNCTION GETSECOND
257.     H = INT(TIMER / 3600)
258.     M = INT(TIMER / 60) - H * 60
259.     GETSECOND = INT(TIMER - (M * 60 + H * 3600))
260. END FUNCTION
261. FUNCTION VPRINT$ (t$, s, e)
262.     'print visible string ASC start from s, to e
263.     VPRINT$ = ""
264.     FOR l = 1 TO LEN(t$)
265.         IF ASC(t$, l) >= s AND ASC(t$, l) <= e THEN
266.             VPRINT$ = VPRINT$ + MID$(t$, l, 1)
267.         END IF
268.     NEXT
269. END SUB
270.  

And when I finally managed to fix it so nicely (I have to praise myself, guys, I already have one beer as reward on my desk) but now it is time to modify the program for the Lotto program for rcamp48. It will take a while again.

 

[SMcNeill]

You could get the information without needing to use SHELL, if you use DECLARE LIBRARY.  https://docs.microsoft.com/en-us/windows/win32/api/timezoneapi/nf-timezoneapi-gettimezoneinformation?redirectedfrom=MSDN

https://docs.microsoft.com/en-us/windows/win32/api/timezoneapi/ns-timezoneapi-time_zone_information

[Petr]

Perfect idea, Steve! Here is my result:

Code: QB64: [Select]

1. PRINT GETTIMEZONE
2.  
3. FUNCTION GETTIMEZONE
4.     DECLARE DYNAMIC LIBRARY "Kernel32"
5.         SUB GetTimeZoneInformation (a AS INTEGER)
6.     END DECLARE
7.     DIM b AS INTEGER
8.     GetTimeZoneInformation b
9.     GETTIMEZONE = b / -60
10. END FUNCTION
11.  

I add it to sources here later. Thank you again!

[Petr]

Final version, without PowerShell.

Code: QB64: [Select]

1.  
2. PRINT "Please wait, finding your GMT..."
3. H = GETTIMEZONE
4. IF H > 0 THEN zone$ = "GMT +" + LTRIM$(STR$(H)) ELSE zone$ = "GMT " + LTRIM$(STR$(H))
5. PRINT "Your time zone is: "; zone$
6.  
7. 'time zones shift (gmc) for:
8. 'Prague = 1: Israel = 2: Moscow = 3: Bangkok = 7: Perth = 8: Tokio = 9: Sydney = 11: Wellington = 13: Brasil = -3: Halifax = -4: Indiana = -5: Mexico = -6: Arizona = -7: Tijuana = -8: Samoa = 14
9. DATA 1,2,3,7,8,9,11,13,-3,-4,-5,-6,-7,-8,14
10. DATA Prague,Israel,Moscow,Bangkok,Perth,Tokio,Sydney,Wellington,Brasil,Halifax,Indiana,Mexico,Arizona,Tijuana,Samoa
11.  
12. DIM areas(14) AS INTEGER
13. DIM names(14) AS STRING
14.  
15. FOR a = 0 TO 14
16.     READ areas(a)
17. NEXT a
18. FOR a = 0 TO 14
19.     READ names(a)
20. NEXT a
21. PCOPY _DISPLAY, 1
22. DO
23.     PCOPY 1, _DISPLAY
24.     LOCATE 4
25.     T = GETHOUR - H
26.     FOR dl = 0 TO 14
27.         d$ = ""
28.         nt = T + areas(dl)
29.         ont = nt
30.  
31.         IF nt >= 24 THEN nt = nt - 24
32.         IF nt < 0 THEN nt = nt + 24
33.         nt$ = LTRIM$(STR$(nt))
34.         IF LEN(nt$) < 2 THEN nt$ = "0" + nt$
35.         Min$ = LTRIM$(STR$(GETMINUTE))
36.         IF LEN(Min$) < 2 THEN Min$ = "0" + Min$
37.         sec$ = LTRIM$(STR$(GETSECOND))
38.         IF LEN(sec$) < 2 THEN sec$ = "0" + sec$
39.         'date and day name upgrade
40.         SELECT CASE ISDATE(H, GETHOUR, areas(dl))
41.             CASE 1
42.                 IF GETMONTH = 1 AND GETDAY = 1 THEN year2 = GETYEAR - 1: month2 = 12: day2 = 31: ELSE year2 = GETYEAR: month2 = GETMONTH: day2 = GETDAY - 1
43.                 daynr = GETDAYNR(year2, month2, day2)
44.                 nd$ = GETDATE$(daynr, year2)
45.                 d$ = nd$ + ", " + GETDAYNAME$(year2, month2, day2)
46.             CASE 2
47.                 d$ = DATE$ + ", " + GETDAYNAME$(GETYEAR, GETMONTH, GETDAY)
48.             CASE 3
49.                 IF GETMONTH = 12 AND GETDAY = 31 THEN year2 = GETYEAR + 1: month2 = 1: day2 = 1: ELSE year2 = GETYEAR: month2 = GETMONTH: day2 = GETDAY + 1
50.                 daynr = GETDAYNR(year2, month2, day2)
51.                 nd$ = GETDATE$(daynr, year2)
52.                 d$ = nd$ + ", " + GETDAYNAME$(year2, month2, day2)
53.         END SELECT
54.         '---------------------------------
55.         PRINT "Time in "; names(dl); ":"; TAB(30); nt$; ":"; Min$; ":"; sec$; "  "; d$
56.     NEXT
57.     _DISPLAY
58. LOOP
59.  
60.  
61.  
62. '========================================================================================================================================================
63.  
64.  
65. FUNCTION ISDATE (LShift, LocalTime, NShift) 'outputs: 1 = DATE is down to 1 Day, 2 = DATE is the same as local date, 3 = DATE is up to 1 day.
66.     'LShift = Local Time Zone (POWERSHELL output), Local Time (Hour in this example), NShift = Other Timer Zone (neighbor zone) time shift
67.  
68.     'calculate real time shift between zones (computer zone / neighbor zone)
69.     Tzone = NShift 'pro pasmo 0
70.     IF NShift > 0 THEN Tzone = NShift - LShift
71.     IF NShift < 0 THEN Tzone = -1 * ABS(NShift - LShift)
72.  
73.  
74.     IF NShift = 0 THEN ISDATE = 2: EXIT FUNCTION 'local time, local computer
75.     IF NShift > 0 THEN 'zone PLUS
76.         IF LocalTime + Tzone >= 24 THEN ISDATE = 3 ELSE ISDATE = 2 'I am from time zone +1. So for example, Israel is time zone +2. If in my zone is 23:00, my zone use old date, but Israel use new date in the same time,
77.         '                                                           because there is midnight. Real time shift between Czech republic and Israel is one hour.
78.     END IF
79.  
80.     IF NShift < 0 THEN ' zone MINUS
81.         IF LocalTime + Tzone >= 0 THEN ISDATE = 2 ELSE ISDATE = 1
82.     END IF
83. END FUNCTION
84.  
85. FUNCTION ISLEAPYEAR (year)
86.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
87.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
88. END FUNCTION
89. FUNCTION GETYEAR
90.     GETYEAR = VAL(MID$(DATE$, 7, 4))
91. END FUNCTION
92. FUNCTION GETDAY
93.     GETDAY = VAL(MID$(DATE$, 4, 2))
94. END FUNCTION
95. FUNCTION GETMONTH
96.     GETMONTH = VAL(MID$(DATE$, 1, 2))
97. END FUNCTION
98. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
99.     IF ISLEAPYEAR(y) = 0 AND NrOfTheDayInYear > 365 THEN GETDATE$ = "Invalid Value!": EXIT FUNCTION
100.     IF ISLEAPYEAR(y) AND NrOfTheDayInYear > 366 THEN GETDATE$ = "Invalid Value!": EXIT FUNCTION
101.     FOR month = 1 TO 12
102.         IF ISLEAPYEAR(y) = 0 THEN
103.             SELECT CASE month
104.                 CASE 1: m = 31
105.                 CASE 2: m = 28
106.                 CASE 3: m = 31
107.                 CASE 4: m = 30
108.                 CASE 5: m = 31
109.                 CASE 6: m = 30
110.                 CASE 7: m = 31
111.                 CASE 8: m = 31
112.                 CASE 9: m = 30
113.                 CASE 10: m = 31
114.                 CASE 11: m = 30
115.                 CASE 12: m = 31
116.             END SELECT
117.         ELSE
118.             SELECT CASE month
119.                 CASE 1: m = 31
120.                 CASE 2: m = 29
121.                 CASE 3: m = 31
122.                 CASE 4: m = 30
123.                 CASE 5: m = 31
124.                 CASE 6: m = 30
125.                 CASE 7: m = 31
126.                 CASE 8: m = 31
127.                 CASE 9: m = 30
128.                 CASE 10: m = 31
129.                 CASE 11: m = 30
130.                 CASE 12: m = 31
131.             END SELECT
132.         END IF
133.         oldm = om
134.         om = om + m
135.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
136.     NEXT
137.     day = NrOfTheDayInYear - om + m
138.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
139.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
140.     GETDATE$ = LTRIM$(month$) + "-" + LTRIM$(day$) + "-" + LTRIM$(STR$(y))
141. END FUNCTION
142. FUNCTION GETDAYNR (y, m, d) 'insert year, month and day and function calculate which day in year it is
143.     FOR month = 1 TO m
144.         IF ISLEAPYEAR(y) = 0 THEN
145.             SELECT CASE month
146.                 CASE 1: m = 31
147.                 CASE 2: m = 28
148.                 CASE 3: m = 31
149.                 CASE 4: m = 30
150.                 CASE 5: m = 31
151.                 CASE 6: m = 30
152.                 CASE 7: m = 31
153.                 CASE 8: m = 31
154.                 CASE 9: m = 30
155.                 CASE 10: m = 31
156.                 CASE 11: m = 30
157.                 CASE 12: m = 31
158.             END SELECT
159.         ELSE
160.             SELECT CASE month
161.                 CASE 1: m = 31
162.                 CASE 2: m = 29
163.                 CASE 3: m = 31
164.                 CASE 4: m = 30
165.                 CASE 5: m = 31
166.                 CASE 6: m = 30
167.                 CASE 7: m = 31
168.                 CASE 8: m = 31
169.                 CASE 9: m = 30
170.                 CASE 10: m = 31
171.                 CASE 11: m = 30
172.                 CASE 12: m = 31
173.             END SELECT
174.         END IF
175.         GETDAYNR = GETDAYNR + m
176.     NEXT
177.     GETDAYNR = GETDAYNR - (m - d)
178. END FUNCTION
179. FUNCTION GETDAYNAME$ (year, month, day)
180.     DIM om AS LONG, m AS LONG, days AS LONG
181.     days = day
182.     FOR yyr = 1 TO year
183.         IF yyr = year THEN monthend = month ELSE monthend = 12
184.         FOR mont = 1 TO monthend
185.             IF ISLEAPYEAR(yyr) = 0 THEN
186.                 SELECT CASE mont
187.                     CASE 1: m = 31
188.                     CASE 2: m = 28
189.                     CASE 3: m = 31
190.                     CASE 4: m = 30
191.                     CASE 5: m = 31
192.                     CASE 6: m = 30
193.                     CASE 7: m = 31
194.                     CASE 8: m = 31
195.                     CASE 9: m = 30
196.                     CASE 10: m = 31
197.                     CASE 11: m = 30
198.                     CASE 12: m = 31
199.                 END SELECT
200.             ELSE
201.                 SELECT CASE mont
202.                     CASE 1: m = 31
203.                     CASE 2: m = 29
204.                     CASE 3: m = 31
205.                     CASE 4: m = 30
206.                     CASE 5: m = 31
207.                     CASE 6: m = 30
208.                     CASE 7: m = 31
209.                     CASE 8: m = 31
210.                     CASE 9: m = 30
211.                     CASE 10: m = 31
212.                     CASE 11: m = 30
213.                     CASE 12: m = 31
214.                 END SELECT
215.             END IF
216.             om = m
217.             days = days + m
218.         NEXT
219.     NEXT
220.     days = days - m - 1
221.     a = (days MOD 7) '0 = monday
222.     RESTORE nms
223.     FOR r = 0 TO a
224.         READ GETDAYNAME$
225.     NEXT
226.     nms:
227.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
228. END FUNCTION
229. FUNCTION GETHOUR
230.     GETHOUR = INT(TIMER / 3600)
231. END FUNCTION
232. FUNCTION GETMINUTE
233.     H = INT(TIMER / 3600)
234.     GETMINUTE = INT(TIMER / 60) - H * 60
235. END FUNCTION
236. FUNCTION GETSECOND
237.     H = INT(TIMER / 3600)
238.     M = INT(TIMER / 60) - H * 60
239.     GETSECOND = INT(TIMER - (M * 60 + H * 3600))
240. END FUNCTION
241.  
242. FUNCTION GETTIMEZONE
243.     DECLARE DYNAMIC LIBRARY "Kernel32"
244.         SUB GetTimeZoneInformation (a AS INTEGER)
245.     END DECLARE
246.     DIM b AS INTEGER
247.     GetTimeZoneInformation b
248.     GETTIMEZONE = b / -60
249. END FUNCTION
250.