Часовой пояс

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

Мы в соцсетях

vk tw tg yt

Пожертвования

Аноним2850 р.
Freddy1700 р.
riseremi1611 р.
NaruTrey800 р.
vlavolk637 р.
  © aNNiMON (Melnik Software)