4. Форматирование даты и времени

В Error: Reference source not found вы уже сталкивались с форматированием чисел. Форматирование нужно для того, чтобы представить информацию в удобном для пользователя виде. Осуществляет форматирование функция Format. У нее два аргумента (параметра): первый – что форматировать, второй – как форматировать. Функция возвращает значение типа String.

Готовые форматы. Рассмотрим программу:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim t As DateTime = #8/10/2004 4:42:39 PM#

WriteLine(Format(t, "General Date")) '10.08.2004 16:42:39

WriteLine(Format(t, "Long Date")) '10 Август 2004 г.

WriteLine(Format(t, "Short Date")) '10.08.2004

WriteLine(Format(t, "Long Time")) '16:42:39

WriteLine(Format(t, "Short Time")) '16:42

WriteLine(Format(t, "f")) '10 Август 2004 г. 16:42

WriteLine(Format(t, "F")) '10 Август 2004 г. 16:42:39

WriteLine(Format(t, "g")) '10.08.2004 16:42

WriteLine(Format(t, "y")) 'Август 2004 г.

End Sub

Пояснения: Здесь первый аргумент – t. Второй – строка. Содержание строки определяет вид результата. То, что печатают операторы программы, написано в комментариях.

Форматы, определяемые программистом. Мы рассмотрели здесь наиболее популярные из готовых форматов, которые нам предоставляет VB. Но форматы можно конструировать и самому. Рассмотрим программу:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim t As DateTime = #8/5/2004 7:02:09 PM#

WriteLine(Format(t, "fff")) '000 - доли секунды (тысячные, потому что 3 буквы f)

WriteLine(Format(t, "%s")) '9 - секунды

WriteLine(Format(t, "ss")) '09 - секунды

WriteLine(Format(t, "%m")) '2 - минуты

WriteLine(Format(t, "mm")) '02 - минуты

WriteLine(Format(t, "%h")) '7 - часы до и после полудня

WriteLine(Format(t, "hh")) '07 - часы до и после полудня

WriteLine(Format(t, "%H")) '19 - часы

