Прибавить к текущей дате определенное количество часов, дней, месяцев
|
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
Узнать, високосный год или нет
Visual Basic .NET
|
1 |
MsgBox(Date.IsLeapYear(Now.Year)) |
Установить в компьютере системное время и дату
Visual Basic .NET
|
TimeString = "23:04:10"
DateString = "8/24/2011" |
|
Подробнее о форматировании дат
Мы можем использовать даты и время еще гибче, благодаря функции Format.
Например:
Visual Basic .NET
|
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, то формат не будет распознан
