MyTetra Share
Делитесь знаниями!
Дата и время в VB.NET
31.07.2019
22:37
Раздел: !Закладки - VBA

Дата и время в 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/  - графические часы.

Урок №10 - Игра - "Угадай число" | Содержание | Урок №12 - Работа с файлами и директориями в VB.NET

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования