В тази статия ще създадем макрос за форматиране на времето във формат hh: mm.sss.
Суровите данни за този пример се състоят от определени времеви стойности в колона Е.
В тази статия създадохме дефинирана от потребителя функция (или персонализирана функция) „HHMMSSSFormat“. Тази функция приема тип дата като вход и връща изход в низов тип данни във формат hh: mm.sss.
Логично обяснение
Във функцията „HHMMSSSFormat” за преобразуване на 60 секунди в трицифрено число, ние сме разделили секундите в определената стойност на времето с 60, за да получим дроб за определени секунди и след това да я умножим по хиляда, за да получим трицифреното число.
Функцията „HHMMSSSFormat“ може да се използва чрез извикване или директно в листа на Excel, или чрез използване на функцията в другата процедура (или макрос).
Изображението по -долу показва как сме използвали функцията „HHMMSSSFormat“ в листа на Excel, за да извлечем времето във формат hh: mm.sss.
Създадохме и макрос „GettingCurrentTimeinHHMMSSSFormat“, който използва функцията „HHMMSSSFormat“ за показване на текущото време във формат hh: mm.sss в поле за съобщение. Изображението по -долу показва изхода, когато изпълняваме този макрос в 3: 54: 30s.
Моля, следвайте кода по -долу
Опция Експлицитна функция HHMMSSSFormat (DateTime As Date) As String “функцията ще върне стойност на низ„ Деклариране на цяло число променлива Dim SecondValue As Integer “Извличане на секунди от параметъра DateTime SecondValue = Second (DateTime)“ Преобразуване на секунди в трицифрено число SecondValue = (SecondValue / 60) * 1000 'Променете форматирането на времето в необходимия формат HHMMSSSFormat = Format (Hour (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") End Function Sub GettingCurrentTimeinHHMMSSSFormat () 'Деклариране на низ променлива Dim CurrentTime като String' Извикване на персонализирана функция HHMMSSSFormat CurrentTime = HHMMSSSFormat (Сега) 'Показване на полето за съобщения само с бутон OK MsgBox CurrentTime, „Край под
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта