В этой статье мы создадим макрос для форматирования времени в формате чч: мм.ссс.

Исходные данные для этого примера состоят из определенных значений времени в столбце E.

ArrowSampleData

В этой статье мы создали пользовательскую функцию (или настраиваемую функцию) «HHMMSSSFormat». Эта функция принимает на входе тип даты и возвращает вывод в виде строкового типа данных в формате чч: мм.ссс.

Логическое объяснение

В функции «HHMMSSSFormat» для преобразования 60 секунд в трехзначное число мы разделили секунды в заданном значении времени на 60, чтобы получить дробную часть для определенных секунд, а затем умножили ее на тысячу, чтобы получить трехзначное число.

Функцию «HHMMSSSFormat» можно использовать путем вызова либо непосредственно в листе Excel, либо с помощью функции внутри другой процедуры (или макроса).

На изображении ниже показано, как мы использовали функцию «HHMMSSSFormat» в листе Excel для получения времени в формате чч: мм.ссс.

ArrowCustomFunction

Мы также создали макрос «GettingCurrentTimeinHHMMSSSFormat», который использует функцию «HHMMSSSFormat» для отображения текущего времени в формате чч: мм.ссс в окне сообщения. На изображении ниже показан результат, когда мы запускаем этот макрос в 3:54:30 с.

ArrowMacroOutput

Пожалуйста, введите код ниже

Option Explicit

Function HHMMSSSFormat(DateTime As Date) As String

'function will return string value

'Declaring integer variable

Dim SecondValue As Integer

'Extracting seconds from DateTime parameter

SecondValue = Second(DateTime)

'Converting seconds value to three digit number

SecondValue = (SecondValue / 60) * 1000

'Change the formatting of time in the required format

HHMMSSSFormat = Format(Hour(DateTime), "00") & ":" & _

Format(Minute(DateTime), "00") & "." & Format(SecondValue, "000")



End Function

Sub GettingCurrentTimeinHHMMSSSFormat()

'Declaring string variable

Dim CurrentTime As String

'Calling custom function HHMMSSSFormat

CurrentTime = HHMMSSSFormat(Now)

'Displaying message box with Ok button only

MsgBox CurrentTime, vbOKOnly, "Current Time"

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]