How to calculate elapsed and remaining days between dates in R

Problem

We would like to calculate the number of elapsed and remaining days in a year.

Solution

From a starting date in the year

date<- as.Date("2019-03-29")
# Elapsed days
date - as.Date(ISOdate(format(Sys.Date(), "%Y"), 1, 1)) + 1

Time difference of 88 days

# Remaining days
as.Date(ISOdate(format(Sys.Date(), "%Y"), 12, 31)) - date

Time difference of 277 days

From today

# Elapsed days
Sys.Date() - as.Date(ISOdate(format(Sys.Date(), "%Y"), 1, 1)) + 1 

Time difference of 153 days

# Remaining days
as.Date(ISOdate(format(Sys.Date(), "%Y"), 12, 31)) - Sys.Date() 

Time difference of 212 days

Related entries

• Spanish version
• How to get week numbers from dates in R?

Calcular días transcurridos y restantes del año en R

Problema

Deseamos calcular el número de días transcurridos y restantes del año, respecto a una fecha u hoy.

Solución

Respecto a una fecha

fecha <- as.Date("2015-03-29")
# Días transcurridos
fecha - as.Date(ISOdate(format(Sys.Date(), "%Y"), 1, 1)) + 1

Time difference of 88 days

# Días restantes
as.Date(ISOdate(format(Sys.Date(), "%Y"), 12, 31)) - fecha

Time difference of 277 days

Respecto a hoy

# Días transcurridos
Sys.Date() - as.Date(ISOdate(format(Sys.Date(), "%Y"), 1, 1)) + 1 

Time difference of 128 days

# Días restantes
as.Date(ISOdate(format(Sys.Date(), "%Y"), 12, 31)) - Sys.Date() 

Time difference of 237 days

Entradas relacionadas

• Calcular días transcurridos y restantes del año