Fátima, boa noite! Vi que você já conseguiu resolver, mas deixo a forma que havia pensado pra fins de comparação. ### <code r> nome=c("Ricardo","Maria","Tereza","Pedro","José", "Germano","Ricardo") sobrenome=c("Cunha","Andrade","Silva","Soares","Silva","Lima","Cunha") dataint=c(20121004,20120907,20120703,20120301,20120805,20121209,20120508) datasaida=c(20130101,20121006,20120912,20120402,20130104,20130102,20120520) sexo=c("M","F","F","M","M","M","M") tentre=c(20,12,67,04,49,27,08) ### banco1=data.frame(nome,sobrenome,sexo,dataint,datasaida,tentre, stringsAsFactors=F); banco1 str(banco1) ### banco1$dataint = strptime(banco1$dataint, "%Y%m%d") banco1$datasaida = strptime(banco1$datasaida,"%Y%m%d") banco1$datafim = banco1$datasaida banco1$datafim[banco1$tentre>30] = NA head(banco1) ### </code> Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]