Макрос даты и времени

[fraid]

Привет!
У нас есть журнал, который можно заполнять не позже 17.00 сегодняшнего числа. Это заявки на авто, машину нужно бронировать заранее (за день или более) не позже 17.00 и нельзя бронировать день в день...
Как-то можно это с помощью макросов организовать?

[Iska]

Какое приложение-то?

[fraid]

MS Excell

[Iska]

MS Excell »
Не слишком удачный выбор.

Примерная болванка кода для списка «Список1», в который будет осуществляться ввод:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.ListObjects.Item("Список1").Range) Is Nothing Then
If Not IsEmpty(Target.Value) Then
If Hour(Time()) >= 8 And Hour(Time()) < 17 Then
If DateDiff("d", Target.Value, DateAdd("d", 1, Date)) < 1 Then
' ОК
Else
MsgBox "Error"
Target.ClearContents
End If
Else
MsgBox "Error"
Target.ClearContents
End If
End If
End If
End Sub
Поместите код в модуль того же рабочего листа.