Екцел ВБА функција додавања датума
Функција ДатеАдд категоризирана је према функцији датума и времена у ВБА и ова функција има излазну вриједност као датум, узима улаз као формат датума и додаје је тренутном датуму да би вратила нови датум, синтакса ове функције узима интервал три аргумента, број и датум.
Помоћу функције ДатеАдд можемо да додамо и одузмемо дане, месеце и године од датог датума. Дате ин екцел је саставни део нашег свакодневног посла; не можемо радити у екцелу без датума, времена и других важних ствари. Уобичајени процес је додавање једног датума другом, одузимање једног датума другом. У редовном радном листу једноставно радимо аритметичке операције и добијамо резултат. У ВБА имамо функцију под називом ДатеАдд, која ће обавити посао.
Синтакса
Интервал: Интервал није ништа друго до врста врсте вредности коју желите да додате или одузмете. На пример, да ли желите да додате или одузмете месец, да ли желите да додате или одузмете дане, да ли желите да додате или одузмете годину, да ли желите да додате или одузмете квартал итд.…
Испод је листа кодова и описа.
- Број: Број месеци, дана или недеље (како је предвиђено у интервалу) који желимо да додамо или одузмемо датуму.
- Датум: Стварна датумска вредност којом радимо аритметичку операцију.
На пример, ако имате датум „14. март 2019.“ и желите датуму додати два дана, користите доњи код:
ДатеАдд („д,“ 2, „14-03-2019“)
Резултат горе наведеног кода је: 16-03-2019
Како се користи функција додавања датума у ВБА?
Пример # 1 - Додај датум
Да започнемо поступак, применимо једноставну функцију ДатеАдд. Претпоставимо да радите са датумом „14-03-2019“.
Корак 1: Покрените потпроцедуру стварањем имена макронаредбе.
Корак 2: Дефинишите променљиву као Датум.
Шифра:
Суб ДатеАдд_Екампле1 () Затамни месец као датум завршетка Суб
Корак 3: За ову променљиву доделите вредност.
Шифра:
Суб ДатеАдд_Екампле1 () Дим НевДате Ас Дате НевДате = Енд Суб
Корак 4: Покрените формулу ДатеАдд .
Шифра:
Суб ДатеАдд_Екампле1 () Дим НевДате Ас Дате НевДате = ДатеАдд (Енд Суб
Корак 5: Коју операцију желимо да урадимо. Желимо дан до датума. Дакле, интервал је „ д“.
Шифра:
Суб ДатеАдд_Екампле1 () Затамни нови датум као датум НевДате = ДатеАдд ("д", Енд Суб
Корак 6: Колико дана треба да додамо? Морам да додам 5 дана.
Шифра:
Суб ДатеАдд_Екампле1 () Затамни нови датум као датум НевДате = ДатеАдд ("д", 5, Енд Суб
Корак 7: Наш датум је „ 14-03-2019. ”
Шифра:
Суб ДатеАдд_Екампле1 () Затамни нови датум као датум НевДате = ДатеАдд ("д", 5, "14-03-2019") Енд Суб
Корак 8: Прикажите резултат променљиве у оквиру ВБА поруке.
Шифра:
Суб ДатеАдд_Екампле1 () Затамни нови датум као датум НевДате = ДатеАдд ("д", 5, "14-03-2019") МсгБок НевДате Енд Суб
Ако покренем овај код, требало би да добијем датум 19-03-2019.
У мом формату системског датума је „мм-дд-ииии“, тако да се резултат приказује према подешавањима системског датума.
Међутим, ово можемо изменити применом функције ВБА ФОРМАТ.
Шифра:
Суб ДатеАдд_Екампле1 () Дим НевДате Ас Дате НевДате = ДатеАдд ("д", 5, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-иииии") Крај Суб
Сада би резултат требао да се свиђа овако „ 19. марта 2019 “.
Пример # 2 - Додајте месеце
Да бисте додали месеце, доле је шифра
Шифра:
Суб ДатеАдд_Екампле2 () 'Да бисте додали месеце Дим НевДате Ас Дате НевДате = ДатеАдд ("м", 5, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-иииии") Енд Суб
Резултат ће бити:
Пример # 3 - Додајте године
Да бисте додали године помоћу ДатеАдд, користите доњи код.
Шифра:
Суб ДатеАдд_Екампле2 () 'Да бисте додали годину Дим НевДате као датум НевДате = ДатеАдд ("ииии", 5, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-ииии") Енд Суб
Резултат ће бити:
Пример # 4 - Додајте четвртину
Да додате четвртину испод је шифра.
Шифра:
Суб ДатеАдд_Екампле2 () 'Да бисте додали квартал Дим НевДате Као датум НевДате = ДатеАдд ("К", 5, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-иииии") Крај Суб
Резултат ће бити:
Пример # 5 - Додајте радни дан
Да бисте додали радне дане у наставку је код.
Шифра:
Суб ДатеАдд_Екампле2 () 'Да бисте додали радне дане Дим НевДате Ас Дате НевДате = ДатеАдд ("В", 5, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-иииии") Крај Суб
Резултат ће бити:
Пример # 6 - Додај недељу
Да додате недељу испод је шифра.
Шифра:
Суб ДатеАдд_Екампле2 () 'Да бисте додали седмицу Дим НевДате као датум НевДате = ДатеАдд ("ВВ", 5, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-иииии") Крај Суб
Резултат ће бити:
Пример # 7 - Додајте сат
Да бисте додали сат испод је шифра.
Шифра:
Суб ДатеАдд_Екампле2 () 'Да бисте додали сат Дим НевДате Ас Дате НевДате = ДатеАдд ("х", 5, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-иииихх: мм: сс") Енд Суб
Резултат ће бити
Пример # 8 - Одузми датум
Да бисмо сабрали, дали смо позитивне бројеве; да одузмемо, а ми морамо да доставимо негативне бројеве који су сви.
Да бисте одузели 3 месеца од наведеног датума, доле је наведена шифра.
Шифра:
Суб ДатеАдд_Екампле3 () 'Да бисте додали сат Дим НевДате Ас Дате НевДате = ДатеАдд ("м", -3, "14-03-2019") МсгБок Формат (НевДате, "дд-ммм-иииии") Енд Суб
Резултат овог кода је:
Одузмем 3 месеца од дана 14. -ог марта 2019. То ће се вратити на претходну годину.
