月份不到时减去1岁？

a=thisform.证件号码1.value
cDate =SUBSTR(a,11,2) + "/" + SUBSTR(a,13,2)+"/"+SUBSTR(a,7,4)
thisform.年龄1.value=YEAR(DATE())-YEAR(CTOD(cDate))-IIF(MONTH(DATE());
<=MONTH(CTOD(cDate))AND DAY(DATE())<DAY(CTOD(cDate)),1,0)

变量a是字符型。 年龄1是字符型。
这是通过下面身份证计算的年龄，55的前边多了空格。可以计算但保存就没有了
[attach]74734[/attach]


[ 本帖最后由 wangjiayu45 于 2014-2-12 15:40 编辑 ]

是想从证件号码（身份证）中算出今年的实际年龄   谁可以给个码？？谢谢

这样才是字符型的


thisform.年龄1.value=TRANSFORM(YEAR(DATE())-YEAR(CTOD(cDate))-IIF(MONTH(DATE());
<=MONTH(CTOD(cDate))AND DAY(DATE())<DAY(CTOD(cDate)),1,0))

好了，谢谢14楼。bccn0906

先执行：
SET CENTURY ON
SET DATE DMY
再执行你的代码试试。