let compare_dates d1 d2 = let d1 = (d1.year, d1.month, d1.day, d1.hour, d1.minute, d1.second) and d2 = (d2.year, d2.month, d2.day, d2.hour, d2.minute, d2.second) in Pervasives.compare d1 d2