Формат для отображения времени?

[Терминатор]

На Листе ячейка, в ячейке значение, в формате времени
[h]:mm:cc
Какой необходимо пременить формат, для корректного отображения времени, находящегося в этой ячейке, с помошью MsgBox?

P.S.
В ячейке отображается 25:30:00

[alibek]

Без квадратных скобок напиши.
Квадратные скобки означают, что значение не будет обнуляться, переходя на следующие разряды.

[Терминатор]

Без квадратных скобок напиши.

Это как раз вызовет ошибку.

Тогда значение 25:30 (т.е. 25 часов 30 минут) примет неверное значение → 1:30
Значение 25 часов 30 минут возникает от суммирования времени.
Формат [h]:mm рекомендует Джон Уокенбах при использовании отображения времени более 24 часов как единственно верный. (для Excel). К сажелению он умалчивает как отображать подобный формат в тексбоксах или в MsgBox-ах. А хотелось бы знать.

[alibek]

Тогда значение 25:30 (т.е. 25 часов 30 минут) примет неверное значение → 1:30

Не так. Значение 25:30 будет соответствовать 31 декабря 1899 года, 01:30.
Если ты хочешь формат [h]:mm использовать в коде VB, то не получится, смотри тут.

[$€rg]

поизвращался от нечего делать

Код: Выделить всё

Sub s2()
Dim i As Variant, i2 As Variant
Dim j As Integer
Dim k As String
i = Range("C27").Value
i2 = CStr(i)
For j = 1 To Len(i2)
k = Left(i2, j)
If Right(k, 1) = "," Then Exit For
Next
k = CInt(k)
i = Format(i, "hh:mm:ss")
i = CStr(i)
j = 24 * k + CInt(Left(i, 2))
MsgBox CStr(j) & Mid(i, 3)
End Sub

[Терминатор]

поизвращался от нечего делать

О!
Спасибо, теперь ясно в какую сторону двигаться.

[Nicky]

MsgBox ActiveCell.Text