proce tk

set textmerge on

clea

use sinhvien

count to sl

count all to g for uppe(xeploai)='G'

count all to K for uppe(xeploai)='K'

count all to TB for uppe(xeploai)='TB'

count all to Kem for uppe(xeploai)='KEM'

text

Chuong Trinh Thong Ke

Tong so sv hien co:<<sl>>

so sv gioi: <<g>> ty le: <<roun(g*100/sl,1)>>%

so sv kha : <<k>> ty le: <<roun(k*100/sl,1)>>%

so sv trung binh: <<tb>> ty le: <<roun(tb*100/sl,1)>>%

so sv kem: <<kem>> ty le: <<roun(kem*100/sl,1)>>%

Ngay <<day(date())>> thang <<month(date())>> nam <<year(date())>>

endtext

return