#用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)
