Excel VBA Дата и час
Година, месец, ден на дата | DateAdd | Текуща дата и час | Час, минута, второ | TIMEVALUE
Научете как да работите дати и часове в Excel VBA.
Поставете командния бутон на работния лист и добавете кодовете по-долу. За да изпълните кодовите редове, кликнете върху командния бутон на листа.
Година, месец, ден на дата
Следният макрос получава годината на дата. За да декларирате дата, използвайте инструмента Dim. За да инициализирате дата, използвайте функцията DateValue.
Код:
exampleDate = DateValue("Jun 19, 2010")
MsgBox Year(exampleDate)
Резултат:
Забележка: Използвайте месец и ден, за да получите месеца и деня на дадена дата.
DateAdd
За да добавите няколко дни към дата, използвайтеФункция DateAdd. Функцията DateAdd има три аргумента. Попълнете "d" за първия аргумент, за да добавите дни. Попълнете 3 за втория аргумент, за да добавите 3 дни. Третият аргумент представлява датата, на която ще бъде добавен броят дни.
Код:
firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)
MsgBox secondDate
Резултат:
Забележка: Променете "d" на "m", за да добавите няколко месеца към дадена дата. Поставете курсора върху DateAdd в редактора на Visual Basic и щракнете F1 за помощ на другите интервални спецификатори. Датите са в US Format. Първи месеци, дни втори. Този тип формат зависи от регионалните ви настройки за Windows.
Текуща дата и час
За да получите текущата дата и час, използвайте функцията Now.
Код:
Резултат:
Час, минута, второ
Вземете час от време, използвайте функцията Час.
Код:
Резултат:
Забележка: Използвайте мин. И секунда, за да получите минутите и секундата от време.
TIMEVALUE
Функцията TimeValue преобразува низ на временен сериен номер. Серийният номер за време е число между 0 и 1. Например, обяд (по средата на деня) е представен като 0.5.
Код:
Резултат:
Сега, за да видите ясно, че Excel обработва вътрешно време като числа между 0 и 1, добавете следните кодови редове:
y = TimeValue("09:20:01")
MsgBox y
Резултат:
