Часовой пояс
- 10 tz% = HOUR(0, 0) * 60 + MINUTE(0, 0) - 1440 * (DAY(0, 0) <> 1)
- 15 znak_tz$ = "+"
- 20 IF tz% <> 0 THEN znak_tz$ = CHR$(44 - tz% / ABS(tz%))
- 30 h$ = STR$(ABS(tz%) / 60)
- 40 min$ = RIGHT$("0" + STR$(MOD(ABS(tz%), 60)), 2)
- 50 tz$ = znak_tz$ + h$ + ":" + min$
- 60 PRINT tz%
- 70 PRINT tz$
- 80 REPAINT
Записывает Ваш часовой пояс в переменные tz% и tz$ и выводит эти переменные на экран. Первая переменная показывает кол-во минут отклонения Вашего часового пояса от Гринвичского, а вторая переменная отображает Ваш часовой пояс в виде строки. Примеры вывода на экран:
180
+3:00
или
-420
-7:00
или
210
+3:30
или
0
+0:00
Например, у меня выводится на экран первый пример, т. к. у меня Московское время.
180
+3:00
или
-420
-7:00
или
210
+3:30
или
0
+0:00
Например, у меня выводится на экран первый пример, т. к. у меня Московское время.
