определенное время в excel vba

Question

Я пытаюсь очистить свой набор данных в excel. В настоящее время мой код удаляет данные до 7 утра и после 10 вечера. как мне это сделать 7:30?

текущий код:

If Hour(.Cells(Cell, 2)) < 7 Or Hour(.Cells(Cell, 2)) > 22 

Я хочу, чтобы сделать 7 до 7:30. Как мне это сделать?

Answer 1

Один из способов:

if TimeValue(.Cells(Cell, 2)) > #7:30:00 AM# Or TimeVa... 

Answer 2

В зависимости от того, что формат данных в вашем Cells(Cell, 2), если он, как и в функции Now вы могли бы сделать это:

'Example with `Now` 
If CInt(Hour(.Cells(Cell, 2)) & Minute(.Cells(Cell, 2))) < 730 Or _ 
    Hour(.Cells(Cell, 2)) > 22 Then 

Answer 3

Hour() всегда будет возвращать и целое число. Попробуйте преобразовать время в строку: Format(Range("H1"), "hhnn") для сравнения.