Relative dates in words
R, 102, 98

(kinda cheating: literal interpretation of the question)

cat(if(x&lt;-as.Date(readline())-Sys.Date())c(abs(x),"days",c("from now","ago")[(x&lt;0)+1])else"today")


Examples:

2013-12-08
today

2010-01-13
1425 days ago

2015-12-2
724 days from now