Сегодня научимся работать с временем и датой.

Узнаем текущую дату и время:

Дата:

MsgBox(Now.ToLongDateString) ' дата в формате число месяц год

Date1 Дата и время в VB.NET

Дата в числовом формате:

MsgBox(DateString) ' дата в формате день-число-месяц
Date2 Дата и время в VB.NET

Время :

MsgBox(Now.ToLongTimeString) ' время

или

MsgBox(TimeOfDay) ' время

Результат будет один и тот же.

Time1 Дата и время в VB.NET

Сейчас создадим программу, которая будет показывать нам время :

Добавьте на форму один 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) ' День недели в цифровом виде.

WeekDay1 Дата и время в VB.NET

Как мы видим результат дается в цифровом виде и что обозначает цифра 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")) ' День недели в виде слов.

WeekDay2 Дата и время в VB.NET

Видите, как все просто и не нужно мучатся с условиями.

Если хотите больше узнать о формировании значений времени и даты смотрите скриншот таблицы ниже :

FormatString Дата и время в VB.NET

И пример :

Dim D As Date = Now
MsgBox(Format(D, "Сегодня dd -е число, год yyyy, а день недели - dddd, а месяц -  MMMM"))

Date3 Дата и время в VB.NET

Теперь вы спокойно можете составлять свои форматы даты и времени.

Попробуйте сделать пример со временем.

Создать формат : Часы-Минуты-Секунды-Миллисекунды

Если, что-то не получается, пишите.

http://ds-release.ru/graficheskie-chasy/  - графические часы.

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

googleplus Дата и время в VB.NET
livejournal Дата и время в VB.NET