以hh：mm.sss格式显示时间在本文中，我们将创建一个宏，以hh：mm.sss格式格式化时间。

此示例的原始数据由E列中的某些时间值组成。在本文中，我们创建了一个用户定义的函数（或自定义函数）“ HHMMSSSFormat”。此函数以日期类型为输入，并以hh：mm.sss格式的字符串数据类型返回输出。

ArrowSampleData

逻辑解释

在“ HHMMSSSFormat”函数中，将60秒转换为三位数，我们将定义的时间值中的秒除以60得到定义秒的分数，然后将其乘以千以获得三位数。

可以通过直接在Excel工作表中调用或通过在其他过程（或宏）中使用该函数来使用“ HHMMSSSFormat”函数。

下图显示了我们如何在Excel工作表中使用“ HHMMSSSFormat”函数以hh：mm.sss格式导出​​时间。

我们还创建了一个“ GettingCurrentTimeinHHMMSSSFormat”宏，该宏使用“ HHMMSSSFormat”函数在消息框中以hh：mm.sss格式显示当前时间。下图显示了当我们在3：54：30s运行此宏时的输出。

ArrowCustomFunction

ArrowMacroOutput

请遵循以下代码

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

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

我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]