I have not look at your code in depth. But I think Date::Calc can help. Also, doing some super search will yield that this topic has been discussed several times Compare Time. In particular, take a look at this node node. See if it helps.