I don't understand what you mean by "any new modules". Does it mean you can only use the core modules?

I would do this with the help of DateTime and DateTime::Duration.

Coding this by hand could prove quite tedious. In what format do you have the dates in the variables?