photosdematures.com

Екцел ВБА функција додавања датума

ДатеАдд функција је категоризирана у функцији датума и времена у ВБА и ова функција има излазну вриједност као датум, узима унос као формат датума и додаје је тренутном датуму да би вратила нови датум, синтакса ове функције траје три интервал аргумената, број и датум.

Помоћу функције ДатеАдд можемо додавати и одузимати дане, месеце и године од датог датума. Датум у Екцелу је саставни део нашег свакодневног рада, не можемо радити у Екцелу без датума, времена и других важних ствари. Уобичајени процес је додавање једног датума другом, одузимање једног датума другом. У редовном радном листу једноставно радимо аритметичке операције и добијамо резултат. У ВБА имамо функцију под називом ДатеАдд која ће обавити посао.

Синтакса

Интервал: Интервал није ништа друго до врста врсте вредности коју желите да додате или одузмете. На пример, да ли желите да додате или одузмете месец, да ли желите да додате или одузмете дане, да ли желите да додате или одузмете годину, да ли желите да додате или одузмете четвртину итд ...

Испод је листа кодова и описа.

• Број: Број месеци, дана или недеље (као што је предвиђено у интервалу) који желимо да додамо или одузмемо датуму.
• Датум: Стварна датумска вредност коју радимо у аритметичкој операцији.

На пример, ако имате датум „14. март 2019.“ и желите да додате 2 дана датуму, користите доњи код:

ДатеАдд („д“, 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, вратиће се у претходну годину.