因为有些月是28天、29天、30天和31天

dcsrq = date(2020,05,20)
?date - dcsrq

m.birthday=""
 &&自己输入生日
INPUT TO birthday
read
 && 1980-12-01
 ts=date()-dtoc(birthday)
 messagebox("ts=:"+ts,,64,"")

感谢两位老师的指导！
thisform.edit7.value=(date()-date(val(substr(alltrim(thisform.edit4.value),7,4)),val(substr(alltrim(thisform.edit4.value),11,2)),val(substr(alltrim(thisform.edit4.value),13,2))))