R语言知道出生日期计算出生年龄

#用openxlsx导入的日期编程距离1900年的天数

startday<-as.Date('1900-01-01')

today<-as.Date('2018-01-01')

long<-today-startday

age<-round(long-a$出生日期)/365)

a$出生日期<-age

#用CSV导入的日期为因子型，转变为时间型

birtyday<-as.Date(a$出生日期)

today<-as.Date('2017-01-01')

age<-round((today-birthday)/365)