The venerable Date::Manip may come in handy here. Or you could calculate the offset, change it into seconds, and work with epoch seconds from time.