create cursor sj (时段 c(4),场次编号 c(2),考试时间 c(12)) n考试时间=20 && 分 n间隔时间=10 && 分 local lac[2],lacc[2],lacsd[2] lac[1]="07:05" lac[2]="14:10" lacc[1]=8 && 上午场次 lacc[2]=5 && 下午场次 lacsd[1]="上午" lacsd[2]="下午" nbh=0 for i=1 to alen(lac,1) n1=int(val(left(lac[i],2))) n2=int(val(right(lac[i],2))) for ii=1 to lacc[i] n3=padl(n1,2,"0")+":"+padl(n2,2,"0") n2=n2+n考试时间 n1=n1+int(n2/60) n2=mod(n2,60) nbh=nbh+1 insert into sj values (lacsd[i],padl(nbh,2,"0"),n3+"—"+padl(n1,2,"0")+":"+padl(n2,2,"0")) n2=n2+n间隔时间 n1=n1+int(n2/60) n2=mod(n2,60) endfor endfor browse
[此贴子已经被作者于2018-3-25 12:37编辑过]