0

Помогите доработать код, чтобы из массива, состоящего из времени и нескольких суток, выводилось в формате h:mm, а не как дробь. Массив

Private Sub CommandButton1_Click()
Dim b(11) As Integer
For i = 2 To 11
    b(i) = Worksheets("Лист1").Cells(i, 2).Value
Next i
s_min = b(2)
For i = 2 To 14
    If b(i) < s_min Then
        s_min = b(i)
    End If
Next i
     MsgBox "Наименьшее значение: " & s_min
End Sub

1 ответ 1

0

Время - часть суток, 1 сутки - это 1 (единица). Это значит, что время - дробное число <1.

В самом начале процедуры заложена ошибка: Dim b(11) As Integer - объявление массива ЦЕЛЫХ чисел. Какое бы время не находилось в ячейках, в массив запишется значение, округленное до целого, т.е. 0 или 1.

Размерность объявленного массива начинается с нуля (Dim b(11) - от 0 до 11, 12 элементов), но заполнение в первом цикле начинается с елемента 2.

При заполнении массива из диапазона напрямую размерности начинаются с единицы и массив получает размерность, одинаковую с размером диапазона. Если диапазон данных на листе неразрывен, цикл заполнения массива лишний.

Чтобы вывести результат не дробным числом, а в формате времени - Format(s_min, "hh:mm:ss")

Не нужно забывать об объявлении всех используемых переменных.

Sub MinTime()
    Dim aTime()
    Dim s_min As Double
    Dim i As Long
    
    aTime = Worksheets("Лист1").Range("B2:B11").Value
    s_min = 1
    
    For i = 1 To UBound(aTime)
        If aTime(i, 1) < s_min Then s_min = aTime(i, 1)
    Next i
    
    MsgBox "Наименьшее значение: " & Format(s_min, "hh:mm:ss")
End Sub
7
  • из-за того, что в массиве присутствуют 2 суток, выводится время 1:57 из 2 суток вместо 3:01 в первых, как можно это исправить?
    – posterp
    16 окт 2021 в 15:28
  • В вопросе нет ничего о сутках. Нет примера, в котором можно увидеть данные. Сравнивать только время - без целой части (без суток): If aTime(i, 1) - Int( aTime(i, 1)) < s_min Then... 16 окт 2021 в 16:43
  • выводится время 1:57 из 2 суток вместо 3:01 в первых - правильно, 1:57< 3:01 16 окт 2021 в 17:01
  • Это так но в моем случае 3:01 это будет 27:01 от 0:00 1 суток, то тогда 3:01<27:01
    – posterp
    16 окт 2021 в 17:09
  • Ничего не понял из последнего пояснения... Уточнение из предыдущего моего сообщения помогло? 16 окт 2021 в 17:36

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.