Екцел ВБА ДатеСериал функција
Функција ДатеСериал у ВБА враћа датум из вредности које су доставили корисници. Морамо да доставимо шта је година, шта дан, а шта месец. Резултат ће се заснивати на формату датума вашег система.
Испод је синтакса функције ДАТЕСЕРИАЛ .
# 1 - Година: треба да унесемо целобројни број која је година? Док достављамо целобројне бројеве, морамо имати на уму следеће ствари.
- Можемо доставити бројеве од 0 до 9999.
- Једноцифрени и двоцифрени бројеви од 0 до 99 биће третирани од 1930. до 2029. године.
- Негативни целобројни број одузеће се од 2000. године. На пример, ако наведете -1, резултат ће бити 1999. због 2000 - 1 = 1999.
# 2 - Месец: треба да унесемо целобројни број као месец? Док уносимо овај број, морамо имати на уму следеће ствари.
- Можемо испоручити само бројеве од 1 до 12.
- Ако је наведена целобројна вредност 0, то ће представљати месец „децембар“ претходне године.
- Ако је наведена целобројна вредност -1, то ће представљати месец „новембар“ претходне године. Овако, када се негативна вредност повећа, она ће и даље представљати месец уназад године.
- Ако је наведени број већи од 12, тј. Ако је број 13, то ће представљати месец „јануар“ следеће године. Ако је број 14, то ће се третирати као месец „фебруар“ следеће године.
# 3 - Дан: треба да унесемо целобројни број који је дан? Док уносимо овај број, морамо имати на уму следеће ствари.
- Можемо унети целобројне бројеве од 1 до 31 за текуће месеце.
- Ако је број 0, представљаће последњи дан претходног месеца.
- Ако је број -1, представљаће други последњи дан претходног месеца.
- Ако наведете последњи дан овог месеца +1, то ће представљати први дан следећег месеца. На пример, ако је последњи дан августа 31. и ако дан наведете као 31 + 1, то ће представљати први дан септембра.
Како се користи ДАТЕСЕРИАЛ функција у ВБА?
Пример # 1
Да бисте користили функцију ДАТЕСЕРИАЛ, почните писати макро код.
Корак 1: Покрените потпроцедуру
Прво креирајте ВБА потпроцедуру, као што је приказано доле.
Корак 2: Прогласите променљиву
Сада прогласите променљиву као ДАТЕ.
Корак 3: Доделите функцију ДатеСериал тој променљивој.
Сада за ову променљиву доделите функцију ДАТЕСЕРИАЛ.
Корак 4: Сада унесите вредности године, месеца и дана у функцију ДатеСериал
За ГОДИНУ снабдевања 2019, за МОНТХ снабдевање 08, а за ДАН 05.
Корак 5: Прикажи резултат у оквиру за поруке
Сада у пољу за поруке прикажите резултат променљиве „Мој датум“.
Шифра:
Опција Изричито Суб ДатеСериал_Екампле1 () Дим Мидате Ас Дате Мидате = ДатеСериал (2019, 8, 5) МсгБок Мидате Енд Суб
Корак 6: Покрените код
Сада покрените овај код да бисте видели датум испод.
Резултат каже „5.8.2019“. У мом формату системског датума је облик „ММ-ДД-ГГГГ“, па је зато и резултат у истом формату.
Такође можемо променити формат датума користећи функцију ФОРМАТ у ВБА. Примените функцију ФОРМАТ као доле.
Шифра:
Опција Експлицитно Суб ДатеСериал_Екампле1 () Дим Мидате Ас Дате Мидате = ДатеСериал (2019, 8, 5) МсгБок Формат (Мидате, "ДД-МММ-ИИИИ") Крај Суб
Ово ће применити формат у „ДД-МММ-ГГГГ“, а резултат је следећи.
Пример # 2
Такође можемо декларирати променљиве и достављати вредности тим променљивим. На пример, погледајте доњи код.
Шифра:
Суб ДатеСериал_Екампле2 () Затамни датум датума Као затамни МиИеар као целобројно затамни МиМонтх као целобројно забележи МиДаи као целоцелово МиИеар = 2019 МиМонтх = 8 МиДаи = 5 Мидате = ДатеСериал (МиИеар, МиМонтх, МиДаи) МсгБок Формат (МиДате, "ДД-ММИ-ММИ-ММИ-ИИ ") Крај Суб
Instead of supplying year, month, and day directly to the DATESERIAL function, we have declared variables and assigned values to them. Then later, we have supplied variables to the DATESERIAL function.
This is how we can make use of variables in VBA to store values.
Example #3
Now we will experiment with the year. I will assign the year value as 1 and see the result.
Single & Double-digit numbers in YEAR represents a year from 1930 to 2029. So 01 means 2001, 02 means 2002, and so on.
Now let’s change the month number to 0 and see the result.
Look at the code here, Year is 2019, and the month is 0. But look at the result it says 05-Dec-2019, whereas a supplied year is 2019 it says 2018 i.e., the previous year.
То је зато што, пошто смо месец унели као 0 ДАТЕСЕРИАЛ функција узима месец до последњег месеца претходне године и такође мења годину у складу с тим.
Овако, испробајте различите бројеве да бисте видели утицај функције.
Ствари које треба запамтити
- Морате знати који број представља коју годину, месец и вртић. Пажљиво прочитајте објашњење синтаксе да бисте разумели.
- Резултат ће се заснивати на формату датума вашег система. Ако желите модификовани резултат, тада морате применити функцију ФОРМАТ и поменути формат датума према вашој погодности.
