主题：老师，帮我写一下

variable:hh:=0;
variable:timme:=0;
if date<>ref(date,1) then hh:=c;
if c>=hh then
begin
   hh:=c;
   timme:=time();
end

只要判断timme是否在time1时间内就可以了 然后给A累加1就行 你可以参考下  照葫芦画瓢把；你最好是用上一年的 用这一年的数据就果断有未来函数。