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

Время и дата

Для работы с датой в VBA предусмотрен специальный тип Date. Он занимает 8 байт и хранит дату во внутреннем представлении VB. Чтобы преобразовать дату и время из строки в этот формат, можно воспользоваться функциями DateValue и TimeValue.

Sub DateConversionTest()

Dim TestDate As Date
TestDate = DateValue("2/3/98")
MsgBox (Str(Year(TestDate)))

End Sub

Или в случае со временем:

Sub TimeConversionTest()
  Dim TestDate As Date
  TestDate = TimeValue("11:12:13")
  MsgBox Str(Minute(TestDate))
End Sub

Чтобы хранить вместе и дату и время, можно сделать так:

Sub Test()
  Dim MyTimeDate As Date
  MyTimeDate = DateValue("7/2/93") + TimeValue("11:12:13")
  MsgBox Str(Minute(MyTimeDate))
  MsgBox Str(Year(MyTimeDate))
End Sub

Функции для работы с датой и временем:

Month(переменная типа Date)
Day(переменная типа Date)
Year(переменная типа Date)
Hour(переменная типа Date)
Minute(переменная типа Date)
Second(переменная типа Date)
WeekDay(переменная типа Date)


Возвращают соответственно месяц, день, год, часы, минуты, секунды и день недели.

Sub Test()
  Dim MyDate As Date
  MyDate = DateValue("3/7/89")
  If (WeekDay(MyDate) = vbSunday) Then MsgBox ("Sunday")
End Sub

vbSunday, vbMonday, ... - предопределенные константы для дней недели.

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