let tuple_to_date (d,m,y) =
  { year = y;
    month = m + 1;
    day = d ;
    hour = 12 ;
    minute = 0 ;
    second = 0 ;
    zone = 0;
    week_day = 0 ;
  }