Trong bài viết này, chúng ta sẽ tạo macro để định dạng thời gian ở định dạng hh: mm.sss.

Dữ liệu thô cho ví dụ này bao gồm các giá trị thời gian nhất định trong cột E.

ArrowSampleData

Trong bài viết này, chúng tôi đã tạo một chức năng do người dùng xác định (hoặc chức năng tùy chỉnh) “HHMMSSSFormat”. Hàm này nhận kiểu ngày tháng làm đầu vào và trả về đầu ra ở kiểu dữ liệu chuỗi ở định dạng hh: mm.sss.

Giải thích logic

Trong chức năng “HHMMSSSFormat” để chuyển đổi 60 giây thành một số có ba chữ số, chúng tôi đã chia giây trong giá trị thời gian đã xác định cho 60 để được phân số cho giây xác định và sau đó nhân nó với nghìn để được số có ba chữ số.

Hàm “HHMMSSSFormat” có thể được sử dụng bằng cách gọi trực tiếp trong trang tính Excel hoặc bằng cách sử dụng hàm bên trong thủ tục khác (hoặc macro).

Hình ảnh dưới đây cho thấy cách chúng tôi đã sử dụng hàm “HHMMSSSFormat” trong trang tính Excel để tính thời gian ở định dạng hh: mm.sss.

ArrowCustomFunction

Chúng tôi cũng đã tạo macro “GettingCurrentTimeinHHMMSSSFormat” sử dụng chức năng “HHMMSSSFormat” để hiển thị thời gian hiện tại ở định dạng hh: mm.sss trong hộp thông báo. Hình ảnh bên dưới cho thấy kết quả khi chúng tôi chạy macro này ở 3: 54: 30 giây.

ArrowMacroOutput

Vui lòng theo dõi bên dưới để biết mã

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

Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]