У овом чланку ћемо створити макро за обликовање времена у формату хх: мм.ссс.
Сирови подаци за овај пример се састоје од одређених временских вредности у колони Е.
У овом чланку смо креирали кориснички дефинисану функцију (или прилагођену функцију) „ХХММСССФормат“. Ова функција узима тип датума као улаз и враћа излаз у низу података у формату хх: мм.ссс.
Логичко објашњење
У функцији „ХХММСССФормат“ за претварање 60 секунди у троцифрени број, поделили смо секунде у дефинисаној временској вредности са 60 да бисмо добили разломак за дефинисане секунде, а затим га помножили са хиљаду да бисмо добили троцифрени број.
Функција „ХХММСССФормат“ може се користити позивањем било директно у Екцел листу или коришћењем функције унутар друге процедуре (или макроа).
Доња слика приказује како смо користили функцију „ХХММСССФормат“ у Екцел листу за извођење времена у формату хх: мм.ссс.
Такође смо креирали макро „ГеттингЦуррентТимеинХХММСССФормат“ који користи функцију „ХХММСССФормат“ за приказ тренутног времена у формату хх: мм.ссс у оквиру за поруку. Доња слика приказује излаз када покренемо овај макро у 3: 54: 30с.
Молимо следите доле за код
Опција Експлицитна функција ХХММСССФормат (ДатеТиме Ас Дате) Ас Стринг 'функција ће вратити вредност низа' Декларисање целобројне променљиве Дим СецондВалуе Ас Интегер 'Издвајање секунди из параметра ДатеТиме СецондВалуе = Сецонд (ДатеТиме)' Претварање секунди у троцифрени број СецондВалуе = (СецондВалуе / 60) * 1000 'Промените обликовање времена у траженом формату ХХММСССФормат = Формат (Сат (ДатеТиме), "00") & ":" & _ Формат (Минуте (Датум), "00") & ". & Формат (СецондВалуе, "000") Крај функције Суб ГеттингЦуррентТимеинХХММСССФормат () 'Декларисање променљиве низа Дим ЦуррентТиме као низ' Позивање прилагођене функције ХХММСССФормат ЦуррентТиме = ХХММСССФормат (Сада) 'Приказивање оквира са поруком само дугме ОК МсгБок Тренутно време, „Крај подм
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште