Функция на Excel VBA INT (Integer)
VBA INT е вградена функция, която се използва, за да ни даде само целочислената част от число, предоставена ни вход, тази функция се използва в тези данни, чиято десетична част не засяга толкова данните, за да улесни изчисленията или анализа, които използваме Функция INT, за да получи само целочислените стойности.
Тази функция е достъпна както с работния лист, така и с VBA. Функцията Integer закръглява конкретно число надолу до най-близкото цяло число.

Функцията VBA Int може да се използва в Подпроцедура и Функционална процедура. Сега разгледайте синтаксиса на функцията INT във VBA.

Той има само един аргумент за предоставяне, т.е. номер.
- Числото е числото, което се опитваме да преобразуваме в INTEGER номер. Когато номерът е предоставен, функцията INT го закръглява до най-близкото цяло число.
Например, ако предоставеното число е 68,54, тогава функцията Excel VBA Int се закръглява до 68, което е към нула. Ако предоставеното число е -68,54, тогава функцията INT закръглява числото до 69, което е далеч от нулата.
Как да използвам функцията VBA INT?
Пример # 1
Сега вижте простия пример за функцията “INT” във VBA. Нека изпълним задачата да закръглим числото 84,55 до най-близкото цяло число.
Стъпка 1: Стартирайте подпроцедурата.
Стъпка 2: Декларирайте променливата като Integer .
Код:
Sub INT_Example1 () Dim K As Integer End Sub

Стъпка 3: Сега присвоете формулата на променливата „ k “, като приложите функцията INT.
Код:
Sub INT_Example1 () Dim K As Integer K = Int (End Sub

Стъпка 4: Посочете числото като 84.55 .
Забележка: Тъй като това е числово число, не е необходимо да предлагаме двойни кавички.
Код:
Sub INT_Example1 () Dim K As Integer K = Int (84.55) End Sub

Стъпка 5: Сега предаваме резултата от променливата в полето за съобщения на VBA.
Код:
Sub INT_Example1 () Dim K As Integer K = Int (84.55) MsgBox K End Sub

Добре, нека пуснем кода и да видим какво ще се случи.

Така че резултатът е 84 и се закръгля надолу до най-близката целочислена стойност.
Пример # 2
Сега със същото число с отрицателния знак ще се опитаме да преобразуваме до най-близката целочислена стойност. По-долу е кодът с отрицателен знак.
Код:
Sub INT_Example2 () Dim k As Integer k = Int (-84.55) 'Отрицателно число с функция INT MsgBox k End Sub
Когато стартирам този код, той е закръглил числото до -85 .

Пример # 3 - Извличане на част от дата от дата и час
Няколко пъти в кариерата си срещах сценария за извличане на датата и часа отделно от комбинацията от дата и час.
Например погледнете данните по-долу на Дата и час.

Как извличате порция дата и час?
Първо, трябва да извлечем частта Date. За това нека приложим функцията INT. Кодът по-долу ще извлече частта DATE от горните данни.
Код:
Sub INT_Example2 () Dim k As Integer За k = 2 до 12 клетки (k, 2). Стойност = Int (клетки (k, 1). Стойност) 'Това ще извлече датата във втората колона клетки (k, 3). Стойност = Клетки (k, 1). Стойност - Клетки (k, 2). Стойност 'Това ще извлече време до третата колона Следващ k Край Sub
Изпълнете този код. Може да получите резултата по-долу (ако форматирането не се прилага).

В колоната за дата приложете форматирането като „ДД-МММ-ГГГГ“, а за колоната за време приложете формата на датата в Excel като „ЧЧ: ММ: СС AM / PM“
