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