求解月龄？
字段名　　　类型
出生日期　　字符
查体日期　　字符
月　　龄　　字符

例如：出生日期　　2004.05.10
　　　查体日期　　2008.10.06
　　　如何得到月龄　　4岁5月？
老师以下代码可以实现以上的要求
d1 = ctod(出生日期)                && 转换成日期型
d2 = ctod(查体日期)
nYear = year(d2)-year(d1)          && 求相差年份
nMont = mont(d2)-mont(d1)          && 求相差月份
if nMont < 0                       && 若查体日期的月份比出生日期的月份小
    nYear = nYear - 1              && 修正年份
    nMont = nMont + 12             && 修正月份
endif
? tran(nYear)+'岁'+tran(nMont)+'个月'    && 显示查询结果

老师，我还有个要求？就是通过出生日期和查体日期能否算出月龄？

比如：4岁5月就是53

? nYear*12 + nMont

月龄与年龄之间可以互相转换：

1. 将年龄转化为月龄
   nMonthAge = nYear*12 + nMonth
2. 将月龄转化为年龄
   nYear = int(nMonthAge/12)
   nMonth = mod(nMonthAge,12)


[ 本帖最后由 liuxingang28 于 2014-5-10 10:07 编辑 ]