H:01:OnDblClick=today(this,1)
H:03:OnChange=oper(1)
H:04:OnChange=oper(2)
