iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,急.A=DTOC(DATE(),1)thisform.label.caption=left(A,4)+"年"+;iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,2)="日"中的 iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,

iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,急.A=DTOC(DATE(),1)thisform.label.caption=left(A,4)+"年"+;iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,2)="日"中的 iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,
iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,急.
A=DTOC(DATE(),1)
thisform.label.caption=left(A,4)+"年"+;
iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,2)="日"中的
iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,

iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,急.A=DTOC(DATE(),1)thisform.label.caption=left(A,4)+"年"+;iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,2)="日"中的 iif(subs(a,5,2)="0",SUBS(a,6,1),subs(a,5,2)+"月"+right(a,
iif根据表达式的值,来返回两部分中的其中一个.
IIf(expr,truepart,falsepart)
expr 必要参数.用来判断真伪的表达式.
truepart 必要参数.如果 expr 为 True,则返回这部分的值或表达式.
falsepart 必要参数.如果 expr 为 False,则返回这部分的值或表达式.
也就是说 如果 日期的第五位是 0的话 例如05月 则用SUBS(a,6,1) 取第六位的5 不要那个0
right（a,2）当然是取后两位的日期dd啦
,这个程序代码 是提取 系统时间 使它显示在标签label上的
A=DTOC(DATE(),1) 表示将日期型转换成字符型 转换后是yyyy/mm/dd
不带那个1的话是转换为 yy/mm/dd