Làm cách nào để định dạng Thời gian bằng [h]: định dạng excel mm sử dụng hàm format() trong VBA

Question

Có thể định dạng thời gian theo định dạng [h]: mm bằng VBA không?

[h]: mm trong excel sẽ hiển thị 25 giờ là 25:00, 125 giờ như 125: 00

Tôi đã thử một vài điều như:

format(datetime, "[h]:mm") 
format(datetime, "H:mm") 
format(datetime, "hh:mm") 

Không ai trong số những có hiệu quả mong muốn. Tôi cũng đã có một cái nhìn thông qua sự giúp đỡ MS và không thể tìm thấy bất cứ điều gì hữu ích.

Answer 1

Sử dụng hàm trang tính TEXT thông qua đối tượng ứng dụng, như vậy:

x = Application.Text(.294,"[h]:mm") 

Answer 2

không phải với chức năng định dạng, nhưng bạn có thể sử dụng Range(MyData).NumberFormat = "[h]:mm"

Answer 3

Dường như Format chức năng VBA của không có built-in cách để làm điều này. (Mắt lăn.)

chức năng sản xuất trong nước này sẽ làm các trick:

Function HoursAndMinutes(datetime As Date) As String 
    Dim hours As Integer 
    Dim minutes As Integer 
    hours = Int(datetime) * 24 + Hour(datetime) ' the unit of Date type is 1 day 
    minutes = Round((datetime * 24 - hours) * 60) 
    HoursAndMinutes = hours & ":" & Format(minutes, "00") 
End Function 

Cách sử dụng:

Dim datetime As Date 
    datetime = TimeSerial(125, 9, 0) ' 125 hours and 9 minutes 
    Debug.Print HoursAndMinutes(datetime) ' 125:09 

Answer 4

JFC đánh bại tôi vào nó, nhưng đây là những gì tôi đã đưa ra anyway. ..

Sub Test() 
    Debug.Print FormatHM(24/24)  '24:00 
    Debug.Print FormatHM(25/24)  '25:00 
    Debug.Print FormatHM(48/24)  '48:00 
    Debug.Print FormatHM(48.6/24) '48:36 
End Sub 

Function FormatHM(v As Double) As String 
    FormatHM = Format(Application.Floor(v * 24, 1), "00") & _ 
       ":" & Format((v * 1440) Mod 60, "00") 

End Function