ВБА ТимеВалуе | Како се користи функција вредности времена у програму Екцел ВБА?

Временска вредност у ВБА је уграђена функција која је такође категорисана под функцију датума и времена у ВБА, ова функција, као што назив сугерише, даје нам нумеричку вредност датума наведеног као аргумент, узима један аргумент који је датум и враћа нумеричку вредност из аргумента.

Шта функција Вредност вредности ради у ВБА?

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

Синтакса функције ВБА ТимеВалуе

Синтакса функције ВБА ТимеВалуе је следећа.

Као што смо рекли функција ТимеВалуе враћа део серијског броја датог датума који се чува као текстуална вредност. Време није ништа друго до стварно време када желимо да добијемо серијски број. Запамтите Временска вредност може добити серијски број само од времена које је сачувано као текст, а не као ВРЕМЕ.

Примери функције ТимеВалуе са Екцел ВБА

Испод су примери функције ВБА ТимеВалуе.

Овај ВБА ТимеВалуе шаблон функције можете преузети овде - ВБА ТимеВалуе шаблон функције

Пример ВБА временске вредности # 1

Сада погледајте једноставни пример функције ВБА ТимеВалуе.

Шифра:

 Суб ТИМЕВАЛУЕ_Фунцтион_Екампле1 () 'Претвори задати улазни низ у важеће време и на екрану прикажи' Декларација променљиве Дим МиТиме Ас Дате 'Доделите време променљивој МиТиме = ТимеВалуе ("28-05-2019 16:50:45")' Приказати излаз на екрану МсгБок "Тренутно време је:" & МиТиме, вбИнформатион, "ВБА ТИМЕВАЛУЕ функција" Крај Суб 

Прво што сам прогласио променљиву “МиТиме” као Датум.

 Затамни МиТиме као датум 

Тада сам променљивој доделио вредност применом ТимеВалуе.

МиТиме = ТимеВалуе ("28-05-2019 16:50:45")

Тада сам у оквиру за поруке доделио променљиву резултат.

МсгБок "Наведено време је:" & МиТиме, вбИнформатион, "ТИМЕВАЛУЕ функција".

Ако код покренем помоћу тастера Ф5 или ручно, резултат ћемо добити на следећи начин.

Пример ВБА временске вредности # 2

За исти код, прогласићу ВБА променљиву као „Доубле“.

Шифра:

 Суб ТИМЕВАЛУЕ_Фунцтион_Екампле1 () 'Претварање датог улазног низа у важеће време и приказ на екрану' Декларација променљиве Дим МиТиме Ас Доубле 'Додељивање времена променљивој МиТиме = ТимеВалуе ("28-05-2019 16:50:45")' Приказати излаз на екрану МсгБок "Тренутно време је:" & МиТиме, вбИнформатион, "ВБА ТИМЕВАЛУЕ функција" Крај Суб 

Сада, ако ручно покренем ВБА код или притиском на тастер Ф5, он ће приказати серијски број дела времена 16:50:45.

Ради вашег бољег разумевања, прво ћу унети бројеве дате у оквиру ВБА поруке у једну од ћелија.

Сада ћу применити формат времена да бих проверио тачан резултат.

Када га претворите у формат времена, можете видети тачно време.

Пример ВБА временске вредности # 3

Сада погледајте податке у наставку.

Имамо податке и време заједно од А1 до А14 ћелија. За другу колону треба да издвојимо само временску вредност. Будући да имамо више од једне ћелије са којом морамо да се носимо, морамо да користимо петље да бисмо извршили исти скуп задатака за све ћелије.

Имамо податке од 1. до 14. ћелије, тако да би наша петља требало да ради 14 пута. Морамо да користимо ФОР НЕКСТ петљу у ВБА да бисмо поменули доњу и горњу границу. Испод кода је већ написан код за издвајање вредности времена из комбинације датума и времена.

Шифра:

 Суб ТимеВалуе_Екампле3 () Дим к као цео број за к = 1 до 14 ћелија (к, 2) .Валуе = ТимеВалуе (ћелије (к, 1) .Валуе) Следећи к Крај Суб 

Када покренемо код, добићемо вредности као доле.

Ако желите да видите време, примените ТИМЕ формат на њега.

Дакле, овако функционише функција ВРЕМЕНСКА ВРЕДНОСТ у ВБА и Екцел-у.