оператор времени

[DEsh]

Добрый день! давно уж ни чего не делал в vba, в связи с этим возникают простейшие проблемы,написал конечно как курица - но в итоге работает, но слегка не так как хотел, подскажите кого не затруднит в чем ошибка:

задача:Есть лимит времени(например 21:00:00) в таблицу вводятся значения в формате времени, нужно вычислить превышение лимита времени.
т.е если в ячейку 1 вводим 22:15:00, то во вторую ячейку должен рассчитаться превышенный лимит - 01:15:00.

PS: цикл должен работать пока строка заполнена.

Sub Кнопка1_Щелчок()
Dim kol_vo_str As Integer 
Dim i As Integer
Dim posle_v As Date




posle_v = #09:00:00 PM#


' не смог организовать простейший цикл while и по этому тупо посчитал сколько не пустых строк в таблице:)
kol_vo_str = WorksheetFunction.CountA(Range("b8:b111"))



For i = 1 To kol_vo_str
 

' проблема в том если я за место Cells(i + 7, 5) = Cells(i + 7, 4) - Range("J1")(где написал 21:00)
' ставлю Cells(i + 7, 5) = Cells(i + 7, 4) - posle_v то процедура не работает(((

 If Cells(i + 7, 4) > Range("J1") Then
Cells(i + 7, 5) = Cells(i + 7, 4) - Range("J1")
Else: Cells(i + 7, 5) = "------------"

  End If
 Next


end sub

приведите плиз в нормальный вид))

[IgorGO]

posle_v = 7/8

[DEsh]

оооо, точно, спасибо большое

[Казанский]

А какая разница? Можно поставить точку останова и проверить

?posle_v=7/8
True

Другой вопрос - почему бы не сделать формулой

=ЕСЛИ(D8="";"";ЕСЛИ(D8>$J$1;D8-$J$1;"------------"))

(см. файл).

[DEsh]

Сообщение от Казанский

А какая разница? Можно поставить точку останова и проверить

?posle_v=7/8
True

Другой вопрос - почему бы не сделать формулой

=ЕСЛИ(D8="";"";ЕСЛИ(D8>$J$1;D8-$J$1;"------------"))

(см. файл).

да делал сначала формулами, но там еще куча всяких мелочей, решил в vba сделать))) да и вспомнить слегка, скоро будет еще вопрос скорее всего(((