Practica 2. Edad de una Persona

PRACTICA 2 EDAD DE UNA PERSONA

Descripcion :A partir de la fecha de nacimiento determinar los años cumplidos que tiene una persona mediante la diferencia que hay del año actual menos el año de nacimiento, es decir, los años cumplidos al año actual. También el programa debe mostrar los valores de nombre, fecha de nacimiento, género y los años cumplidos o la edad de la persona mediante uso de variables y funciones para determinar la edad.

Nombre

vnombre <- 'Alfredo TH'
vnombre

## [1] "Alfredo TH"

Fecha de Nacimiento

vfechanac <- '1982-08-08'
vagnionac <- as.numeric(substr(vfechanac, 1,4))
vfechanac

## [1] "1982-08-08"

vagnionac

## [1] 1982

Dia de Hoy

 vhoy <- Sys.Date()
 vagniohoy <- format(vhoy, "%Y")
 vagniohoy <- as.numeric(vagniohoy)
 vhoy

## [1] "2018-06-09"

 vagniohoy

## [1] 2018

Correo Electronico y Genero

vemail <- 'fredy8@msn.com'
vgenero <- 'Masculino'
vemail

## [1] "fredy8@msn.com"

vgenero

## [1] "Masculino"

Calcular Edad

vagniohoy

## [1] 2018

vagnionac

## [1] 1982

vedad <- vagniohoy-vagnionac
vedad

## [1] 36