项城中央花园开发商:有了出生日期,如何算年龄?我用的是vfp6.0

来源:百度文库 编辑:偶看新闻 时间:2024/04/28 03:44:56

我有字段:出生日期(字符型)、年龄(数值型)
  1989-06-22 ?
请问:如何写命令?谢谢!

假设格式固定
f='-06-22-1990-'
f1=STREXTRACT(f,'-','-',3)+'-'+STREXTRACT(f,'-','-',1)+'-'+STREXTRACT(f,'-','-',2)
f1
YEAR(DATE())-YEAR(CTOD(f1)) 如果你的格式固定如1989-06-22 
YEAR(DATE()) - val(left(出生日期,4)) function changectod
  lparameters f
  df=STREXTRACT(f,'-','-',3)+'-'+STREXTRACT(f,'-','-',1)+'-'+STREXTRACT(f,'-','-',2)
  return df
endfunc
or:
use table
repl 出生日期 with changectod(出生日期) all
repl 年龄 with YEAR(DATE())-YEAR(出生日期) all
procedure changectod
  lparameters f
  df=STREXTRACT(f,'-','-',3)+'-'+STREXTRACT(f,'-','-',1)+'-'+STREXTRACT(f,'-','-',2)
  return df
endproc