У овом водичу ћемо проћи кроз различите уграђене ВБА функције датума.
ВБА Дате функција
Помоћу функције Дате можете вратити тренутни датум.
Синтакса функције Дате је Дате (). Нема аргумената.
Следећи код вам показује како да користите функцију датума:
| 12345678 | Под помоћу ТхеДатеФунцтион ()Затамните датум као датумтхеДате = Дате ()Дебуг.Принт тхеДатеЕнд Суб |
Резултат је:
ВБА сада функција
Помоћу функције Нов можете вратити тренутни датум и време.
Синтакса функције Нов је Нов (). Нема аргумената.
Следећи код вам показује како да користите функцију Нов:
| 12345678 | Суб УсингТхеНовФунцтион ()Затамните датум као датумтхеДате = Сада ()Дебуг.Принт тхеДатеЕнд Суб |
Резултат је:
ВБА временска функција
Можете користити функцију времена за враћање тренутног времена.
Синтакса функције Тиме је Тиме (). Нема аргумената.
Следећи код вам показује како да користите функцију времена:
| 12345678 | Суб УсингТхеТимеФунцтион ()Затамните време као датумтхеТиме = Тиме ()Дебуг.Принт тхеТимеЕнд Суб |
Резултат је:
ВБА функција додавања датума
Помоћу функције ДатеАдд можете додати датум/временски интервал датуму или времену, а функција ће вратити резултујући датум/време.
Синтакса функције ДатеАдд је:
ДатеАдд (интервал, број, датум) где:
- Интервал - Низ који одређује врсту интервала који се користи. Интервал може бити једна од следећих вредности:
"Д" - дан
„Вв“ - недеља
"В" - радни дан
„М“ - месец
„К“ - четвртина
„Гггг“ - година
„И“ - дан у години
"Х" - сат
“Н” - минут
„С“ - друго
- Број - Број интервала које желите да додате оригиналном датуму/времену.
- Датум - Оригинални датум/време.
Напомена: Када користите датуме у свом коду, морате их окружити # или наводницима.
Следећи код приказује како се користи функција додавања датума:
| 123456789 | Суб УсингТхеДатеАддФунцтион ()Затамни касније Датум као датумлатерДате = ДатеАдд ("м", 10, "11/12/2019")Дебуг.Одштампај каснијеДатеЕнд Суб |
Резултат је:
ВБА ДатеДифф функција
Можете користити функцију ДатеДифф да бисте добили разлику између два датума, на основу наведеног временског интервала.
Синтакса функције ДатеДифф је:
ДатеДифф (Интервал, Дате1, Дате2, [Фирстдаиофвеек], [Фирствеекофиеар]) где:
- Интервал - Низ који одређује врсту интервала који се користи. Интервал може бити једна од следећих вредности:
"Д" - дан
„Вв“ - недеља
"В" - радни дан
„М“ - месец
„К“ - четвртина
„Гггг“ - година
„И“ - дан у години
"Х" - сат
“Н” - минут
„С“ - друго
- Датум1 - Вредност датума која представља ранији датум.
- Датум2 - Вредност датума која представља каснији датум.
- Први дан недеље (Опционо) - Константа која специфицира дан у недељи који функција треба да користи као први дан у недељи. Ако се празна недеља користи као први дан у недељи. Фирстдаиофвеек може бити једна од следећих вредности:
-вбСундаи - користи недељу као први дан у недељи.
-вбМондаи - користи понедељак као први дан у недељи.
-вбТуесдаи - користи уторак као први дан у недељи.
-вбСриједа - користи сриједу као први дан у седмици.
-вбТхурсдаи - користи четвртак као први дан у недељи.
-вбФридаи - користи петак као први дан у недељи.
-вбСаботдаи - користи суботу као први дан у недељи.
-вбУсеСистемДаиОфТхеВеек - користи први дан у недељи који је наведен у поставкама вашег система.
- Прве недеље (Опционо) - Константа која одређује прву недељу у години. Ако је празно, тада се 1. јануар користи као прва седмица у години. Прва недеља може бити једна од следећих вредности:
-вбФирстЈан1 - користи недељу која садржи 1. јануар.
-вбФирстФоурДаис - користи прву недељу која садржи најмање четири дана у новој години.
-вбФирстФуллВеек - користи прву пуну недељу у години.
-вбСистем - користи прву недељу у години како је наведено у системским поставкама.
Следећи код вам показује како да користите функцију ДатеДифф:
| 123456789 | Суб УсингТхеДатеДиффФунцтион ()Затамните разлику између два датума колико год желитетхеДифференцеБетвеенТвоДатес = ДатеДифф ("к", "11/11/2010", "10/12/2012")Отклањање грешака. Одштампајте Разлику између два датумаЕнд Суб |
Резултат је:
ВБА ДатеПарт функција
Функцију ДатеПарт можете користити за враћање дела (дан, недеља, квартал, месец итд.) Датог датума.
Синтакса функције ДатеПарт је:
ДатеПарт (Интервал, Дате, [Фирстдаиофвеек], [Фирствеекофиеар]) где:
- Интервал - Низ који наводи део датума за враћање. Интервал може бити једна од следећих вредности:
"Д" - дан
„Вв“ - недеља
"В" - радни дан
„М“ - месец
„К“ - четвртина
„Гггг“ - година
„И“ - дан у години
"Х" - сат
“Н” - минут
„С“ - друго
- Датум - Датум за који желите да функција врати део.
- Први дан недеље (Опционо) - Константа која специфицира дан у недељи који функција треба да користи као први дан у недељи. Ако се празна недеља користи као први дан у недељи. Фирстдаиофвеек може бити једна од следећих вредности:
-вбСундаи - користи недељу као први дан у недељи.
-вбМондаи - користи понедељак као први дан у недељи.
-вбТуесдаи - користи уторак као први дан у недељи.
-вбСриједа - користи сриједу као први дан у седмици.
-вбТхурсдаи - користи четвртак као први дан у недељи.
-вбФридаи - користи петак као први дан у недељи.
-вбСаботдаи - користи суботу као први дан у недељи.
-вбУсеСистемДаиОфТхеВеек - користи први дан у недељи који је наведен у поставкама вашег система.
- Прве недеље ((Опционо) - Константа која одређује прву недељу у години. Ако је празно, тада се 1. јануар користи као прва седмица у години. Прва недеља може бити једна од следећих вредности:
-вбФирстЈан1 - користи недељу која садржи 1. јануар.
-вбФирстФоурДаис - користи прву недељу која садржи најмање четири дана у новој години.
-вбФирстФуллВеек - користи прву пуну недељу у години.
-вбСистем - користи прву недељу у години како је наведено у системским поставкама.
Следећи код вам показује како да користите функцију ДатеПарт:
| 123456789 | Под помоћу ТхеДатеПартФунцтион ()Затамните део датума као цео бројтхеПартОфТхеДате = ДатеПарт ("гггг", "12/12/2009")Дебуг.Принт тхеПартОфТхеДатеЕнд Суб |
Резултат је:
ВБА ДатеСериал функција
ВБА ДатеСериал функција узима годину, месец и дан за унос и враћа датум.
Синтакса функције ДатеСериал је:
ДатеСериал (година, месец, дан) где:
- Година - Целобројна вредност између 100 и 9999 која представља годину.
- Месец - Целобројна вредност која представља месец.
- Дан - Целобројна вредност која представља дан.
Следећи код вам показује како да користите функцију ДатеСериал:
| 123456789 | Суб УсингТхеДатеСериалФунцтион ()Затамните датум као датумтхеДате = ДатеСериал (2010, 11, 10)Дебуг.Принт тхеДатеЕнд Суб |
Резултат је:
ВБА ДатеВалуе функција
Функција ДатеВалуе враћа датум када јој се у низу прикаже датум.
Синтакса функције ДатеВалуе је:
ДатеВалуе (Датум) где:
- Датум - низ који представља датум.
Следећи код вам показује како да користите функцију ДатеВалуе:
| 123456789 | Под помоћу ТхеДатеВалуеФунцтион ()Затамните датум као датумтхеДате = ДатеВалуе ("29. октобар 2010")Дебуг.Принт тхеДатеЕнд Суб |
Резултат је:
ВБА дневна функција
Помоћу функције Дан можете вратити дан уноса датума.
Синтакса дневне функције је:
Дан (Дате_валуе) где:
- Дате_валуе - Датум из којег желите издвојити дан.
Следећи код вам показује како да користите дневну функцију:
| 123456789 | Суб УсингТхеДаиФунцтион ()Затамните дан као цео бројтхеДаи = Даи ("10/12/2010")Дебуг.Принт тхеДаиЕнд Суб |
Резултат је:
ВБА функција сата
Можете користити функцију сата да вратите сат времена уноса.
Синтакса функције Хоур је:
Сат (време) где:
- Време - време из којег желите да издвојите сат.
Следећи код показује како се користи функција сата:
| 123456789 | Суб УсингТхеХоурФунцтион ()Затамните сат као цео бројтхеХоур = Хоур ("2:14:17 АМ")Дебуг.Принт тхеХоурЕнд Суб |
Резултат је:
ВБА минутна функција
Можете користити функцију минута да вратите минутну вредност улазног времена.
Синтакса функције минуте је:
Минута (време) где:
- Време - време из којег желите да извучете минутну вредност.
Следећи код вам показује како да користите функцију минута:
| 123456789 | Суб УсингТхеМинутеФунцтион ()Затамните минуту вредност као цео бројтхеМинутеВалуе = Минуте ("2:14:17 АМ")Дебуг.Принт тхеМинутеВалуеЕнд Суб |
Резултат је:
ВБА друга функција
Можете користити другу функцију да вратите другу вредност улазног времена.
Синтакса друге функције је:
Друго (време) где:
- Време - време из којег желите да извучете другу вредност.
Следећи код вам показује како да користите другу функцију:
| 123456789 | Суб УсингТхеСецондФунцтион ()Затамните секундну вредност као цео бројтхеСецондВалуе = Сецонд ("2:14:17 АМ")Дебуг.Принт тхеСецондВалуеЕнд Суб |
Резултат је:
ВБА месечна функција
Можете користити функцију месеца да вратите месец уноса датума.
Синтакса функције Месец је:
Месец (Дате_валуе) где:
- Дате_валуе - Датум из којег желите да извучете месец.
Следећи код вам показује како да користите месечну функцију:
| 12345678 | Суб УсингТхеМонтхФунцтион ()Затамните месец као цео бројтхеМонтх = Монтх ("18/11/2010")Дебуг.Принт тхеМонтхЕнд Суб |
Резултат је:
ВБА функција месеца назива
Функцију МонтхНаме можете користити за враћање назива месеца из унетог броја месеца.
Синтакса функције МонтхНаме је:
Назив месеца (Број_месеца, [Скраћеница]) где:
- Број_месеца - Целобројна вредност између 1 и 12.
- Скраћеница (Опционо) - Одређује да ли назив месеца треба да буде скраћен. Ако је поље празно, користи се подразумевана вредност Фалсе.
| 12345678 | Под помоћуТхеМонтхНамеФунцтион ()Затамните име месеца као низтхеМонтхНаме = Име месеца (12, Тачно)Дебуг.Принт тхеМонтхНамеЕнд Суб |
Резултат је:
ВБА ТимеСериал функција
ТимеСериал функција узима улазни сат, минуте и секунду и враћа вријеме.
Синтакса функције ТимеСериал је:
Временска серија (сат, минут, секунда) где:
- Сат - Целобројна вредност између 0 и 23 која представља вредност сата.
- Минута - Целобројна вредност између 0 и 59 која представља минутну вредност.
- Друго - Целобројна вредност између 0 и 59 која представља другу вредност.
Следећи код вам показује како да користите ТимеСериал функцију:
| 12345678 | Суб УсингТхеТимеСериалФунцтион ()Затамните време као датумтхеТиме = ТимеСериал (1, 10, 15)Дебуг.Принт тхеТимеЕнд Суб |
Резултат је:
ВБА функција временске вредности
Функција ТимеВалуе враћа време из приказа низа датума или времена у низу.
Синтакса функције ТимеВалуе је:
ТимеВалуе (време) где:
- Време - низ који представља време.
Следећи код вам показује како да користите функцију ТимеВалуе:
| 12345678 | Суб УсингТхеТимеВалуеФунцтион ()Затамните време као датумтхеТиме = ТимеВалуе ("22:10:17")Дебуг.Принт тхеТимеЕнд Суб |
Резултат је:
ВБА Функција за радни дан
Функцију Веекдаи можете користити за враћање целог броја од 1 - 7 који представља дан у недељи од датума уноса.
Синтакса функције Веекдаи је:
Радни дан (датум, [први дан недеље]) где:
- Датум - Датум из којег желите да извучете вредност за радни дан.
- Први дан недеље (Опционо) - Константа која специфицира дан у недељи који функција треба да користи као први дан у недељи. Ако се празна недеља користи као први дан у недељи. Фирстдаиофвеек може бити једна од следећих вредности:
-вбСундаи - користи недељу као први дан у недељи.
-вбМондаи - користи понедељак као први дан у недељи.
-вбТуесдаи - користи уторак као први дан у недељи.
-вбСриједа - користи сриједу као први дан у седмици.
-вбТхурсдаи - користи четвртак као први дан у недељи.
-вбФридаи - користи петак као први дан у недељи.
-вбСаботдаи - користи суботу као први дан у недељи.
-вбУсеСистемДаиОфТхеВеек - користи први дан у недељи који је наведен у поставкама вашег система.
Следећи код вам показује како да користите функцију за радни дан:
| 1234567 | Суб УсингТхеВеекдаиФунцтион ()Затамните недељни дан као цео бројтхеВеекДаи = Радни дан ("20.11.2019")Дебуг.Принт тхеВеекДаиЕнд Суб |
Резултат је:
Функција ВБА ВеекдаиНаме
Можете користити функцију ВеекдаиНаме да бисте вратили назив радног дана из унетог броја радног дана.
Синтакса функције ВеекдаиНаме је:
ВеекдаиНаме (Веекдаи, [Аббревиате], [Фирстдаиофтхевеек]) где:
- Радни дан - целобројна вредност између 1 и 7.
- Скраћеница (Опционо) -Одређује да ли назив радног дана треба бити скраћен. Ако је поље празно, користи се подразумевана вредност Фалсе.
- Први дан недеље (Опционо) - Константа која специфицира дан у недељи који функција треба да користи као први дан у недељи. Ако се празна недеља користи као први дан у недељи. Фирстдаиофвеек може бити једна од следећих вредности:
-вбСундаи - користи недељу као први дан у недељи.
-вбМондаи - користи понедељак као први дан у недељи.
-вбТуесдаи - користи уторак као први дан у недељи.
-вбСриједа - користи сриједу као први дан у седмици.
-вбТхурсдаи - користи четвртак као први дан у недељи.
-вбФридаи - користи петак као први дан у недељи.
-вбСаботдаи - користи суботу као први дан у недељи.
-вбУсеСистемДаиОфТхеВеек - користи први дан у недељи који је наведен у поставкама вашег система.
| 12345678 | Суб УсингТхеВеекдаиНамеФунцтион ()Затамните назив недеље као низтхеВеекдаиНаме = Назив радног дана (4)Дебуг.Принт тхеВеекдаиНамеЕнд Суб |
Резултат је:
ВБА Функција године
Можете користити функцију године да вратите годину датума уноса.
Синтакса функције године је:
Година (Дате_валуе) где:
- Дате_валуе - Датум из којег желите да издвојите годину.
Следећи код показује како се користи функција године:
| 12345678 | Под помоћу ТхеИеарФунцтион ()Затамните годину као цео бројтхеИеар = Иеар ("11/12/2010")Дебуг.Принт тхеИеарЕнд Суб |
Резултат је:
Упоређивање датума у ВБА
Можете упоредити датуме помоћу оператора>, <и = у ВБА. Следећи код вам показује како да упоредите два датума у ВБА.
| 12345678910111213141516171819 | Подпоредни датуми ()Дим датеОне Ас ДатеДим датеТво Ас ДатедатеОне = "10.10.2010."датеТво = "11/11/2010"Иф датеОне> датеТво ТхенДебуг.Принт "датеОне ис тхе латер дате"ЕлсеИф датеОне = датеТво ЗатимДебуг.Принт "Два датума су једнака"ИначеДебуг.Принт "датеТво ис тхе латер дате"Крај АкоЕнд Суб |
Сазнајте више о томе како форматирати датуме као низове гледајући овај водич.
