[此贴子已经被作者于2018-3-25 09:14编辑过]

[此贴子已经被作者于2018-3-25 09:40编辑过]

[此贴子已经被作者于2018-3-25 11:04编辑过]

程序代码：

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编辑过]