Дата и время в VB.NET
Сегодня научимся работать с временем и датой.
Узнаем текущую дату и время:
Дата:
MsgBox(Now.ToLongDateString) ' дата в формате число месяц год
Дата в числовом формате:
MsgBox(DateString) ' дата в формате день-число-месяц
Время :
MsgBox(Now.ToLongTimeString) ' время
или
MsgBox(TimeOfDay) ' время
Результат будет один и тот же.
Сейчас создадим программу, которая будет показывать нам время :
Добавьте на форму один Timer и один Label
Сделайте свойства у таймера : Enabled = True и Interval = 1000
И напишем код для события Tick у таймера :
' Обновляющееся время Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = "Сейчас время : " & Now.ToLongTimeString End Sub
Если все сделали, запустите проект и увидите что время начинает идти.
Узнаем день недели :
MsgBox(D.DayOfWeek) ' День недели в цифровом виде.
Как мы видим результат дается в цифровом виде и что обозначает цифра 3?
3 - это третий день недели, точнее сказать среда. 1 - понедельник, 2 - вторник и т.д
Составим программу по дням недели:
Dim День_Недели As Integer Dim D As Date = Now День_Недели = D.DayOfWeek Select Case День_Недели Case 1 MsgBox("Понедельник") Case 2 MsgBox("Вторник") Case 3 MsgBox("Среда") Case 4 MsgBox("Четверг") Case 5 MsgBox("Пятница") Case 6 MsgBox("Суббота") Case 7 MsgBox("Воскресенье") End Select
В переменной День_Недели будет находиться цифровой вид дня недели и в условном операторе Select Case мы будем выбирать нужное нам условие, если день недели будет 1 то покажется сообщение, что сегодня понедельник, а если 2 то вторник и т.д
Текстовый вид дня недели :
Но есть уже готовая функция Format и мы можем сформировать дату как нам нужно.
Dim D As Date = Now MsgBox(Format(D, "dddd")) ' День недели в виде слов.
Видите, как все просто и не нужно мучатся с условиями.
Если хотите больше узнать о формировании значений времени и даты смотрите скриншот таблицы ниже :
И пример :
Dim D As Date = Now MsgBox(Format(D, "Сегодня dd -е число, год yyyy, а день недели - dddd, а месяц - MMMM"))
Теперь вы спокойно можете составлять свои форматы даты и времени.
Попробуйте сделать пример со временем.
Создать формат : Часы-Минуты-Секунды-Миллисекунды
Если, что-то не получается, пишите.
https://ds-release.ru/graficheskie-chasy/ - графические часы.
Урок №10 - Игра - "Угадай число" | Содержание | Урок №12 - Работа с файлами и директориями в VB.NET