выборка по дате

[Sasha_Smirnov]

Вот, новый образ, неплохой учебник по VBA, и с днём рождения вас! Ссылка работает.

Хороший инпутбокс так быстро не создашь. Можете скопировать мой — и переделать под часы.

Static YourYear

'''ВВОД ЛЕТ'''
If IsEmpty(YourYear) Then YourYear = Year(Date)

    Do
    
    YourYear = Val(InputBox("Юлианский год.", "| Year: ? | Month | Day |", YourYear))
    
    Loop Until IsNumeric(YourYear) And YourYear >= 0 And YourYear < 5879491

If YourYear = 0 Then Exit Sub Else YourYear = CLng(YourYear)
'''КОНЕЦ ВВОДА'''