Дата на формат VBA

Този урок ще покаже как да форматирате дати, използвайки VBA.

Форматирайте дати във VBA

Има два метода за форматиране на дати с помощта на VBA.

  1. Свойството NumberFormat на клетки / диапазони - За форматиране на дати, съхранени в клетки
  2. Функцията VBA Format - За да форматирате дати във VBA (напр. Променливи)

NumberFormat - Дати

Форматът на номера по подразбиране на клетка в Excel е Общ. Можете да показвате стойности като числа, текст, дати, проценти или валути, като промените формата на числата. Свойството NumberFormat може да се използва във VBA за задаване на числовия формат на датите в клетка или диапазон.

Забележка: За да видите различните стандартни формати за дата, налични в Excel, отидете на Начало> Номер и ще видите опции като кратка дата, дълга дата и час.


Кратка среща

Опцията за форматиране на номер на кратка дата показва датата в кратък, числов формат.

Следният код ще зададе свойството .NumberFormat на клетка A1 на кратка дата:

1 Диапазон ("A1"). NumberFormat = "mm/dd/yyyy"

Дълга среща

Форматирането на номера с дълги дати показва датата в по -дълъг, писмен формат. Следният код ще зададе свойството .NumberFormat на клетка A1 на Long date:

1 Диапазон ("A1"). NumberFormat = "dddd, mmmm dd, гггг"

Персонализирани дати

За да видите кодовете за персонализиран формат на номера, които можете да използвате във VBA за форматиране на дати, отидете на Начало> Номер и щракнете върху Стартовия панел за диалогови полета. Изберете раздела Number и изберете Custom.

Можете или да изберете персонализираните вградени формати за вашата дата или да създадете свои собствени формати за дата, определени от потребителя. Следният код ще зададе свойството .NumberFormat на клетка A1 във вграден персонализиран формат за дата:

1 Диапазон ("A1"). NumberFormat = "mmm-yy"

Резултатът е:

Следният код ще зададе свойството .NumberFormat на клетка A1 към дефиниран от потребителя формат на датата:

1 Диапазон ("A1"). NumberFormat = "dddd-dd-mmm-yy"

Резултатът е:

Като прегледате предварително изградените примери на Excel, можете да научите как трябва да се въвеждат числови формати. За повече информация прочетете документацията на Microsoft за формати на числа за дати.

Функция за формат VBA

Както бе споменато по -горе, методът NumberFormat е подходящ за задаване на числовия формат на датите, съхранявани в клетките на Excel. Във VBA можете да използвате функцията за форматиране, за да конвертирате дати в низове с определено форматиране на дата.

Бихте използвали следния синтаксис за форматиране на дати:

Формат (String_Representation, NumberFormatCode) където:

String_Representation - текстовият низ, представляващ датата.

NumberFormatCode - кодът на числовия формат, определящ начина, по който трябва да се показва датата.

Следният код показва как да форматирате текстово низово представяне на дата като дълъг формат на дата:

1 Формат на MsgBox ("1/1/2010", "dddd, mmmm dd, гггг")

Резултатът е:

Обърнете внимание, че функцията за форматиране използва същия синтаксис за форматиране на датата като NumberFormat по -горе.

Следният код показва как да форматирате текстово низово представяне на дата като среден формат за дата:

1 Формат на MsgBox ("09 октомври 2012 г.", "средна дата")

Резултатът е:

Следният код показва как да форматирате текстово низово представяне на дата като дефиниран от потребителя формат:

1 Формат на MsgBox ("09 октомври 2012 г.", "dddd: dd/mm/yy")

Създател на персонализирани формати VBA

Нашата добавка VBA: AutoMacro съдържа конструктор на персонализирани формати за редактора на VBA. Това ви позволява да задавате персонализирани формати и незабавно да визуализирате изхода за желаната от вас стойност:

Добавката VBA съдържа множество други „Генератори на кодове“, обширна библиотека с кодове и асортимент от други инструменти за кодиране. Това е най-добрата добавка за всеки, който се занимава с VBA програмиране!

Дата на формат VBA в Access

Функцията VBA Format Date работи точно по същия начин в Access VBA като в Excel VBA.

12345678910 Функция GetDateFilter () като низ'създайте низ, за ​​да получите информация от 2 полета за дата във формуляр в AccessDim strDateField As StringАко IsNull (Me.txtSDate) = False ТогаваАко IsNull (Me.txtEDate) = Вярно, тогава Me.txtEDate = Me.txtSDateАко strDateField2 = "" ТогаваGetDateFilter = strDateField & "Между #" & Формат (Me.txtSDate, "mm/dd/yyyy") & " # And #" & Format (Me.txtEDate, "mm/dd/yyyy") & " #"Край АкоКрай АкоКрайна функция

Така ще помогнете за развитието на сайта, сподели с приятелите си

wave wave wave wave wave