WriteLine(Format(#3:02:09 AM#, "HH")) '03 - часы

WriteLine(Format(t, "%d")) '5 - число месяца

WriteLine(Format(t, "dd")) '05 - число месяца

WriteLine(Format(t, "ddd")) 'Чт - день недели

WriteLine(Format(t, "dddd")) 'четверг - день недели

WriteLine(Format(t, "%M")) '8 - месяц

WriteLine(Format(t, "MM")) '08 - месяц

WriteLine(Format(t, "MMM")) 'авг - месяц

WriteLine(Format(t, "MMMM")) 'Август - месяц

WriteLine(Format(t, "%y")) '4 - год

WriteLine(Format(t, "yy")) '04 - год

WriteLine(Format(t, "yyyy")) '2004 - год

End Sub

Пояснения: В комментариях вы видите результаты работы операторов программы с пояснениями. Знак процента употребляется тогда, когда в кавычках стоит один единственный символ форматирования, чтобы не спутать его с символом готового формата.

Мы рассмотрели здесь, как выделять из переменной нужные нам элементарные части даты или времени. Теперь посмотрим, как их комбинировать, чтобы получить вразумительную строку:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim t As DateTime = #8/5/2004 7:02:09 PM#

WriteLine(Format(t, "dd-MM-yy")) '05-08-04

WriteLine(Format(t, "d MMM yyyy")) '5 авг 2004

WriteLine(Format(t, "Настал yyyy год.")) 'Настал 2004 год.

WriteLine(Format(t, "d/MM/yy")) '5.08.04

WriteLine(Format(t, "HH:m:ss")) '19:2:09

WriteLine(Format(t, "HH,m.ss")) '19,2.09

WriteLine(Format(t, "HH часов d MMM")) '19 часов 5 авг

WriteLine(Format(t, "Было %h часов вечера и m минуты")) 'Было 7 часов вечера и 2 минуты

End Sub

Пояснения: Если мы при разделении элементов даты пользуемся косой чертой, то в результате разделителем становится символ, на который настроена Windows (в России – точка, в США – косая черта). То же самое можно сказать о двоеточии для разделения элементов времени суток. Но мы можем для разделения сравнительно свободно пользоваться и другими символами: черточками, пробелами, точками, запятыми, буквами русского алфавита и др.

Напишите программу, которая, ничего у вас не спрашивая, печатает, какое число будет через 52 недели.

Напишите программу, которая, спросив у вас дату рождения и не спрашивая, какое сегодня число, печатает, сколько секунд вы живете на белом свете.

Напишите программу, которая, спросив у вас дату рождения и не спрашивая, какое сегодня число и был ли у вас в этом году день рождения, печатает, сколько дней вам осталось до следующего дня рождения.

Я знаю, что високосных годов ученым не хватает. Поэтому, не то где-то раз в много лет вклинивается лишний високосный год, не то иногда где-то в каком-то месяце бывает лишний день. Не знаю. Может быть VB подскажет?

2. Таймер

Суть работы таймера. Создайте новый проект. Возьмите из Toolbox элемент управления Timer и поместите его на форму. Однако, подобно элементу управления Меню, таймер расположится не на форме, а под ней, на дизайнере компонентов. Установите его свойство Enabeled в True, а свойство Interval равным 10000. Сделайте двойной щелчок по таймеру. В появившуюся заготовку процедуры впишите одну строчку:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Debug.WriteLine("Процедура сработала")

End Sub

Запустите проект. Подождите немного. Через 10 секунд в окне Output появится строчка "Процедура сработала". Еще через 10 секунд появится такая же строчка, через 10 секунд еще одна, и так далее.

Если бы мы установили Interval равным 5000, то строчки появлялись бы каждые 5 с, а если равным 500, то – каждые 0,5 с. Получается, что свойство Interval задает промежуток времени в миллисекундах (мс – тысячных долях секунды).

Вывод: Таймер Timer1 – объект, вся работа которого заключается в том, чтобы через каждые Interval миллисекунд создавать событие (импульс), которое запускает процедуру Timer1_Tick.

Цикл без цикла. В процедуре Timer1_Tick мы можем написать все, что угодно. Например:

Dim i As Long = 1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Debug.WriteLine("Процедура сработала " & i & "-й раз")

i = i + 1

End Sub

Установите Interval в 1000. Запустите проект. Вы увидите через каждую секунду возникающие строчки:

Процедура сработала 1-й раз

Процедура сработала 2-й раз

Процедура сработала 3-й раз

Процедура сработала 4-й раз

Мы видим, что у нас заработал цикл, несмотря на то, что операторов цикла мы не писали! Чуть позже вы догадаетесь, как вовремя делать выход из цикла.

Свойство таймера Enabled. Установим свойство таймера Enabled (по-русски – «в рабочем состоянии») в False. Запустим проект. Никаких строк не появляется. Значит таймер выдает импульсы только тогда, когда свойство Enabled установлено в True.

Добавим в проект две кнопки и к ним две процедуры:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = False

End Sub

Запустите проект. Вы увидите, что новые строчки появляются только после щелчка по первой кнопке, а после щелчка по второй прекращают появляться.

«Холостые» импульсы. Что будет, если процедура Timer1_Tick еще не успела закончить работу, а от таймера уже пришел новый импульс? Проверим. Установим Interval равным 100, то есть импульсы от таймера должны посылаться примерно 10 раз в секунду. Напишем процедуру Timer1_Tick, которая очень долго работает:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Debug.WriteLine("Процедура таймера начала работу")

For i = 1 To 200000000 : Next

Debug.WriteLine("Процедура таймера закончила работу")

End Sub

Здесь долго работает пустой цикл

For i = 1 To 200000000 : Next

Несмотря на то, что делать ему нечего (тело у цикла отсутствует), у него много времени уходит на то, чтобы просто досчитать до 200 миллионов. На моем компьютере это занимает секунд пять, на вашем, наверное, по-другому. Это неважно, а важно то, что за эти пять секунд в процедуру врежется порядка 50 импульсов от таймера. И все как об стену горох – процедура на них не реагирует. Пока не завершит свою работу, как положено, оператором End Sub. После этого первый же следующий импульс, которому повезло, снова ее запускает. Вы увидите, что на экране не спеша, где-то раз в пять секунд появляется очередная пара строчек.

Точность таймера. Проведя эксперименты на компьютере Celeron 400, я обнаружил, что таймер выдает импульсы от интервала 10 мс и выше. То есть минимальное время между импульсами = 10 мс. Задавать интервал меньше 10 бесполезно. Однако, это все-таки гораздо лучше, чем в VB 6.0, где это время равнялось 1/18 доле секунды.

Запрограммируйте с помощью таймера печать чисел от 100 до 110 через 1 секунду.

Несколько таймеров. Таймеров в проекте может быть несколько. Все они работают независимо друг от друга и каждый имеет свою собственную процедуру, которая реагирует только на его импульсы.

Поместите в проект два таймера. Интервал первого задайте равным 1000, второго – 3000. Вот программа:

Dim i As Long = 1

Dim j As Long = 1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Debug.WriteLine("Первый таймер сработал " & i & "-й раз")

i = i + 1

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Debug.WriteLine("Второй таймер сработал " & j & "-й раз")

j = j + 1

End Sub

А вот результаты:

Первый таймер сработал 1-й раз

Второй таймер сработал 1-й раз

Первый таймер сработал 2-й раз

Первый таймер сработал 3-й раз

Первый таймер сработал 4-й раз

Второй таймер сработал 2-й раз

Первый таймер сработал 5-й раз

Первый таймер сработал 6-й раз

Первый таймер сработал 7-й раз

Второй таймер сработал 3-й раз

Как видите, второй таймер срабатывает в 3 раза реже первого.