<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Talvez esse código te indique algum caminho.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br><span style="font-family:courier new,monospace">x <- c("3009", "4018")<br><br>## Quebra no encontro.<br>strsplit(x, split="")<br><br>## O primeiro digito diz a unidade (hora/dia/mês/ano).<br>## Os três restantes representam quantidade.<br><br>ini <- as.integer(gsub("^(\\d).*", "\\1", x)); ini<br>fim <- as.integer(gsub("^\\d", "\\1", x)); fim<br><br>unid <- c("horas","dias","meses","anos")<br><br>sprintf("Tempo de %d %s.", fim, unid[ini])<br></span><br>À disposição.<br>Walmes.</div><br></div>