Конвертация секунд в HH:MM:SS

[VAngel]

Уважаемые знатоки скажите у меня есть время в секундах, скажем 3001 как мне его просто преобразовать к виду HH:MM:SS?
У меня написан дикий код.... очень большой основаный на одной математике, а может есть простое средство

[tyomitch]

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

Debug.Print CDate(3001 / 86400)

[VAngel]

Спасибо, круто

[Qubicz]

Как вариант

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

MsgBox TimeSerial(0, 0, sec)

[VAngel]

2 tyomitch:
Спасибо, это работает, но имеет ограничения 86399 секунд, а при превышении начинает возвращать дату 31.12.1899

2 Qubicz:
Спасибо, но выдает ошибку уже на 35000

Все равно всем спасибо за внимание

Скажите,что делать с темой мне ее удалить или оставить?

[GSerg]

Ну раз без ограничений, то:
hh=3001\3600
mm=(3001-hh*3600)\600
ss=3001 mod 60

А тему.... Ну удали, попробуй, попробуй...

[VAngel]

Да можно сли его дописать слегка, все равно вырастет в приличный код

Мне столько не нужно меня вполне строит и ограничение в 30000 сек

[VAngel]

А как можно сравнить две даты или значения времени?
Т.е. узнать какое событие было позже

[A.A.Z.]

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

If CLng(Date1) > CLng(Date2) Then MsgBox "1 больше" Else MsgBox "2 больше"

[Ennor]

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

If CLng(Date1) > CLng(Date2) Then MsgBox "1 больше" Else MsgBox "2 больше"

Ну-ну. Поставь:

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

Date1 = "2005-01-01 09:00:00"
Date2 = "2005-01-01 08:00:00"

И получишь, что они равны . Сравнивать можно даты напрямую, без предварительного округления до дней, басик это умеет.

Спасибо, это работает, но имеет ограничения 86399 секунд, а при превышении начинает возвращать дату 31.12.1899

А знаешь, почему? Потому что 86400 секунд - это ровно одни сутки . Поэтому, деля такое число на 86400, ты получишь интервал больше одного дня. Так что ты пишешь примерно так:

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

Dim D as Date
D = CDate(3001 / 86400)

После этого ты в переменной D получаешь значение типа дата (а не какое-то там, панимаишь, количество секунд в лонге), которое уже можно спокойно использовать во всяких функциях, работающих с датами - DateAdd(), DateDiff(), DatePart(), ну и так далее.

А вообще, матчасть по тебе просто плачет...

[tyomitch]

Ennor, тип "Date" означает "Дата и время", т.ч. твой код также не будет работать для интервалов больше суток.

WFIW, у меня до сих пор хранится программа из одной строчки, выдающаяя аптайм в днях, часах, минутах и секундах:

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

MsgBox IIf(GetTickCount > 0, "Windows up for: " & Int(GetTickCount / 86400000) & " days, " & _
        CDate((GetTickCount Mod 86400000) / 86400000), "Windows up for: " & Int((4294967296# + _
        GetTickCount) / 86400000) & " days, " & CDate(((4294967296# + GetTickCount) / 86400000) _
        - Int((4294967296# + GetTickCount) / 86400000)))


Писалось на спор ( http://groups.google.ca/groups?hl=en&lr ... 096.z2.ftn )

[Ennor]

Ennor, тип "Date" означает "Дата и время", т.ч. твой код также не будет работать для интервалов больше суток.
...

Если честно, я не совсем понял, что значит "работать" в данном контексте. Поясни, плз...

[tyomitch]

"Работать" значит "возвращать 27:46:40 для числа 100000"

[Ennor]

Это невозможно, ты сам прекрасно знаешь:

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

Debug.Print CDate(100000 / 86400)

возвращает:

31.12.1899 3:46:40

Проще говоря, указанные тобой 27 с хвостиком часов не являются корректно отформатированной датой-временем. И ты никогда не найдешь ни в одном серьезном продукте так записанного интервала времени - всегда будет отдельно указываться количество дней. Хотя, конечно, если у кого-то в ТЗ написано русским по белому - "чтобы показывало 27 часов!" - то, конечно, не поспоришь...

[tyomitch]

Это невозможно при использовании типа Date, но возможно, например, при использовании кода GSerg-а (\ и Mod).

Про то, должно быть у VAngel с днями или без дней - не знаю

[VAngel]

А скажите пожалуйста раз вы начали обсуждать, то подкиньте мне пожалуйста доку или просто ссылку с мат частью, не где описаны все эти деления без остадка и пр.

[tyomitch]

Действия всего два:
\ - деление без остатка
Mod - остаток от деления
Пример:

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

Debug.Print 10 \ 3 ' 3
Debug.Print 10 Mod 3 ' 1


[VAngel]

Это все хорошо конечно, а есть дока с описанием подобных вещей?

[tyomitch]

Дык MSDN