MyTetra Share
Делитесь знаниями!
Работа с датами, временем
16.03.2019
23:43
Текстовые метки: vb
Раздел: !Закладки - VBA - Разобрать

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

Опубликовано Декабрь 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

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, то формат не будет распознан



Запись опубликована в рубрике Полезные коды на Visual Basic .NET, VB .NET FAQ. Добавьте в закладки постоянную ссылку.

← Как сделать круглый ProgressBar

Exotic — Free VSTi Synthesizer →

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