MyTetra Share
Делитесь знаниями!
Работа с датами, временем
23.03.2018
23:14
Текстовые метки: VB .NET
Раздел: VB

Работа с датами, временем

Опубликовано Декабрь 29, 2015 автором Памирыч

Прибавить к текущей дате определенное количество часов, дней, месяцев


Visual Basic .NET

1

2

3

Dim D As Date

D = D.AddDays(50)

MsgBox(D.ToLongDateString)


Или так:

Visual Basic .NET

1

2

Dim D As Date = Now

MsgBox(DateAdd(DateInterval.Day, 45, D))


Вычитание делается по той же схеме, но с отрицательными значениями


Получить текущую дату и время


Visual Basic .NET

1

MsgBox(Now.ToLongDateString & ", " & Now.ToLongTimeString)


Узнать день недели


Visual Basic .NET

1

MsgBox(Format(D, "dddd"))


День недели в численном представлении


Visual Basic .NET

1

MsgBox(D.DayOfWeek)


Узнать, високосный год или нет


Visual Basic .NET

1

MsgBox(Date.IsLeapYear(Now.Year))


Установить в компьютере системное время и дату


Visual Basic .NET

1

2

TimeString = "23:04:10"

DateString = "8/24/2011"



Подробнее о форматировании дат


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

Например:

Visual Basic .NET

1

2

3

Dim D As Date = Now

Dim FormatString As String

MsgBox(Format(D, FormatString))



Основные значения FormatString:

%s Секунды, если спереди ноль — он не пишется

fff Милисекунды

ss Секунды, всегда двузначное число

%m Минуты, если спереди ноль — он не пишется

mm Минуты, всегда двузначное число

%h Аналогично

hh с часами (представление от 0 до 12)

HH с часами (Представление от0 до 24)

%M Аналогично

MM с месяцами

ddd День недели, в сокращенном виде, например, Пн

dddd То же, но слово целиком, например, понедельник

MMM Месяц, в сокращенном виде, например, янв

MMMM То же, но в полном

%y Год, в сокращенном виде, 2 последние цифры, если предпоследняя не 0 и одна в противном случае

yy Год, 2 цифры в любом случае, например, 1996 год — 96

yyyy Год целиком


Исходя из этого, легко составлять свои строки для вывода информации:

dd-MM-yyyy

Или

Visual Basic .NET

1

2

Dim D As Date = Now

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


Обращаю внимание на регистр букв, т.е. если написать не dd, а DD или Dd, то формат не будет распознан


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