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