Today() Description: Obtains the system date and time.

Не аккуратно, хрен знает какая дата может быть на ПиСи, рекомендую в скрипте окна подцепить сегодняшнюю дату с времени сервака и загнать её в инстанс или в скрипте аппликации и загнать её в глобал, ну и потом на itemchanged колонки сделать *проверку* типа:

choose case getcolumnname()
case "имя твоей колонки"
IF year(date(data)) < year(твоя переменная) or year(date(data)) > year(твоя переменная) THEN
s_error_string = 'Вводимая дата ....'
This.Modify(имя твоей колонки.ValidationMsg = ' + s_error_string)
RETURN 1
END IF

end choose

ну и перед твоё_datawindow.update() сделай
if твоё_datawindow.accepttext() <> 1 then
messagebox(This.title, 'Твой мэссад', StopSign!)
return
end if